From c80e4f1affc9b037f56428f18642c5768300bdac Mon Sep 17 00:00:00 2001
From: unknown <lenz@mysql.com>
Date: Wed, 13 Apr 2005 19:18:22 +0200
Subject: [PATCH] - removed more build tools that are now maintained seperately

BitKeeper/deleted/.del-Do-solaris-pkg~43f194aa28e68532:
  Delete: Build-tools/Do-solaris-pkg
BitKeeper/deleted/.del-Do-hpux-depot~d69e0b7c7f19d3:
  Delete: Build-tools/Do-hpux-depot
---
 Build-tools/Do-hpux-depot  |  85 -----------------
 Build-tools/Do-solaris-pkg | 183 -------------------------------------
 2 files changed, 268 deletions(-)
 delete mode 100755 Build-tools/Do-hpux-depot
 delete mode 100644 Build-tools/Do-solaris-pkg

diff --git a/Build-tools/Do-hpux-depot b/Build-tools/Do-hpux-depot
deleted file mode 100755
index f7e8e2c020..0000000000
--- a/Build-tools/Do-hpux-depot
+++ /dev/null
@@ -1,85 +0,0 @@
-#!/usr/bin/perl
-
-#
-# By Matt Wagner <matt@mysql.com> 2005
-#
-# This script generates HP Depot packages for MySQL Server.
-# It basically repackages a binary tarball as a depot.
-#
-# Usage: ./Do-hpux-depot <untarred-binary-tarball>
-#
-
-$fullname = shift @ARGV;
-$fullname or die "No package name was specified";
--d $fullname or die "That directory is not present!";
-
-$fullname =~ s,/+$,,;             # Remove ending slash if any
-
-chomp($pwd= `pwd`);
-
-%title= (
-  "mysql-standard" => "MySQL Community Edition - Standard (GPL)",
-  "mysql-debug" => "MySQL Community Edition - Debug (GPL)",
-  "mysql-max" => "MySQL Community Edition - Experimental (GPL)",
-  "mysql-pro" => "MySQL Pro (Commercial)",
-  "mysql-classic" => "MySQL Classic (Commercial)",
-  "mysql-cluster" => "MySQL Cluster (Commercial)",
-);
-
-%architecture= (
-  "hpux11.23" => "HP-UX_B.11.23",
-  "hpux11.11" => "HP-UX_B.11.11",
-  "hpux11.00" => "HP-UX_B.11.00",
-);
-
-%os_release= (
-  "hpux11.23" => "?.11.2?",
-  "hpux11.11" => "?.11.1?",
-  "hpux11.00" => "?.11.0?",
-);
-
-%machine_type= (
-  "ia64" => "ia64*",
-  "hppa2.0w" => "9000/*",
-);
-
-$fullname =~ m/^(mysql-\w+)-([\d\.]+)-hp-(hpux11\.\d\d)-(hppa2\.0w|(ia64))-?(64bit)?$/;
-
-# print "title: $1\n";
-# print "version: $2\n";
-# print "os: $3\n";
-# print "cpu: $4\n";
-# print "64: $6\n";
-
-$cpu64= ($6 ne "") ? "_64" : "";
-
-open (PSF,">${fullname}.psf") or die "Unable to write PSF file ($!)\n";
-
-print PSF <<EOF;
-product
-        tag $1 
-        vendor_tag "MySQL_AB"
-        title "$title{$1}"
-        description "MySQL Database Server and Clients"
-        revision $2
-
-        architecture $architecture{$3}$cpu64
-        machine_type $machine_type{$4}
-        os_name HP-UX
-        os_release $os_release{$3}
-        directory /usr/local
-
-        fileset
-                tag all
-                revision $2
-		directory $fullname=/usr/local/$fullname
-                file_permissions -u 222 -g bin -o bin
-                file *
-        end
-end
-EOF
-
-close(PSF);
-
-system("/usr/sbin/swpackage -v -d \"|gzip -c > $fullname.depot.gz\" -x target_type=tape -s ${pwd}/${fullname}.psf");
-
diff --git a/Build-tools/Do-solaris-pkg b/Build-tools/Do-solaris-pkg
deleted file mode 100644
index 22d6879380..0000000000
--- a/Build-tools/Do-solaris-pkg
+++ /dev/null
@@ -1,183 +0,0 @@
-#!/usr/bin/perl
-#
-# Script to create Solaris packages
-#
-$INTERACTIVE= 0;
-chomp ($hostname= `hostname`);
-$find = "/usr/bin/find";
-$pkgproto = "/usr/bin/pkgproto";
-$pkgmk = "/usr/bin/pkgmk -o";
-$pkgtrans = "/usr/bin/pkgtrans";
-$temp = "/tmp/prototype$$";
-$prototype = "prototype";
-$pkginfo = "pkginfo";
-($gid ,$pkg ,$uid ,$userInfo ,$email ,$quota ,$group ,$passwd
-,$category ,$userHome ,$vendor ,$loginShell ,$pstamp ,$basedir)=();
-
-$tarball= $fullname= shift @ARGV;
-$fullname=~ s/.*(mysql.*)\.tar\.gz/$1/;
-$workdir= $$; 
-chomp ($parent_workdir= `pwd`);
-
-$hostname= ($fullname=~ m/^.+-64bit$/) ? $hostname . "-64bit" : $hostname;
-$pkgdir= "$ENV{'HOME'}/$hostname";
-
-mkdir $workdir or die "Can't make workdir: $!\n";
-chdir $workdir or die "Can't change to workdir: $!\n";
-system ("tar xzvf $tarball") == 0 or die "Can't untar: $!\n";
-
-system  ("$find . -print | $pkgproto > $temp");
-open (PREPROTO,"<$temp") or die "Unable to read prototype information ($!)\n";
-open (PROTO,">$prototype") or die "Unable to write file prototype ($!)\n";
-print PROTO "i pkginfo=./$pkginfo\n";
-while (<PREPROTO>) {
-        # Read the prototype information from /tmp/prototype$$
-        chomp;
-        $thisline = $_;
-        if ($thisline =~ " prototype "
-         or $thisline =~ " pkginfo ") {
-          # We don't need that line
-        } elsif ($thisline =~ "^[fd] ") {
-          # Change the ownership for files and directories
-          ($dir, $none, $file, $mode, $user, $group) = split / /,$thisline;
-          print PROTO "$dir $none $file $mode bin bin\n";
-        } else {
-          # Symlinks and other stuff should be printed as well ofcourse
-          print PROTO "$thisline\n";
-        }
-}
-close PROTO;
-close PREPROTO;
-
-# Clean up
-unlink $temp or warn "Unable to remove tempfile ($!)\n";
-
-# Now we can start building the package
-#
-# First get some info
-$fullname =~ s,/+$,,;             # Remove ending slash if any
-
-$fullname =~ /^((mysql)(?:-\w+){1,3})-([\d\.]+\w?)-.+$/
-  or die "This name is not what I expected - \"$fullname\"";
-
-$default{"name"}= $2;
-$default{"version"}= $3;
-$default{"pkg"}= $1;
-$default{"arch"} = `uname -m`;
-chomp $default{"arch"};
-$default{"category"}= "application";
-$default{"vendor"}= "MySQL AB";
-$default{"email"}= "build\@mysql.com";
-$default{"pstamp"}= "MySQL AB Build Engineers";
-$os = `uname -r`;
-$os =~ '\.';
-$os = "sol$'";
-chomp $os;
-$default{"basedir"}= "/usr/local";
-$default{"packagename"}= "${fullname}.pkg";
-
-# Check for correctness of guessed values by userinput
-
-%questions = (
-  pkg => "Please give the name for this package",
-  name => "Now enter the real name for this package",
-  arch => "What architecture did you build the package on?",
-  version => "Enter the version number of the package",
-  category => "What category does this package belong to?",
-  vendor => "Who is the vendor of this package?",
-  email => "Enter the email adress for contact",
-  pstamp => "Enter your own name",
-  basedir => "What is the basedir this package will install into?",
-  packagename => "How should I call the packagefile?",
-);
-
-@vars = qw(pkg name arch version category vendor email pstamp basedir
-    	   packagename);
-foreach $varname (@vars) {
-        getvar_noq($varname);
-}
-
-if ($INTERACTIVE) {
-  while (!&chkvar()) {
-    print "\n";
-    foreach $varname (@vars) {
-      getvar($varname);
-    }
-    @vars = qw(pkg name arch version category vendor email pstamp basedir
-    	   packagename);
-  }
-}
-$classes = "none";
-
-# Create the pkginfo file
-
-print "\nNow creating $pkginfo file\n";
-open (PKGINFO,">$pkginfo") || die "Unable to open $pkginfo for writing ($!)\n";
-print PKGINFO "PKG=\"$pkg\"\n";
-print PKGINFO "NAME=\"$name\"\n";
-print PKGINFO "ARCH=\"$arch\"\n";
-print PKGINFO "VERSION=\"$version\"\n";
-print PKGINFO "CATEGORY=\"$category\"\n";
-print PKGINFO "VENDOR=\"$vendor\"\n";
-print PKGINFO "EMAIL=\"$email\"\n";
-print PKGINFO "PSTAMP=\"$pstamp\"\n";
-print PKGINFO "BASEDIR=\"$basedir\"\n";
-print PKGINFO "CLASSES=\"$classes\"\n";
-close PKGINFO;
-print "Done.\n";
-
-# Build and zip the package
-
-print "Building package\n";
-system ("$pkgmk -r `pwd`");
-system ("(cd /var/spool/pkg; $pkgtrans -s -o `pwd` /tmp/$packagename $pkg)");
-system ("gzip /tmp/$packagename");
-
-# Clean-up the spool area
-system ("(cd /var/spool/pkg; rm -rf $pkg)");
-# Clean-up the ~/packaging/ area
-unlink $pkginfo;
-unlink $prototype;
-chdir $parent_workdir or die "Can't change to parent workdir '$parent_workdir': $!\n";
-system ("rm -rf $workdir") == 0 or die "Can't remove the working dir: $!\n";
-system ("mv /tmp/${packagename}.gz $pkgdir") == 0 or die "Can't move the finished package out of /tmp: $!\n";
-print "Done. (~/$hostname/$packagename.gz)\n";
-# The subroutines
-sub chkvar {
-  print "\n";
-
-  print "PKG=$pkg\n";
-  print "NAME=$name\n";
-  print "ARCH=$arch\n";
-  print "VERSION=$version\n";
-  print "CATEGORY=$category\n";
-  print "VENDOR=$vendor\n";
-  print "EMAIL=$email\n";
-  print "PSTAMP=$pstamp\n";
-  print "BASEDIR=$basedir\n";
-  print "PACKAGENAME=$packagename\n";
-
-  
-  print "\nIs this information correct? [Y/n]: ";
-  my $answer= <STDIN>;
-  chomp $answer;
-  $answer= 'Y' if ($answer eq "");
-  $answer= uc $answer;
-  my $res= ($answer eq 'Y')? 1 : 0;
-  return($res);
-}
-
-sub getvar_noq {
-        my $questionname = "@_";
-        $$questionname = $default{$questionname};
-}
-
-sub getvar {
-        my $questionname = "@_";
-        my $ucquestionname= uc $questionname;
-        print "$ucquestionname: $questions{$questionname} [$default{\"$questionname\"}]: ";
-        my $answer = <STDIN>;
-        chomp $answer;
-        $$questionname = $answer;
-        $$questionname = $default{$questionname} if ($$questionname eq "");
-}
-- 
2.30.9