packaging/utils/mkrel

   1 #!/usr/bin/perl
   2 # mkcand m.nn
   3 # package candidate, leaving it in tmp directory
   4
   5 require($ENV{'HOME'}."/bin/disttools.pl");
   6
   7 &defvars;
   8 &suckvars;
   9
  10 umask(022);
  11
  12 $localdir=$ENV{'HOME'}."/archive";
  13
  14 $tmpdir=$ENV{'BTMP'}."/".$ENV{'USER'}."/snapshots";
  15
  16 $transmit=1;
  17 $snapprefix="";
  18 $tarinfix="";
  19 $date="";
  20 $lastrel=$ENV{'LASTREL'};
  21
  22 sub usage {
  23     print STDERR "mkrel:\n";
  24     print STDERR "\t-l          do not transmit\n";
  25     print STDERR "\t-p name     set release name\n";
  26     print STDERR "\t-r rel      set release branch\n";
  27 }
  28
  29 while(@ARGV) {
  30   $_=shift;
  31
  32   if(/^-l/) {
  33     $transmit=0;
  34
  35   } elsif(/^-S/) {
  36     $symlink=1;
  37
  38   } elsif(/^-p/) {
  39     $rel=shift;
  40     $snapprefix="pre$rel-";
  41
  42   } elsif(/^-r/) {
  43     $arg=shift;
  44     ($lastrel=$arg) =~ y/\./\_/;
  45     $relopt="-r PRE${lastrel}"
  46
  47   } else {
  48     &usage;
  49     exit;
  50   }
  51 }
  52
  53 if(!defined($relopt) ||
  54    !defined($rel)) {
  55         &usage;
  56         exit;
  57 }
  58
  59 $dirname="freeswan-".$rel;
  60 $pkgname="freeswan-".$rel;
  61 $tarname=$pkgname.".tar";
  62 $vername=$rel;
  63
  64 &nicesystem("mkdir -p $tmpdir");
  65 print "BUILDING release $rel in $dirname\n";
  66 if($transmit) {
  67   print "WILL TRANSMIT TO $ENV{'DISTHOST'}\n"
  68 } else {
  69   print "WILL NOT TRANSMIT\n";
  70 }
  71
  72 $ENV{'PGPPATH'}="/mnt/build/freeswan";
  73 $ENV{'PGPNAME'}="build\@freeswan.org";
  74
  75 &makedisttarfile($tmpdir, $pkgname, $vername, $dirname, $date, $relopt, 1);
  76
  77 print "Please insert release key floppy for signature";
  78 $ans=<STDIN>;
  79 system("mount /mnt/build");
  80 &dopgpsig($pkgname);
  81 system("umount /mnt/build");
  82
  83 if($transmit) {
  84   print "Now transmitting to XS4all\n";
  85   print "Starting on: ";
  86   system("date");
  87
  88   &upload($pkgname);
  89
  90   &upsync;
  91
  92   print "Finished on: ";
  93   system("date");
  94 }
  95