Merge work:/home/bk/mysql-4.0 into rescue.:/my/bk/mysql-4.0

davida@isil.mysql.com

heikki@donna.mysql.fi

heikki@hundin.mysql.fi

heikki@work.mysql.com

jani@dsl-jkl1657.dial.inet.fi

jani@hynda.(none)

jani@hynda.mysql.fi

kaj@work.mysql.com

lenz@kallisto.mysql.com

lenz@mysql.com

miguel@hegel.br

miguel@hegel.local

miguel@light.local

monty@bitch.mysql.fi

monty@mashka.mysql.fi

monty@narttu.

monty@narttu.mysql.fi

monty@rescue.

monty@tik.

monty@tik.mysql.fi

monty@tramp.mysql.fi

monty@work.mysql.com

mwagner@cash.mwagner.org

mwagner@evoq.mwagner.org

nick@mysql.com

nick@nick.leippe.com

paul@central.snake.net

paul@teton.kitebird.com

zak@balfor.local

zak@linux.local

zgreant@mysql.com

miguel@hegel.br

monty@rescue.

#!/usr/bin/perl

#!/usr/bin/perl -w

use Getopt::Long;

$opt_distribution=$opt_user=$opt_result=$opt_config_options=$opt_config_env="";

$opt_dbd_options=$opt_perl_options=$opt_make_options=$opt_suffix="";

@config_options= ();

@make_options= ();

$opt_distribution=$opt_user=$opt_config_env="";

$opt_dbd_options=$opt_perl_options=$opt_config_options=$opt_make_options=$opt_suffix="";

$opt_tmp=$opt_version_suffix="";

$opt_help=$opt_Information=$opt_delete=$opt_debug=$opt_stage=$opt_rsh_mail=$opt_no_test=$opt_no_perl=$opt_with_low_memory=$opt_fast_benchmark=$opt_static_client=$opt_static_server=$opt_static_perl=$opt_sur=$opt_with_small_disk=$opt_local_perl=$opt_tcpip=$opt_build_thread=$opt_no_mysqltest=$opt_use_old_distribution=$opt_enable_shared=$opt_no_crash_me=$opt_no_strip=0;

$opt_help=$opt_delete=$opt_debug=$opt_stage=$opt_no_test=$opt_no_perl=$opt_with_low_memory=$opt_fast_benchmark=$opt_static_client=$opt_static_server=$opt_static_perl=$opt_sur=$opt_with_small_disk=$opt_local_perl=$opt_tcpip=$opt_build_thread=$opt_use_old_distribution=$opt_enable_shared=$opt_no_crash_me=$opt_no_strip=0;

$opt_innodb=$opt_bdb=$opt_raid=$opt_libwrap=0;

GetOptions("Information","help","distribution=s","user=s","result=s","delete","no-test","no-mysqltest","perl-files=s","debug","config-options=s","config-env=s","stage=i","rsh-mail","with-low-memory","fast-benchmark","tmp=s","static-client","static-server","static-perl","no-perl","local-perl","perl-options=s","make-options=s","sur","with-small-disk","dbd-options=s","tcpip","suffix=s","build-thread=i","innodb","bdb","raid","libwrap","use-old-distribution","enable-shared","no-crash-me","no-strip","version-suffix=s", "with-other-libc=s") || usage();

usage() if ($opt_help || $opt_Information);

GetOptions(

	"bdb",

	"build-thread=i",

	"config-env=s",

	"config-options=s" => \@config_options,

	"dbd-options=s",

	"debug",

	"delete",

	"distribution=s",

	"enable-shared",

	"fast-benchmark",

	"help|Information",

	"innodb",

	"libwrap",

	"local-perl",

	"make-options=s" => \@make_options,

	"no-crash-me",

	"no-perl",

	"no-strip",

	"no-test|no-mysqltest",

	"perl-files=s",

	"perl-options=s",

	"raid",

	"stage=i",

	"static-client",

	"static-perl",

	"static-server",

	"suffix=s",

	"sur",

	"tcpip",

	"tmp=s",

	"use-old-distribution",

	"user=s",

	"version-suffix=s",

	"with-low-memory",

	"with-other-libc=s",

	"with-small-disk",

) || usage();

