Commit 6f45a5f1 authored by unknown's avatar unknown
Browse files

Merge bk-internal.mysql.com:/home/bk/mysql-4.0 

into here.mwagner.org:/Volumes/BK/mysql-4.0
parents aae8874d 7b6712a0

Build-tools/Bootstrap

+5 −4
Original line number Diff line number Diff line
@@ -46,6 +46,7 @@ $opt_test= undef; 
$opt_skip_check= undef;

$opt_skip_manual= undef;

$opt_win_dist= undef;

$opt_quiet= undef;

$version= "unknown";

$major=$minor=$release=0;
@@ -67,7 +68,8 @@ GetOptions( 
	"suffix=s",

	"test|t",

	"verbose|v",

	"win-dist|w"

	"win-dist|w",

        "quiet|q",

) || print_help("");



#
@@ -99,8 +101,6 @@ if (defined $opt_build_command) 
print_help("") if ($opt_help);

defined($REPO=$ARGV[0]) || print_help("Please enter the BK repository to be used!");



$subject= "Bootstrap of $REPO failed" if $opt_mail;



&logger("Starting build");

&abort("The directory \"$REPO\" could not be found!") if (!-d $REPO);

&logger("Using $REPO as the BK parent repository");
@@ -306,7 +306,7 @@ if (!$opt_dry_run) 
#

# Now build the source distribution

#

&logger("Compiling");

&logger("Compiling...");

$command= $build_command;

&run_command($command, "Compilation failed!");
@@ -403,6 +403,7 @@ Options: 
                           include a log file snippet, if logging is enabled)

                           Note that the \@-Sign needs to be quoted!

                           Example: --mail=user\\\@domain.com

-q, --quiet                Be quiet

-p, --pull                 Update the source BK trees before building

-r, --revision=<rev>       Export the tree as of revision <rev>

                           (default is up to the latest revision)

Build-tools/logger.pm

+11 −4
Original line number Diff line number Diff line
@@ -6,6 +6,9 @@ 
sub logger

{

	my $message= $_[0];

	my $cmnd= $_[1];



	print $message . "\n" if !$opt_quiet && !$opt_verbose && !$cmnd;

	print timestamp() . " " . $message . "\n" if $opt_verbose;

	if (defined $opt_log && !$opt_dry_run)

	{
@@ -30,9 +33,12 @@ sub run_command 
	}

	else

	{

		&logger($command);

		$command.= " >> $LOGFILE 2>&1" if defined $opt_log;

		$command.= " > /dev/null" if (!$opt_verbose && !$opt_log);

	        &logger($command, 1);



		$command.= ';' unless ($command =~ m/^.*;$/);



		$command =~ s/;/ >> $LOGFILE 2>&1;/g if defined $opt_log;

		$command =~ s/;/ > \/dev\/null;/g if (!$opt_verbose && !$opt_log);

		system($command) == 0 or &abort("$errormsg\n");

	}

}
@@ -47,6 +53,7 @@ sub abort 
{

	my $message= $_[0];

	my $messagefile;

	my $subject= "Bootstrap of $REPO failed" if $opt_mail;

	$message= "ERROR: " . $message;

	&logger($message);

Build-tools/my_md5sum

+12 −1
Original line number Diff line number Diff line
@@ -10,10 +10,21 @@ 
# Written by Matt Wagner <matt@mysql.com>

#

use strict;



#

# Use local perl libraries first. 'unshift' adds to the front of @INC

# The local perl library dir hidden is $HOME/.perllibs on each build host

#

BEGIN

{

        my $homedir= $ENV{HOME};

        unshift (@INC, "$homedir/.perllibs");

}



use Digest::MD5;

use Getopt::Long;



my $VER= "1.1";

my $VER= "1.2";



#

# Strip the leading path info off the program name ($0). We want 'my_md5sum'