packaging/utils/mksnap

   1 #!/usr/bin/perl
   2 # make snapshot of FreeSwan code
   3 # -l    local build only, do not transmit
   4 # -p nn pre-nn version (where nn is a release like 1.00)
   5 # -d ddd        build as of date ddd (implies -l)
   6
   7 require($ENV{'HOME'}."/bin/disttools.pl");
   8
   9 &defvars;
  10 &suckvars;
  11
  12 umask(022);
  13
  14 $localdir=$ENV{'HOME'}."/archive";
  15 $ENV{'DEV_DIR'}=$localdir."/development";
  16
  17 if(!defined($ENV{'USER'})) {
  18         $ENV{'USER'}="build";
  19 }
  20
  21 $tmpdir=$ENV{'BTMP'}."/".$ENV{'USER'}."/snapshots";
  22
  23 $transmit=1;
  24 $symlink=0;
  25 $snapprefix="";
  26 $tarinfix="";
  27 $relopt="";
  28 $date="now";
  29 $lastrel=$ENV{'LASTREL'};
  30 $lastrel =~ y/\./\_/;
  31
  32 while(@ARGV) {
  33   $_=shift;
  34
  35   if(/^-l/) {
  36     $transmit=0;
  37
  38   } elsif(/^-D/) {
  39     $debug++;
  40
  41   } elsif(/^-S/) {
  42     $symlink=1;
  43
  44   } elsif(/^-p/) {
  45     $arg=shift;
  46     $snapprefix="$arg-";
  47
  48   } elsif(/^-r/) {
  49     $arg=shift;
  50     ($lastrel=$arg) =~ y/\./\_/;
  51     $relopt="-r PRE${lastrel}"
  52
  53 #  } elsif(/^-d/) {
  54 #    $arg=shift;
  55 #    $transmit=0;
  56 #    $date=$arg;
  57
  58   } else {
  59     print STDERR "mksnap:\n";
  60     print STDERR "\t-l          do not transmit\n";
  61     print STDERR "\t-p stuff    set snapshot prefix\n";
  62     print STDERR "\t-r rel      set release branch\n";
  63     print STDERR "\t-d date     set snapshot date\n";
  64     exit;
  65   }
  66 }
  67
  68 $snapname=&snapname($snapprefix);
  69
  70 #if($date ne "now") {
  71 #  $snapname="`echo $date | tr -d ' :'`"        ;;
  72 #}
  73
  74 $dirname="freeswan-snap".$snapname;
  75 $pkgname="snapshot-".$snapname;
  76 $tarname=$pkgname.".tar";
  77
  78 &nicesystem("mkdir -p $tmpdir");
  79 print "BUILDING snapshot $dirname\n";
  80 if($transmit) {
  81   print "WILL TRANSMIT TO $ENV{'DISTHOST'}\n"
  82 } else {
  83   print "WILL NOT TRANSMIT\n";
  84 }
  85
  86 &setuppgp($lastrel);
  87
  88 &makedisttarfile($tmpdir, $pkgname, "$lastrel_$snapname", $dirname, $date, $relopt, 0);
  89
  90 unlink("snapshot.tar.gz");
  91 &nicesystem("ln -s $tarname.gz snapshot.tar.gz") || die "failed to symlink to snapshot.tar.gz: $?\n";
  92 &nicesystem("md5sum snapshot.tar.gz >snapshot.tar.gz.md5") || die "failed to md5sum of snapshot.tar.gz: $?\n";
  93
  94 &dopgpsig($pkgname);
  95
  96 if($transmit) {
  97   system("date");
  98
  99   &upload($pkgname, "snapshot");
 100
 101   print "Cleaning up old snapshots\n";
 102
 103   local($file, $localroot);
 104
 105   $localroot=$ENV{'DEV_DIR'};
 106
 107   &nicesystem("cd $localroot && find . -name \"snapshot-*\" -print | grep -v $pkgname | xargs -r rm --");
 108
 109   &upsync;
 110
 111   system("date");
 112 }
 113
 114