Do-solaris-pkg 5.52 KB
Newer Older
unknown's avatar
unknown committed
1 2 3 4 5
#!/usr/bin/perl
#
# Script to create Solaris packages
#
$INTERACTIVE= 0;
unknown's avatar
unknown committed
6
chomp ($hostname= `hostname`);
unknown's avatar
unknown committed
7 8 9 10 11 12 13 14 15 16
$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)=();

unknown's avatar
unknown committed
17 18 19 20
$tarball= $fullname= shift @ARGV;
$fullname=~ s/.*(mysql.*)\.tar\.gz/$1/;
$workdir= $$; 
chomp ($parent_workdir= `pwd`);
unknown's avatar
unknown committed
21

unknown's avatar
unknown committed
22 23
$hostname= ($fullname=~ m/^.+-64bit$/) ? $hostname . "-64bit" : $hostname;
$pkgdir= "$ENV{'HOME'}/$hostname";
unknown's avatar
unknown committed
24

unknown's avatar
unknown committed
25 26 27
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";
unknown's avatar
unknown committed
28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57

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
unknown's avatar
unknown committed
58
$fullname =~ s,/+$,,;             # Remove ending slash if any
unknown's avatar
unknown committed
59

unknown's avatar
unknown committed
60
$fullname =~ /^((mysql)-\w+-?\w+?)-([\d\.]+\w?)-.+$/
unknown's avatar
unknown committed
61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76
  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";
unknown's avatar
unknown committed
77
$default{"packagename"}= "${fullname}.pkg";
unknown's avatar
unknown committed
78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137

# 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)");
unknown's avatar
unknown committed
138
# Clean-up the ~/packaging/ area
unknown's avatar
unknown committed
139 140
unlink $pkginfo;
unlink $prototype;
unknown's avatar
unknown committed
141 142 143
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";
unknown's avatar
unknown committed
144
print "Done. (~/$hostname/$packagename.gz)\n";
unknown's avatar
unknown committed
145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183
# 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 "");
}