mirror of
https://github.com/MariaDB/server.git
synced 2025-01-15 19:42:28 +01:00
make_win_bin_dist CMakeLists.txt resolveip.c Makefile.am:
Better Windows support in the scripts directory
mysql_config.pl.in, mysql_install_db.pl.in:
New Perl version of Unix shell script, mainly for Windows
Many files in scripts directory:
Use default Perl location "#!/usr/bin/perl" instead of the build host path
extra/CMakeLists.txt:
Added target for executable "resolveip"
extra/resolveip.c:
Exclude Unix specific headers when compiling on Windows
scripts/CMakeLists.txt:
On Windows, filter Perl scripts and change name from ".sh" to ".pl"
mysql_convert_table_format.sh mysql_explain_log.sh
mysql_secure_installation.sh mysql_tableinfo.sh
mysqld_multi.sh mysqldumpslow.sh
mysqlhotcopy.sh
Do the same for the new Windows specific Perl versions of shell scripts
mysql_config.pl.in mysql_install_db.pl.in
In CMake, set reasonable values for 'CFLAGS', 'prefix', 'datadir' and so on.
scripts/Makefile.am:
Include "mysql_config.pl.in" and "mysql_install_db.pl.in" in the source TAR
scripts/make_win_bin_dist:
Only include explicitly listed scripts from the "scripts" directory
scripts/mysql_convert_table_format.sh:
Use default Perl location "#!/usr/bin/perl" instead of the build host path
scripts/mysql_explain_log.sh:
Use default Perl location "#!/usr/bin/perl" instead of the build host path
scripts/mysql_tableinfo.sh:
Use default Perl location "#!/usr/bin/perl" instead of the build host path
scripts/mysqld_multi.sh:
Use default Perl location "#!/usr/bin/perl" instead of the build host path
scripts/mysqldumpslow.sh:
Use default Perl location "#!/usr/bin/perl" instead of the build host path
scripts/mysqlhotcopy.sh:
Use default Perl location "#!/usr/bin/perl" instead of the build host path
scripts/mysql_config.pl.in:
New Perl version of Unix shell script, mainly for Windows
scripts/mysql_install_db.pl.in:
New Perl version of Unix shell script, mainly for Windows
This commit is contained in:
unknown
parent
c7eb461d54
commit
471437fd47
13 changed files with 974 additions and 30 deletions
|
|
@ -44,6 +44,9 @@ TARGET_LINK_LIBRARIES(my_print_defaults strings mysys debug dbug taocrypt wsock3
|
|||
ADD_EXECUTABLE(perror perror.c)
|
||||
TARGET_LINK_LIBRARIES(perror strings mysys debug dbug wsock32)
|
||||
|
||||
ADD_EXECUTABLE(resolveip resolveip.c)
|
||||
TARGET_LINK_LIBRARIES(resolveip strings mysys debug dbug wsock32)
|
||||
|
||||
ADD_EXECUTABLE(replace replace.c)
|
||||
TARGET_LINK_LIBRARIES(replace strings mysys debug dbug wsock32)
|
||||
|
||||
|
|
|
|||
|
|
@ -21,13 +21,15 @@
|
|||
#include <m_ctype.h>
|
||||
#include <my_sys.h>
|
||||
#include <m_string.h>
|
||||
#include <sys/types.h>
|
||||
#include <sys/socket.h>
|
||||
#ifndef HAVE_BROKEN_NETINET_INCLUDES
|
||||
#include <netinet/in.h>
|
||||
#ifndef WIN32
|
||||
# include <sys/types.h>
|
||||
# include <sys/socket.h>
|
||||
# ifndef HAVE_BROKEN_NETINET_INCLUDES
|
||||
# include <netinet/in.h>
|
||||
# endif
|
||||
# include <arpa/inet.h>
|
||||
# include <netdb.h>
|
||||
#endif
|
||||
#include <arpa/inet.h>
|
||||
#include <netdb.h>
|
||||
#include <my_net.h>
|
||||
#include <my_getopt.h>
|
||||
|
||||
|
|
|
|||
|
|
@ -40,3 +40,44 @@ ADD_CUSTOM_COMMAND(OUTPUT ${PROJECT_SOURCE_DIR}/scripts/mysql_fix_privilege_tabl
|
|||
ADD_CUSTOM_TARGET(GenFixPrivs
|
||||
ALL
|
||||
DEPENDS ${PROJECT_SOURCE_DIR}/scripts/mysql_fix_privilege_tables_sql.c)
|
||||
|
||||
# ----------------------------------------------------------------------
|
||||
# Replace some variables @foo@ in the .in/.sh file, and write the new script
|
||||
# ----------------------------------------------------------------------
|
||||
|
||||
SET(CFLAGS "-D_WINDOWS ${CMAKE_C_FLAGS_RELWITHDEBINFO}")
|
||||
SET(prefix "${CMAKE_INSTALL_PREFIX}/MySQL Server ${MYSQL_BASE_VERSION}")
|
||||
SET(sysconfdir ${prefix})
|
||||
SET(bindir ${prefix}/bin)
|
||||
SET(libexecdir ${prefix}/bin)
|
||||
SET(scriptdir ${prefix}/bin)
|
||||
SET(datadir ${prefix}/share)
|
||||
SET(pkgdatadir ${prefix}/share)
|
||||
SET(localstatedir ${prefix}/data)
|
||||
|
||||
CONFIGURE_FILE(mysql_config.pl.in
|
||||
scripts/mysql_config.pl ESCAPE_QUOTES @ONLY)
|
||||
|
||||
CONFIGURE_FILE(mysql_convert_table_format.sh
|
||||
scripts/mysql_convert_table_format.pl ESCAPE_QUOTES @ONLY)
|
||||
|
||||
CONFIGURE_FILE(mysql_explain_log.sh
|
||||
scripts/mysql_explain_log.pl ESCAPE_QUOTES @ONLY)
|
||||
|
||||
CONFIGURE_FILE(mysql_install_db.pl.in
|
||||
scripts/mysql_install_db.pl ESCAPE_QUOTES @ONLY)
|
||||
|
||||
CONFIGURE_FILE(mysql_secure_installation.sh
|
||||
scripts/mysql_secure_installation.pl ESCAPE_QUOTES @ONLY)
|
||||
|
||||
CONFIGURE_FILE(mysql_tableinfo.sh
|
||||
scripts/mysql_tableinfo.pl ESCAPE_QUOTES @ONLY)
|
||||
|
||||
CONFIGURE_FILE(mysqld_multi.sh
|
||||
scripts/mysqld_multi.pl ESCAPE_QUOTES @ONLY)
|
||||
|
||||
CONFIGURE_FILE(mysqldumpslow.sh
|
||||
scripts/mysqldumpslow.pl ESCAPE_QUOTES @ONLY)
|
||||
|
||||
CONFIGURE_FILE(mysqlhotcopy.sh
|
||||
scripts/mysqlhotcopy.pl ESCAPE_QUOTES @ONLY)
|
||||
|
|
|
|||
|
|
@ -48,9 +48,11 @@ EXTRA_SCRIPTS = make_binary_distribution.sh \
|
|||
make_win_src_distribution_old.sh \
|
||||
msql2mysql.sh \
|
||||
mysql_config.sh \
|
||||
mysql_config.pl.in \
|
||||
mysql_fix_privilege_tables.sh \
|
||||
mysql_fix_extensions.sh \
|
||||
mysql_install_db.sh \
|
||||
mysql_install_db.pl.in \
|
||||
mysql_setpermission.sh \
|
||||
mysql_secure_installation.sh \
|
||||
mysql_zap.sh \
|
||||
|
|
|
|||
|
|
@ -327,27 +327,26 @@ if [ -d mysql-test/extra ] ; then
|
|||
fi
|
||||
|
||||
# ----------------------------------------------------------------------
|
||||
# Copy what could be usable in the "scripts" directory. Currently
|
||||
# only SQL files, others are Bourne shell scripts or Perl scripts
|
||||
# not really usable on Windows.
|
||||
#
|
||||
# But to be nice to the few Cygwin users we might have in 5.0 we
|
||||
# continue to copy the stuff, but don't include it in the WiX install.
|
||||
# Copy what could be usable in the "scripts" directory
|
||||
# ----------------------------------------------------------------------
|
||||
|
||||
mysql_scripts="\
|
||||
mysql_config.pl \
|
||||
mysql_convert_table_format.pl \
|
||||
mysql_explain_log.pl \
|
||||
mysql_install_db.pl \
|
||||
mysql_secure_installation.pl \
|
||||
mysql_tableinfo.pl \
|
||||
mysqld_multi.pl \
|
||||
mysqldumpslow.pl \
|
||||
mysqlhotcopy.pl \
|
||||
"
|
||||
|
||||
mkdir -p $DESTDIR/scripts
|
||||
|
||||
# Uncomment and remove the for loop in 5.1
|
||||
#cp scripts/*.sql $DESTDIR/scripts/
|
||||
|
||||
for i in `cd scripts && ls`; do \
|
||||
if echo $i | grep -q '\.sh'; then \
|
||||
cp scripts/$i $DESTDIR/scripts/`echo $i | sed -e 's/\.sh$//'`; \
|
||||
elif [ -d scripts/$i -o $i = Makefile.am -o $i = Makefile.in -o -e scripts/$i.sh ] ; then \
|
||||
: ; \
|
||||
else \
|
||||
cp scripts/$i $DESTDIR/scripts/$i; \
|
||||
fi; \
|
||||
for i in $mysql_scripts
|
||||
do
|
||||
cp scripts/$i $DESTDIR/scripts/$i
|
||||
done
|
||||
|
||||
cp -pR sql/share $DESTDIR/
|
||||
|
|
@ -355,7 +354,7 @@ cp -pR sql-bench $DESTDIR/
|
|||
rm -f $DESTDIR/sql-bench/*.sh $DESTDIR/sql-bench/Makefile*
|
||||
|
||||
# The SQL initialisation code is really expected to be in "share"
|
||||
mv $DESTDIR/scripts/*.sql $DESTDIR/share/ || true
|
||||
mv $DESTDIR/scripts/*.sql $DESTDIR/share/
|
||||
|
||||
# ----------------------------------------------------------------------
|
||||
# Clean up from possibly copied SCCS directories
|
||||
|
|
|
|||
285
scripts/mysql_config.pl.in
Normal file
285
scripts/mysql_config.pl.in
Normal file
|
|
@ -0,0 +1,285 @@
|
|||
#!/usr/bin/perl
|
||||
# -*- cperl -*-
|
||||
#
|
||||
# Copyright (C) 2007 MySQL AB
|
||||
#
|
||||
# This program is free software; you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; version 2 of the License.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License
|
||||
# along with this program; if not, write to the Free Software
|
||||
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
||||
|
||||
##############################################################################
|
||||
#
|
||||
# This script reports various configuration settings that may be needed
|
||||
# when using the MySQL client library.
|
||||
#
|
||||
# This script try to match the shell script version as close as possible,
|
||||
# but in addition being compatible with ActiveState Perl on Windows.
|
||||
#
|
||||
# All unrecognized arguments to this script are passed to mysqld.
|
||||
#
|
||||
# NOTE: This script will only be used on Windows until solved how to
|
||||
# handle @LIBS@ and other strings inserted that might contain
|
||||
# several arguments, possibly with spaces in them.
|
||||
#
|
||||
# NOTE: This script was deliberately written to be as close to the shell
|
||||
# script as possible, to make the maintenance of both in parallel
|
||||
# easier.
|
||||
#
|
||||
##############################################################################
|
||||
|
||||
use File::Basename;
|
||||
use Getopt::Long;
|
||||
use Cwd;
|
||||
use strict;
|
||||
|
||||
my @exclude_cflags =
|
||||
qw/DDBUG_OFF DSAFEMALLOC USAFEMALLOC DSAFE_MUTEX
|
||||
DPEDANTIC_SAFEMALLOC DUNIV_MUST_NOT_INLINE DFORCE_INIT_OF_VARS
|
||||
DEXTRA_DEBUG DHAVE_purify O O[0-9] xO[0-9] W[-A-Za-z]*
|
||||
Xa xstrconst xc99=none
|
||||
unroll2 ip mp restrict/;
|
||||
|
||||
my @exclude_libs = qw/lmtmalloc static-libcxa i-static static-intel/;
|
||||
|
||||
my $cwd = cwd();
|
||||
my $basedir;
|
||||
|
||||
my $socket = '@MYSQL_UNIX_ADDR@';
|
||||
my $version = '@VERSION@';
|
||||
|
||||
sub which
|
||||
{
|
||||
my $file = shift;
|
||||
|
||||
my $IFS = $^O eq "MSWin32" ? ";" : ":";
|
||||
|
||||
foreach my $dir ( split($IFS, $ENV{PATH}) )
|
||||
{
|
||||
if ( -f "$dir/$file" or -f "$dir/$file.exe" )
|
||||
{
|
||||
return "$dir/$file";
|
||||
}
|
||||
}
|
||||
print STDERR "which: no $file in ($ENV{PATH})\n";
|
||||
exit 1;
|
||||
}
|
||||
|
||||
# ----------------------------------------------------------------------
|
||||
# If we can find the given directory relatively to where mysql_config is
|
||||
# we should use this instead of the incompiled one.
|
||||
# This is to ensure that this script also works with the binary MySQL
|
||||
# version
|
||||
# ----------------------------------------------------------------------
|
||||
|
||||
sub fix_path
|
||||
{
|
||||
my $default = shift;
|
||||
my @dirs = @_;
|
||||
|
||||
foreach my $dirname ( @dirs )
|
||||
{
|
||||
my $path = "$basedir/$dirname";
|
||||
if ( -d $path )
|
||||
{
|
||||
return $path;
|
||||
}
|
||||
}
|
||||
return $default;
|
||||
}
|
||||
|
||||
sub get_full_path
|
||||
{
|
||||
my $file = shift;
|
||||
|
||||
# if the file is a symlink, try to resolve it
|
||||
if ( $^O ne "MSWin32" and -l $file )
|
||||
{
|
||||
$file = readlink($file);
|
||||
}
|
||||
|
||||
if ( $file =~ m,^/, )
|
||||
{
|
||||
# Do nothing, absolute path
|
||||
}
|
||||
elsif ( $file =~ m,/, )
|
||||
{
|
||||
# Make absolute, and remove "/./" in path
|
||||
$file = "$cwd/$file";
|
||||
$file =~ s,/\./,/,g;
|
||||
}
|
||||
else
|
||||
{
|
||||
# Find in PATH
|
||||
$file = which($file);
|
||||
}
|
||||
|
||||
return $file;
|
||||
}
|
||||
|
||||
##############################################################################
|
||||
#
|
||||
# Form a command line that can handle spaces in paths and arguments
|
||||
#
|
||||
##############################################################################
|
||||
|
||||
sub quote_options {
|
||||
my @cmd;
|
||||
foreach my $opt ( @_ )
|
||||
{
|
||||
next unless $opt; # If undefined or empty, just skip
|
||||
push(@cmd, "\"$opt\""); # Quote argument
|
||||
}
|
||||
return join(" ", @cmd);
|
||||
}
|
||||
|
||||
##############################################################################
|
||||
#
|
||||
# Main program
|
||||
#
|
||||
##############################################################################
|
||||
|
||||
my $me = get_full_path($0);
|
||||
$basedir = dirname(dirname($me)); # Remove "/bin/mysql_config" part
|
||||
|
||||
my $ldata = '@localstatedir@';
|
||||
my $execdir = '@libexecdir@';
|
||||
my $bindir = '@bindir@';
|
||||
|
||||
# ----------------------------------------------------------------------
|
||||
# If installed, search for the compiled in directory first (might be "lib64")
|
||||
# ----------------------------------------------------------------------
|
||||
|
||||
my $pkglibdir = fix_path('@pkglibdir@',"libmysql/relwithdebinfo",
|
||||
"libmysql/release","libmysql/debug","lib/mysql","lib");
|
||||
|
||||
my $pkgincludedir = fix_path('@pkgincludedir@', "include/mysql", "include");
|
||||
|
||||
# Assume no argument with space in it
|
||||
my @ldflags = split(" ",'@LDFLAGS@');
|
||||
|
||||
my $port;
|
||||
if ( '@MYSQL_TCP_PORT_DEFAULT@' == 0 ) {
|
||||
$port = 0;
|
||||
} else {
|
||||
$port = '@MYSQL_TCP_PORT@';
|
||||
}
|
||||
|
||||
# ----------------------------------------------------------------------
|
||||
# Create options
|
||||
# We intentionally add a space to the beginning and end of lib strings, simplifies replace later
|
||||
# ----------------------------------------------------------------------
|
||||
|
||||
my (@lib_opts,@lib_r_opts,@lib_e_opts);
|
||||
if ( $^O eq "MSWin32" )
|
||||
{
|
||||
my $linkpath = "$pkglibdir";
|
||||
# user32 is only needed for debug or embedded
|
||||
my @winlibs = ("wsock32.lib","advapi32.lib","user32.lib");
|
||||
@lib_opts = ("$linkpath/mysqlclient.lib",@winlibs);
|
||||
@lib_r_opts = @lib_opts;
|
||||
@lib_e_opts = ("$linkpath/mysqlserver.lib",@winlibs);
|
||||
}
|
||||
else
|
||||
{
|
||||
my $linkpath = "-L$pkglibdir";
|
||||
@lib_opts = ($linkpath,"-lmysqlclient");
|
||||
@lib_r_opts = ($linkpath,"-lmysqlclient_r");
|
||||
@lib_e_opts = ($linkpath,"-lmysqld");
|
||||
}
|
||||
|
||||
my $flags;
|
||||
$flags->{libs} =
|
||||
[@ldflags,@lib_opts,'@ZLIB_DEPS@','@NON_THREADED_LIBS@','@openssl_libs@','@STATIC_NSS_FLAGS@'];
|
||||
$flags->{libs_r} =
|
||||
[@ldflags,@lib_r_opts,'@ZLIB_DEPS@','@LIBS@','@openssl_libs@'];
|
||||
$flags->{embedded_libs} =
|
||||
[@ldflags,@lib_e_opts,'@ZLIB_DEPS@','@LIBS@','@WRAPLIBS@','@innodb_system_libs@','@openssl_libs@'];
|
||||
|
||||
$flags->{include} = ["-I$pkgincludedir"];
|
||||
$flags->{cflags} = [@{$flags->{include}},split(" ",'@CFLAGS@')];
|
||||
|
||||
# ----------------------------------------------------------------------
|
||||
# Remove some options that a client doesn't have to care about
|
||||
# FIXME until we have a --cxxflags, we need to remove -Xa
|
||||
# and -xstrconst to make --cflags usable for Sun Forte C++
|
||||
# ----------------------------------------------------------------------
|
||||
|
||||
my $filter = join("|", @exclude_cflags);
|
||||
my @tmp = @{$flags->{cflags}}; # Copy the flag list
|
||||
$flags->{cflags} = []; # Clear it
|
||||
foreach my $cflag ( @tmp )
|
||||
{
|
||||
push(@{$flags->{cflags}}, $cflag) unless $cflag =~ m/^($filter)$/o;
|
||||
}
|
||||
|
||||
# Same for --libs(_r)
|
||||
$filter = join("|", @exclude_libs);
|
||||
foreach my $lib_type ( "libs","libs_r","embedded_libs" )
|
||||
{
|
||||
my @tmp = @{$flags->{$lib_type}}; # Copy the flag list
|
||||
$flags->{$lib_type} = []; # Clear it
|
||||
foreach my $lib ( @tmp )
|
||||
{
|
||||
push(@{$flags->{$lib_type}}, $lib) unless $lib =~ m/^($filter)$/o;
|
||||
}
|
||||
}
|
||||
|
||||
my $include = quote_options(@{$flags->{include}});
|
||||
my $cflags = quote_options(@{$flags->{cflags}});
|
||||
my $libs = quote_options(@{$flags->{libs}});
|
||||
my $libs_r = quote_options(@{$flags->{libs_r}});
|
||||
my $embedded_libs = quote_options(@{$flags->{embedded_libs}});
|
||||
|
||||
##############################################################################
|
||||
#
|
||||
# Usage information, output if no option is given
|
||||
#
|
||||
##############################################################################
|
||||
|
||||
sub usage
|
||||
{
|
||||
print <<EOF;
|
||||
Usage: $0 [OPTIONS]
|
||||
Options:
|
||||
--cflags [$cflags]
|
||||
--include [$include]
|
||||
--libs [$libs]
|
||||
--libs_r [$libs_r]
|
||||
--socket [$socket]
|
||||
--port [$port]
|
||||
--version [$version]
|
||||
--libmysqld-libs [$embedded_libs]
|
||||
EOF
|
||||
exit 1;
|
||||
}
|
||||
|
||||
@ARGV or usage();
|
||||
|
||||
##############################################################################
|
||||
#
|
||||
# Get options and output the values
|
||||
#
|
||||
##############################################################################
|
||||
|
||||
GetOptions(
|
||||
"cflags" => sub { print "$cflags\n" },
|
||||
"include" => sub { print "$include\n" },
|
||||
"libs" => sub { print "$libs\n" },
|
||||
"libs_r" => sub { print "$libs_r\n" },
|
||||
"socket" => sub { print "$socket\n" },
|
||||
"port" => sub { print "$port\n" },
|
||||
"version" => sub { print "$version\n" },
|
||||
"embedded-libs|embedded|libmysqld-libs" =>
|
||||
sub { print "$embedded_libs\n" },
|
||||
) or usage();
|
||||
|
||||
exit 0
|
||||
|
|
@ -1,4 +1,4 @@
|
|||
#!@PERL@
|
||||
#!/usr/bin/perl
|
||||
# Copyright (C) 2000-2002 MySQL AB
|
||||
#
|
||||
# This program is free software; you can redistribute it and/or modify
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
#!@PERL@
|
||||
#!/usr/bin/perl
|
||||
# Copyright (C) 2001-2003, 2006 MySQL AB
|
||||
#
|
||||
# This program is free software; you can redistribute it and/or modify
|
||||
|
|
|
|||
612
scripts/mysql_install_db.pl.in
Normal file
612
scripts/mysql_install_db.pl.in
Normal file
|
|
@ -0,0 +1,612 @@
|
|||
#!/usr/bin/perl
|
||||
# -*- cperl -*-
|
||||
#
|
||||
# Copyright (C) 2007 MySQL AB
|
||||
#
|
||||
# This program is free software; you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; version 2 of the License.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License
|
||||
# along with this program; if not, write to the Free Software
|
||||
# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
|
||||
|
||||
##############################################################################
|
||||
#
|
||||
# This scripts creates the MySQL Server system tables.
|
||||
#
|
||||
# This script try to match the shell script version as close as possible,
|
||||
# but in addition being compatible with ActiveState Perl on Windows.
|
||||
#
|
||||
# All unrecognized arguments to this script are passed to mysqld.
|
||||
#
|
||||
# NOTE: This script in 5.0 doesn't really match the shell script
|
||||
# version 100%, it is more close to the 5.1 version.
|
||||
#
|
||||
# NOTE: This script was deliberately written to be as close to the shell
|
||||
# script as possible, to make the maintenance of both in parallel
|
||||
# easier.
|
||||
#
|
||||
##############################################################################
|
||||
|
||||
use File::Basename;
|
||||
use Getopt::Long;
|
||||
use Sys::Hostname;
|
||||
use Data::Dumper;
|
||||
use strict;
|
||||
|
||||
Getopt::Long::Configure("pass_through");
|
||||
|
||||
my @args; # Argument list filled in
|
||||
|
||||
##############################################################################
|
||||
#
|
||||
# Usage information
|
||||
#
|
||||
##############################################################################
|
||||
|
||||
sub usage
|
||||
{
|
||||
print <<EOF;
|
||||
Usage: $0 [OPTIONS]
|
||||
--basedir=path The path to the MySQL installation directory.
|
||||
--builddir=path If using --srcdir with out-of-directory builds, you
|
||||
will need to set this to the location of the build
|
||||
directory where built files reside.
|
||||
--cross-bootstrap For internal use. Used when building the MySQL system
|
||||
tables on a different host than the target.
|
||||
--datadir=path The path to the MySQL data directory.
|
||||
--force Causes mysql_install_db to run even if DNS does not
|
||||
work. In that case, grant table entries that normally
|
||||
use hostnames will use IP addresses.
|
||||
--ldata=path The path to the MySQL data directory. Same as --datadir.
|
||||
--rpm For internal use. This option is used by RPM files
|
||||
during the MySQL installation process.
|
||||
--skip-name-resolve Use IP addresses rather than hostnames when creating
|
||||
grant table entries. This option can be useful if
|
||||
your DNS does not work.
|
||||
--srcdir=path The path to the MySQL source directory. This option
|
||||
uses the compiled binaries and support files within the
|
||||
source tree, useful for if you don't want to install
|
||||
MySQL yet and just want to create the system tables.
|
||||
--user=user_name The login username to use for running mysqld. Files
|
||||
and directories created by mysqld will be owned by this
|
||||
user. You must be root to use this option. By default
|
||||
mysqld runs using your current login name and files and
|
||||
directories that it creates will be owned by you.
|
||||
|
||||
All other options are passed to the mysqld program
|
||||
|
||||
EOF
|
||||
exit 1;
|
||||
}
|
||||
|
||||
##############################################################################
|
||||
#
|
||||
# Parse an argument list
|
||||
#
|
||||
# We only need to pass arguments through to the server if we don't
|
||||
# handle them here. So, we collect unrecognized options (passed on
|
||||
# the command line) into the args variable.
|
||||
#
|
||||
##############################################################################
|
||||
|
||||
sub parse_arguments
|
||||
{
|
||||
my $opt = shift;
|
||||
|
||||
my @saved_ARGV = @ARGV;
|
||||
@ARGV = @_; # Set ARGV so GetOptions works
|
||||
|
||||
my $pick_args;
|
||||
if (@ARGV and $ARGV[0] eq 'PICK-ARGS-FROM-ARGV')
|
||||
{
|
||||
$pick_args = 1;
|
||||
shift @ARGV;
|
||||
}
|
||||
|
||||
GetOptions(
|
||||
$opt,
|
||||
"force",
|
||||
"basedir=s",
|
||||
"builddir=s", # FIXME not documented
|
||||
"srcdir=s",
|
||||
"ldata|datadir=s",
|
||||
|
||||
# Note that the user will be passed to mysqld so that it runs
|
||||
# as 'user' (crucial e.g. if log-bin=/some_other_path/
|
||||
# where a chown of datadir won't help)
|
||||
"user=s",
|
||||
|
||||
"skip-name-resolve",
|
||||
"verbose",
|
||||
"rpm",
|
||||
"help",
|
||||
"defaults-file|defaults-extra-file|no-defaults:s",
|
||||
|
||||
# Used when building the MySQL system tables on a different host than
|
||||
# the target. The platform-independent files that are created in
|
||||
# --datadir on the host can be copied to the target system.
|
||||
#
|
||||
# The most common use for this feature is in the Windows installer
|
||||
# which will take the files from datadir and include them as part of
|
||||
# the install package. See top-level 'dist-hook' make target.
|
||||
#
|
||||
# --windows is a deprecated alias
|
||||
"cross-bootstrap|windows", # FIXME undocumented, even needed?
|
||||
) or usage();
|
||||
|
||||
usage() if $opt->{help};
|
||||
|
||||
@args = @ARGV if $pick_args;
|
||||
|
||||
@ARGV = @saved_ARGV; # Set back ARGV
|
||||
}
|
||||
|
||||
##############################################################################
|
||||
#
|
||||
# Try to find a specific file within --basedir which can either be a binary
|
||||
# release or installed source directory and return the path.
|
||||
#
|
||||
##############################################################################
|
||||
|
||||
sub find_in_basedir
|
||||
{
|
||||
my $opt = shift;
|
||||
my $mode = shift; # "dir" or "file"
|
||||
my $files = shift;
|
||||
|
||||
foreach my $file ( @{ref($files) ? $files : [$files]} )
|
||||
{
|
||||
foreach my $dir ( @_ )
|
||||
{
|
||||
foreach my $part ( "$file","$file.exe","release/$file.exe",
|
||||
"debug/$file.exe","relwithdebinfo/$file.exe" )
|
||||
{
|
||||
my $path = "$opt->{basedir}/$dir/$part";
|
||||
if ( -f $path )
|
||||
{
|
||||
return $mode eq "dir" ? dirname($path) : $path;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
##############################################################################
|
||||
#
|
||||
# Just a function to write out an error report
|
||||
#
|
||||
##############################################################################
|
||||
|
||||
sub cannot_find_file
|
||||
{
|
||||
my $file = shift;
|
||||
|
||||
print "FATAL ERROR: Could not find $file\n";
|
||||
print "\n";
|
||||
print "If you compiled from source, you need to run 'make install' to\n";
|
||||
print "copy the software into the correct location ready for operation.\n";
|
||||
print "\n";
|
||||
print "If you are using a binary release, you must either be at the top\n";
|
||||
print "level of the extracted archive, or pass the --basedir option\n";
|
||||
print "pointing to that location.\n";
|
||||
print "\n";
|
||||
|
||||
exit 1;
|
||||
}
|
||||
|
||||
##############################################################################
|
||||
#
|
||||
# Form a command line that can handle spaces in paths and arguments
|
||||
#
|
||||
##############################################################################
|
||||
|
||||
# FIXME this backslash escaping needed if using '"..."' ?
|
||||
# This regexp makes sure that any special chars are quoted,
|
||||
# so the arg gets passed exactly to the server.
|
||||
# XXX: This is broken; true fix requires using eval and proper
|
||||
# quoting of every single arg ($opt->{basedir}, $opt->{ldata}, etc.)
|
||||
# join(" ", map {s/([^\w\_\.\-])/\\$1/g}
|
||||
|
||||
sub quote_options {
|
||||
my @cmd;
|
||||
foreach my $opt ( @_ )
|
||||
{
|
||||
next unless $opt; # If undefined or empty, just skip
|
||||
push(@cmd, "\"$opt\""); # Quote argument
|
||||
}
|
||||
return join(" ", @cmd);
|
||||
}
|
||||
|
||||
##############################################################################
|
||||
#
|
||||
# Ok, let's go. We first need to parse arguments which are required by
|
||||
# my_print_defaults so that we can execute it first, then later re-parse
|
||||
# the command line to add any extra bits that we need.
|
||||
#
|
||||
##############################################################################
|
||||
|
||||
my $opt = {};
|
||||
parse_arguments($opt, 'PICK-ARGS-FROM-ARGV', @ARGV);
|
||||
|
||||
# ----------------------------------------------------------------------
|
||||
# We can now find my_print_defaults. This script supports:
|
||||
#
|
||||
# --srcdir=path pointing to compiled source tree
|
||||
# --basedir=path pointing to installed binary location
|
||||
#
|
||||
# or default to compiled-in locations.
|
||||
# ----------------------------------------------------------------------
|
||||
|
||||
my $print_defaults;
|
||||
|
||||
if ( $opt->{srcdir} and $opt->{basedir} )
|
||||
{
|
||||
error("Specify either --basedir or --srcdir, not both");
|
||||
}
|
||||
if ( $opt->{srcdir} )
|
||||
{
|
||||
$opt->{builddir} = $opt->{srcdir} unless $opt->{builddir};
|
||||
$print_defaults = "$opt->{builddir}/extra/my_print_defaults";
|
||||
}
|
||||
elsif ( $opt->{basedir} )
|
||||
{
|
||||
$print_defaults = find_in_basedir($opt,"file","my_print_defaults","bin","extra");
|
||||
}
|
||||
else
|
||||
{
|
||||
$print_defaults='@bindir@/my_print_defaults';
|
||||
}
|
||||
|
||||
-x $print_defaults or -f "$print_defaults.exe"
|
||||
or cannot_find_file($print_defaults);
|
||||
|
||||
# ----------------------------------------------------------------------
|
||||
# Now we can get arguments from the groups [mysqld] and [mysql_install_db]
|
||||
# in the my.cfg file, then re-run to merge with command line arguments.
|
||||
# ----------------------------------------------------------------------
|
||||
|
||||
my @default_options;
|
||||
my $cmd = quote_options($print_defaults,$opt->{'defaults-file'},
|
||||
"mysqld","mysql_install_db");
|
||||
open(PIPE, "$cmd |") or error($opt,"can't run $cmd: $!");
|
||||
while ( <PIPE> )
|
||||
{
|
||||
chomp;
|
||||
next unless /\S/;
|
||||
push(@default_options, $_);
|
||||
}
|
||||
close PIPE;
|
||||
$opt = {}; # Reset the arguments FIXME ?
|
||||
parse_arguments($opt, @default_options);
|
||||
parse_arguments($opt, 'PICK-ARGS-FROM-ARGV', @ARGV);
|
||||
|
||||
# ----------------------------------------------------------------------
|
||||
# Configure paths to support files
|
||||
# ----------------------------------------------------------------------
|
||||
|
||||
# FIXME $extra_bindir is not used
|
||||
my ($bindir,$extra_bindir,$mysqld,$pkgdatadir,$mysqld_opt,$scriptdir);
|
||||
|
||||
if ( $opt->{srcdir} )
|
||||
{
|
||||
$opt->{basedir} = $opt->{builddir};
|
||||
$bindir = "$opt->{basedir}/client";
|
||||
$extra_bindir = "$opt->{basedir}/extra";
|
||||
$mysqld = "$opt->{basedir}/sql/mysqld";
|
||||
$mysqld_opt = "--language=$opt->{srcdir}/sql/share/english";
|
||||
$pkgdatadir = "$opt->{srcdir}/scripts";
|
||||
$scriptdir = "$opt->{srcdir}/scripts";
|
||||
}
|
||||
elsif ( $opt->{basedir} )
|
||||
{
|
||||
$bindir = "$opt->{basedir}/bin";
|
||||
$extra_bindir = $bindir;
|
||||
$mysqld = find_in_basedir($opt,"file",["mysqld-nt","mysqld"],
|
||||
"libexec","sbin","bin") || # ,"sql"
|
||||
find_in_basedir($opt,"file","mysqld-nt",
|
||||
"bin"); # ,"sql"
|
||||
$pkgdatadir = find_in_basedir($opt,"dir","fill_help_tables.sql",
|
||||
"share","share/mysql"); # ,"scripts"
|
||||
$scriptdir = "$opt->{basedir}/scripts";
|
||||
}
|
||||
else
|
||||
{
|
||||
$opt->{basedir} = '@prefix@';
|
||||
$bindir = '@bindir@';
|
||||
$extra_bindir = $bindir;
|
||||
$mysqld = '@libexecdir@/mysqld';
|
||||
$pkgdatadir = '@pkgdatadir@';
|
||||
$scriptdir = '@scriptdir@';
|
||||
}
|
||||
|
||||
unless ( $opt->{ldata} )
|
||||
{
|
||||
$opt->{ldata} = '@localstatedir@';
|
||||
}
|
||||
|
||||
if ( $opt->{srcdir} )
|
||||
{
|
||||
$pkgdatadir = "$opt->{srcdir}/scripts";
|
||||
}
|
||||
|
||||
# ----------------------------------------------------------------------
|
||||
# Set up paths to SQL scripts required for bootstrap
|
||||
# ----------------------------------------------------------------------
|
||||
|
||||
my $fill_help_tables = "$pkgdatadir/fill_help_tables.sql";
|
||||
my $create_system_tables = "$pkgdatadir/mysql_system_tables.sql";
|
||||
my $fill_system_tables = "$pkgdatadir/mysql_system_tables_data.sql";
|
||||
|
||||
foreach my $f ( $fill_help_tables,$create_system_tables,$fill_system_tables )
|
||||
{
|
||||
-f $f or cannot_find_file($f);
|
||||
}
|
||||
|
||||
-x $mysqld or -f "$mysqld.exe" or cannot_find_file($mysqld);
|
||||
# Try to determine the hostname
|
||||
my $hostname = hostname();
|
||||
|
||||
# ----------------------------------------------------------------------
|
||||
# Check if hostname is valid
|
||||
# ----------------------------------------------------------------------
|
||||
|
||||
my $resolved;
|
||||
if ( !$opt->{'cross-bootstrap'} and !$opt->{rpm} and !$opt->{force} )
|
||||
{
|
||||
my $resolveip;
|
||||
|
||||
$resolved = `$resolveip $hostname 2>&1`;
|
||||
if ( $? != 0 )
|
||||
{
|
||||
$resolved=`$resolveip localhost 2>&1`;
|
||||
if ( $? != 0 )
|
||||
{
|
||||
error($opt,
|
||||
"Neither host '$hostname' nor 'localhost' could be looked up with",
|
||||
"$bindir/resolveip",
|
||||
"Please configure the 'hostname' command to return a correct",
|
||||
"hostname.",
|
||||
"If you want to solve this at a later stage, restart this script",
|
||||
"with the --force option");
|
||||
}
|
||||
warning($opt,
|
||||
"The host '$hostname' could not be looked up with resolveip.",
|
||||
"This probably means that your libc libraries are not 100 % compatible",
|
||||
"with this binary MySQL version. The MySQL daemon, mysqld, should work",
|
||||
"normally with the exception that host name resolving will not work.",
|
||||
"This means that you should use IP addresses instead of hostnames",
|
||||
"when specifying MySQL privileges !");
|
||||
}
|
||||
}
|
||||
|
||||
# FIXME what does this really mean....
|
||||
if ( $opt->{'skip-name-resolve'} and $resolved and $resolved =~ /\s/ )
|
||||
{
|
||||
$hostname = (split(' ', $resolved))[5];
|
||||
}
|
||||
|
||||
# ----------------------------------------------------------------------
|
||||
# Create database directories mysql & test
|
||||
# ----------------------------------------------------------------------
|
||||
|
||||
foreach my $dir ( $opt->{ldata}, "$opt->{ldata}/mysql", "$opt->{ldata}/test" )
|
||||
{
|
||||
# FIXME not really the same as original "mkdir -p", but ok?
|
||||
mkdir($dir, 0700) unless -d $dir;
|
||||
chown($opt->{user}, $dir) if -w "/" and !$opt->{user};
|
||||
}
|
||||
|
||||
push(@args, "--user=$opt->{user}") if $opt->{user};
|
||||
|
||||
# ----------------------------------------------------------------------
|
||||
# Configure mysqld command line
|
||||
# ----------------------------------------------------------------------
|
||||
|
||||
# FIXME use --init-file instead of --bootstrap ?!
|
||||
|
||||
my $mysqld_bootstrap = $ENV{MYSQLD_BOOTSTRAP} || $mysqld;
|
||||
my $mysqld_install_cmd_line = quote_options($mysqld_bootstrap,
|
||||
$opt->{'defaults-file'},
|
||||
$mysqld_opt,
|
||||
"--bootstrap",
|
||||
"--basedir=$opt->{basedir}",
|
||||
"--datadir=$opt->{ldata}",
|
||||
"--skip-innodb",
|
||||
"--skip-bdb",
|
||||
"--skip-ndbcluster",
|
||||
"--max_allowed_packet=8M",
|
||||
"--net_buffer_length=16K",
|
||||
@args,
|
||||
);
|
||||
|
||||
# ----------------------------------------------------------------------
|
||||
# Create the system and help tables by passing them to "mysqld --bootstrap"
|
||||
# ----------------------------------------------------------------------
|
||||
|
||||
report_verbose_wait($opt,"Installing MySQL system tables...");
|
||||
|
||||
open(SQL, $create_system_tables)
|
||||
or error($opt,"can't open $create_system_tables for reading: $!");
|
||||
# FIXME > /dev/null ?
|
||||
if ( open(PIPE, "| $mysqld_install_cmd_line") )
|
||||
{
|
||||
print PIPE "use mysql;\n";
|
||||
while ( <SQL> )
|
||||
{
|
||||
# When doing a "cross bootstrap" install, no reference to the current
|
||||
# host should be added to the system tables. So we filter out any
|
||||
# lines which contain the current host name.
|
||||
next if $opt->{'cross-bootstrap'} and /\@current_hostname/;
|
||||
|
||||
print PIPE $_;
|
||||
}
|
||||
close PIPE;
|
||||
close SQL;
|
||||
|
||||
report_verbose($opt,"OK");
|
||||
|
||||
# ----------------------------------------------------------------------
|
||||
# Pipe fill_help_tables.sql to "mysqld --bootstrap"
|
||||
# ----------------------------------------------------------------------
|
||||
|
||||
report_verbose_wait($opt,"Filling help tables...");
|
||||
open(SQL, $fill_help_tables)
|
||||
or error($opt,"can't open $fill_help_tables for reading: $!");
|
||||
# FIXME > /dev/null ?
|
||||
if ( open(PIPE, "| $mysqld_install_cmd_line") )
|
||||
{
|
||||
print PIPE "use mysql;\n";
|
||||
while ( <SQL> )
|
||||
{
|
||||
print PIPE $_;
|
||||
}
|
||||
close PIPE;
|
||||
close SQL;
|
||||
|
||||
report_verbose($opt,"OK");
|
||||
}
|
||||
else
|
||||
{
|
||||
warning($opt,"HELP FILES ARE NOT COMPLETELY INSTALLED!",
|
||||
"The \"HELP\" command might not work properly");
|
||||
}
|
||||
|
||||
report_verbose($opt,"To start mysqld at boot time you have to copy",
|
||||
"support-files/mysql.server to the right place " .
|
||||
"for your system");
|
||||
|
||||
if ( !$opt->{'cross-bootstrap'} )
|
||||
{
|
||||
# This is not a true installation on a running system. The end user must
|
||||
# set a password after installing the data files on the real host system.
|
||||
# At this point, there is no end user, so it does not make sense to print
|
||||
# this reminder.
|
||||
report($opt,
|
||||
"PLEASE REMEMBER TO SET A PASSWORD FOR THE MySQL root USER !",
|
||||
"To do so, start the server, then issue the following commands:",
|
||||
"",
|
||||
" $bindir/mysqladmin -u root password 'new-password'",
|
||||
" $bindir/mysqladmin -u root -h $hostname password 'new-password'",
|
||||
"",
|
||||
"Alternatively you can run:",
|
||||
"",
|
||||
" $bindir/mysql_secure_installation",
|
||||
"",
|
||||
"which will also give you the option of removing the test",
|
||||
"databases and anonymous user created by default. This is",
|
||||
"strongly recommended for production servers.",
|
||||
"",
|
||||
"See the manual for more instructions.");
|
||||
|
||||
if ( !$opt->{rpm} )
|
||||
{
|
||||
report($opt,
|
||||
"You can start the MySQL daemon with:",
|
||||
"",
|
||||
" cd " . '@prefix@' . " ; $bindir/mysqld_safe &",
|
||||
"",
|
||||
"You can test the MySQL daemon with mysql-test-run.pl",
|
||||
"",
|
||||
" cd mysql-test ; perl mysql-test-run.pl");
|
||||
}
|
||||
report($opt,
|
||||
"Please report any problems with the " . '@scriptdir@' . "/mysqlbug script!",
|
||||
"",
|
||||
"The latest information about MySQL is available on the web at",
|
||||
"",
|
||||
" http://www.mysql.com",
|
||||
"",
|
||||
"Support MySQL by buying support/licenses at http://shop.mysql.com");
|
||||
}
|
||||
exit 0
|
||||
}
|
||||
else
|
||||
{
|
||||
error($opt,
|
||||
"Installation of system tables failed!",
|
||||
"",
|
||||
"Examine the logs in $opt->{ldata} for more information.",
|
||||
"You can try to start the mysqld daemon with:",
|
||||
"$mysqld --skip-grant &",
|
||||
"and use the command line tool",
|
||||
"$bindir/mysql to connect to the mysql",
|
||||
"database and look at the grant tables:",
|
||||
"",
|
||||
"shell> $bindir/mysql -u root mysql",
|
||||
"mysql> show tables",
|
||||
"",
|
||||
"Try 'mysqld --help' if you have problems with paths. Using --log",
|
||||
"gives you a log in $opt->{ldata} that may be helpful.",
|
||||
"",
|
||||
"The latest information about MySQL is available on the web at",
|
||||
"http://www.mysql.com",
|
||||
"Please consult the MySQL manual section: 'Problems running mysql_install_db',",
|
||||
"and the manual section that describes problems on your OS.",
|
||||
"Another information source is the MySQL email archive.",
|
||||
"Please check all of the above before mailing us!",
|
||||
"And if you do mail us, you MUST use the " . '@scriptdir@' . "/mysqlbug script!")
|
||||
}
|
||||
|
||||
##############################################################################
|
||||
#
|
||||
# Misc
|
||||
#
|
||||
##############################################################################
|
||||
|
||||
sub report_verbose
|
||||
{
|
||||
my $opt = shift;
|
||||
my $text = shift;
|
||||
|
||||
report_verbose_wait($opt, $text, @_);
|
||||
print "\n\n";
|
||||
}
|
||||
|
||||
sub report_verbose_wait
|
||||
{
|
||||
my $opt = shift;
|
||||
my $text = shift;
|
||||
|
||||
if ( $opt->{verbose} or (!$opt->{rpm} and !$opt->{'cross-bootstrap'}) )
|
||||
{
|
||||
print "$text";
|
||||
map {print "\n$_"} @_;
|
||||
}
|
||||
}
|
||||
|
||||
sub report
|
||||
{
|
||||
my $opt = shift;
|
||||
my $text = shift;
|
||||
|
||||
print "$text\n";
|
||||
map {print "$_\n"} @_;
|
||||
print "\n";
|
||||
}
|
||||
|
||||
sub error
|
||||
{
|
||||
my $opt = shift;
|
||||
my $text = shift;
|
||||
|
||||
print "FATAL ERROR: $text\n";
|
||||
map {print "$_\n"} @_;
|
||||
exit 1;
|
||||
}
|
||||
|
||||
sub warning
|
||||
{
|
||||
my $opt = shift;
|
||||
my $text = shift;
|
||||
|
||||
print "WARNING: $text\n";
|
||||
map {print "$_\n"} @_;
|
||||
print "\n";
|
||||
}
|
||||
|
|
@ -1,4 +1,4 @@
|
|||
#!@PERL@ -w
|
||||
#!/usr/bin/perl
|
||||
|
||||
use strict;
|
||||
use Getopt::Long;
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
#!@PERL@
|
||||
#!/usr/bin/perl
|
||||
|
||||
use Getopt::Long;
|
||||
use POSIX qw(strftime);
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
#!@PERL@
|
||||
#!/usr/bin/perl
|
||||
# mysqldumpslow - parse and summarize the MySQL slow query log
|
||||
|
||||
# Original version by Tim Bunce, sometime in 2000.
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
#!@PERL@ -w
|
||||
#!/usr/bin/perl
|
||||
|
||||
use strict;
|
||||
use Getopt::Long;
|
||||
|
|
|
|||
Loading…
Reference in a new issue