usage() if ($opt_help);

usage() if (!$opt_distribution);

if ($opt_bdb && $opt_version_suffix eq "")

  $opt_version_suffix="-max";

}

if (@make_options > 0)

{

	chomp(@make_options);

	$opt_make_options= join(" ", @make_options);

}

if (@config_options > 0)

{

	chomp(@config_options);

	$opt_config_options= join(" ", @config_options);

}

chomp($host=`hostname`);

$full_host_name=$host;

info("Compiling MySQL$opt_version_suffix at $host$suffix, stage: $opt_stage\n");

$connect_option= ($opt_tcpip ? "--host=$host" : "");

$host =~ /^([^.-]*)/;

$host=$1 . $opt_suffix;

}

$bench_tmpdir="$opt_tmp/my_build-$host";

$ENV{'PATH'}= "$pwd/$host/bin:" . $ENV{'PATH'}; 

$rsh=which("rcmd","rsh");

$make=which("gmake","make");	# Can't use -j here!

$tar=which("gtar","tar");

$sendmail=find("/usr/lib/sendmail","/usr/sbin/sendmail");

select STDOUT;

$|=1;

info("Compiling MySQL$opt_version_suffix at $host$opt_suffix, stage: $opt_stage\n");

if (-x "$host/bin/mysqladmin")

{

  log_system("$host/bin/mysqladmin --no-defaults -u root -S $mysql_unix_port -s shutdown");

}

safe_cd("$pwd/$host/$ver");

#

# Configure the sources

#

if ($opt_stage <= 1)

{

  $opt_config_options.=" --with-low-memory" if ($opt_with_low_memory);

  # Fix files if this is in another timezone than work.mysql.com

  # Fix files if this is in another timezone than the build host

  unlink("config.cache");

  unlink("bdb/build_unix/config.cache");

  unlink("innobase/config.cache");

  log_system("$make clean") if ($opt_use_old_distribution);

  if ($opt_static_server)

  {

    $opt_config_options.=" --with-mysqld-ldflags=-all-static";

  }

  if ($opt_static_client)

  {

    $opt_config_options.=" --with-client-ldflags=-all-static";

  }

  $opt_config_options.= " --disable-shared" if (!$opt_enable_shared); # Default for binary versions

  $opt_config_options.= " --with-berkeley-db" if ($opt_bdb);

  $opt_config_options.= " --with-client-ldflags=-all-static" if ($opt_static_client);

  $opt_config_options.= " --with-innodb" if ($opt_innodb);

  $opt_config_options.= " --with-libwrap" if ($opt_libwrap);

  $opt_config_options.= " --with-low-memory" if ($opt_with_low_memory);

  $opt_config_options.= " --with-mysqld-ldflags=-all-static" if ($opt_static_server);

  $opt_config_options.= " --with-raid" if ($opt_raid);

  if ($opt_with_other_libc)

  {

    $opt_with_other_libc= " --with-other-libc=$opt_with_other_libc";

    $opt_config_options.= " $opt_with_other_libc";

  }

  if (!$opt_enable_shared)

  {

    $opt_config_options.= " --disable-shared"; # Default for binary versions

  }

  if ($opt_bdb)

  {

    $opt_config_options.= " --with-berkeley-db"

  }

  if ($opt_raid)

  {

    $opt_config_options.= " --with-raid"

  }

  if ($opt_innodb)

  {

    $opt_config_options.= " --with-innodb"

  }

  if ($opt_libwrap)

  {

    $opt_config_options.= " --with-libwrap"

    $opt_config_options.= $opt_with_other_libc;

  }

  check_system("$opt_config_env ./configure --prefix=/usr/local/mysql --with-comment=\"Official MySQL$opt_version_suffix binary\" --with-extra-charsets=complex --with-server-suffix=\"$opt_version_suffix\" --enable-thread-safe-client --enable-local-infile $opt_config_options","Thank you for choosing MySQL");

  if (-d "$pwd/$host/include-mysql")

  {

  }

}

