bk commit into 4.0 tree (mwagner:1.1896)

[mwagner]

Below is the list of changes that have just been committed into a local
4.0 repository of mwagner. When mwagner does a push these changes will
be propagated to the main repository and, within 24 hours after the
push, to the public repository.
For information on how to access the public repository
see http://www.mysql.com/doc/I/n/Installing_source_tree.html

ChangeSet
  1.1896 04/07/08 13:51:18 mwagner@stripped +1 -0
  Do-compile:
    Added support for MD5 verification of file transfers

  Build-tools/Do-compile
    1.83 04/07/08 13:50:46 mwagner@stripped +18 -1
    Added support for MD5 verification of file transfers

# This is a BitKeeper patch.  What follows are the unified diffs for the
# set of deltas contained in the patch.  The rest of the patch, the part
# that BitKeeper cares about, is below these diffs.
# User:	mwagner
# Host:	here.mwagner.org
# Root:	/Volumes/BK/mysql-4.0-work

--- 1.82/Build-tools/Do-compile	Tue Jun  8 15:22:29 2004
+++ 1.83/Build-tools/Do-compile	Thu Jul  8 13:50:46 2004
@@ -202,6 +202,17 @@
 safe_cd($host);
 if ($opt_stage == 0 && ! $opt_use_old_distribution)
 {
+  $md5_result= safe_system("my_md5sum -c ${opt_distribution}.md5");
+
+  if ($md5_result != 0)
+  {
+	abort("MD5 failed for $opt_distribution!");
+  }
+  else
+  {
+	info("SUCCESS: MD5 checks for $opt_distribution");
+  }
+
   safe_system("gunzip < $opt_distribution | $tar xf -");
 
   # Fix file times; This is needed because the time for files may be
@@ -320,6 +331,9 @@
 $tar_file=<$pwd/$host/mysql*.t*gz>;
 abort ("Could not find tarball!") unless ($tar_file);
 
+# Generate the MD5 for the binary distribution
+safe_system("my_md5sum $tar_file > ${tar_file}.md5}");
+
 #
 # Unpack the binary distribution
 #
@@ -633,7 +647,10 @@
   my($com,$res)=@_;
   print LOG "$com\n";
   print "$host: $com\n" if ($opt_debug);
-  system("$com >> $log 2>&1") && abort("error: Couldn't execute command, error: " . ($? / 256));
+  my $result= system("$com >> $log 2>&1");
+  abort("error: Couldn't execute command, error: " . ($? / 256)) unless $result == 0;
+
+  return $result;
 }
 
 sub check_system