#

# Compile the binaries

#

if ($opt_stage <= 2)

{

  my ($command);

}

#

# Create a binary distrubtion

# Create the binary distribution

#

if ($opt_stage <= 3)

{

  my ($flags);

  my $flags= "";

  log_system("rm -fr mysql-3* mysql-4* $pwd/$host/*.tar.gz");

  log_system("nm -n sql/mysqld | gzip -9 -v 2>&1 > sql/mysqld.sym.gz | cat");

  $flags="";

  $flags.= "--no-strip" if ($opt_no_strip);

  check_system("scripts/make_binary_distribution --tmp=$opt_tmp --suffix=$opt_suffix $flags",".tar.gz created");

  safe_system("mv mysql*.tar.gz $pwd/$host");

  safe_system("$make clean") if ($opt_with_small_disk);

}

#

# Unpack and test the binary distrubtion

#

$tar_file=<$pwd/$host/*.tar.gz>;

if (!defined($tar_file))

{

  $tar_file=<$pwd/$host/*.tgz>;

}

#

# Unpack the binary distribution

#

if ($opt_stage <= 4 && !$opt_no_test)

{

  rm_all(<$pwd/$host/test/*>);

$test_dir="$pwd/$host/test/$ver";

$ENV{"LD_LIBRARY_PATH"}= "$test_dir/lib:" . $ENV{"LD_LIBRARY_PATH"};

if ($opt_stage <= 5 && !$opt_no_test && !$opt_no_mysqltest)

#

# Run the test suite

#

if ($opt_stage <= 5 && !$opt_no_test)

{

  system("mkdir $bench_tmpdir") if (! -d $bench_tmpdir);

  safe_cd("${test_dir}/mysql-test");

  check_system("./mysql-test-run --warnings --tmpdir=$bench_tmpdir --master_port=$mysql_tcp_port --slave_port=$slave_port --manager-port=$manager_port --no-manager --sleep=10", "tests were successful");

}

#

# Start the server if we are going to run any of the benchmarks

#

if (!$opt_no_test)

{

  my $extra;

  sleep(2);

}

#

# Compile and install the required Perl modules

#

if ($opt_stage <= 7 && $opt_perl_files && !$opt_no_perl && !$opt_no_test)

{

  safe_cd($test_dir);

  }

}

#

# Run crash-me test

#

if ($opt_stage <= 8 && !$opt_no_test && !$opt_no_crash_me)

{

  safe_cd("$test_dir/sql-bench");

  safe_system("perl ./crash-me --force --batch-mode $connect_option");

}

#

# Run sql-bench Benchmarks

#

if ($opt_stage <= 9 && !$opt_no_test)

{

  safe_cd("$test_dir/sql-bench");

  }

}

if ($opt_stage <= 10 && $opt_result)

{

  safe_system("rcp $pwd/$host/*.tar.gz $opt_result");

}

rm_all($bench_tmpdir);

rm_all("$opt_tmp") if ($new_opt_tmp);

$0 takes the following options:

--bdb

Compile with support for Berkeley DB tables

--config-env <environment for configure>

To set up the environment, like 'CC=cc CXX=gcc CXXFLAGS=-O3'

--config-options <options>

To add some extra options to configure (e.g. '--with-perl=yes')

--dbd-options <options>

Options for Makefile.PL when configuring msql-mysql-modules.

--debug

Print all shell commands on stdout.

--delete

Delete the distribution file.

--distribution <distribution_file>

Name of the MySQL source distribution file.

--enable-shared

Compile with shared libraries

--fast-benchmark

Run fast benchmark only to speed up testing

--help or --Information

Show this help

--innodb

Compile with support for Innodb tables

--bdb

Compile with support for Berkeley DB tables

--libwrap

Compile with TCP wrapper support

--user 'user_name'

Mail 'user_name'\@mysql.com if something went wrong.

If user is empty then no mail is sent.

--local-perl

Install Perl modules locally

--make-options <options>

Options to make after configure. (Like 'CXXLD=gcc')

--distribution 'distribution_file'

Name of the MySQL distribution file.

--no-crash-me

Do not run the "crash-me" test

--result 'result_dir'

Send binary distribution to result_dir

--no-strip

Do not strip the binaries included in the binary distribution

--no-delete

Do not delete the distribution file.

--no-test

Do not run any tests

--perl-files=list of files

Compile and install the given perl modules.

--no-test

Don not run crash-me or the benchmarks.

--perl-options <options>

Build Perl modules with the additional options

--config-options 'some extra configure options'

To add some extra options, like '--with-perl=yes'

--raid

Compile with RAID support

--config-env 'environment for configure'

To set up the environment, like 'CC=cc CXX=gcc CXXFLAGS=-O3'

--stage (1-6)

Start script from some specific point.

--dbd-options 'options'

Options for Makefile.PL when configuring msql-mysql-modules.

--static-client

Build statically linked client binaries

--make-options 'options'

Options to make after configure. (Like 'CXXLD=gcc')

--static-perl

Build statically linked Perl modules

--static-server

Build statically linked server binary

--tcpip

Connect to the server to be tested via TCP/IP instead of socket

--tmp <directory>

Use a different temporary directory than /tmp

--use-old-distribution

Do not clean up the build environment and extract a fresh source

distribution, use an existing one instead.

--user <user_name>

Mail 'user_name'\@mysql.com if something went wrong.

If user is empty then no mail is sent.

--version-suffix suffix

Can be used to set a suffix (normally 'com' or '-max') for a distribution

Set name suffix (e.g. 'com' or '-max') for a distribution

--with-low-memory

Use less memory when compiling.

-- stage (1-6)

Start script from some specific point.

--with-other-libc <path to libc>

Link against libc and other standard libraries installed in the specified

non-standard location overriding default.

-- debug

Print all shell commands on stdout.

--with-small-disk

Clean up the build environment before testing the binary distribution

(to save disk space)

EOF

exit 1;

} 

sub abort

{

  my($message)=@_;

  my($command,$mail_header_file);

  my($mail_header_file);

  print LOG "\n$message\n";

  print "$host: $message\n" if ($opt_debug);

  close LOG;

    print TMP "To: $email\n";

    print TMP "Subject: MySQL compilation failed again\n\n";

    close TMP;

    $command=($opt_rsh_mail) ? "$rsh analytik" : "";

    system("tail -30 $log > $log.mail");

    system("cat $mail_header_file $log.mail | $command $sendmail -t -f $email");

    system("cat $mail_header_file $log.mail | $sendmail -t -f $email");

    unlink($mail_header_file);

    unlink("$log.mail");

  }

  while (end > file_name && (isspace(end[-1]) || iscntrl(end[-1])))

    end--;

  end[0]= 0;

  if (!strlen(file_name))

  if (end == file_name)

  {

    printf("No outfile specified!\n");

    return 0;

   (gptr*) &ignore_errors, (gptr*) &ignore_errors, 0, GET_BOOL, NO_ARG, 0, 0,

   0, 0, 0, 0},

  {"extended", 'e',

   "If you are using this option with CHECK TABLE, it will ensure that the table is 100 percent consistent, but will take a long time. If you are using this option with REPAIR TABLE, it will run an extended repair on the table, which may not only take a long time to execute, but may produce a lot of garbage rows also!",

   "If you are using this option with CHECK TABLE, it will ensure that the table is 100 percent consistent, but will take a long time. If you are using this option with REPAIR TABLE, it will force using old slow repair with keycache method, instead of much faster repair by sorting.",

   (gptr*) &opt_extended, (gptr*) &opt_extended, 0, GET_BOOL, NO_ARG, 0, 0, 0,

   0, 0, 0},

  {"help", '?', "Display this help message and exit.", 0, 0, 0, GET_NO_ARG,