115 lines
2.2 KiB
Perl
Executable File
115 lines
2.2 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
# make snapshot of FreeSwan code
|
|
# -l local build only, do not transmit
|
|
# -p nn pre-nn version (where nn is a release like 1.00)
|
|
# -d ddd build as of date ddd (implies -l)
|
|
|
|
require($ENV{'HOME'}."/bin/disttools.pl");
|
|
|
|
&defvars;
|
|
&suckvars;
|
|
|
|
umask(022);
|
|
|
|
$localdir=$ENV{'HOME'}."/archive";
|
|
$ENV{'DEV_DIR'}=$localdir."/development";
|
|
|
|
if(!defined($ENV{'USER'})) {
|
|
$ENV{'USER'}="build";
|
|
}
|
|
|
|
$tmpdir=$ENV{'BTMP'}."/".$ENV{'USER'}."/snapshots";
|
|
|
|
$transmit=1;
|
|
$symlink=0;
|
|
$snapprefix="";
|
|
$tarinfix="";
|
|
$relopt="";
|
|
$date="now";
|
|
$lastrel=$ENV{'LASTREL'};
|
|
$lastrel =~ y/\./\_/;
|
|
|
|
while(@ARGV) {
|
|
$_=shift;
|
|
|
|
if(/^-l/) {
|
|
$transmit=0;
|
|
|
|
} elsif(/^-D/) {
|
|
$debug++;
|
|
|
|
} elsif(/^-S/) {
|
|
$symlink=1;
|
|
|
|
} elsif(/^-p/) {
|
|
$arg=shift;
|
|
$snapprefix="$arg-";
|
|
|
|
} elsif(/^-r/) {
|
|
$arg=shift;
|
|
($lastrel=$arg) =~ y/\./\_/;
|
|
$relopt="-r PRE${lastrel}"
|
|
|
|
# } elsif(/^-d/) {
|
|
# $arg=shift;
|
|
# $transmit=0;
|
|
# $date=$arg;
|
|
|
|
} else {
|
|
print STDERR "mksnap:\n";
|
|
print STDERR "\t-l do not transmit\n";
|
|
print STDERR "\t-p stuff set snapshot prefix\n";
|
|
print STDERR "\t-r rel set release branch\n";
|
|
print STDERR "\t-d date set snapshot date\n";
|
|
exit;
|
|
}
|
|
}
|
|
|
|
$snapname=&snapname($snapprefix);
|
|
|
|
#if($date ne "now") {
|
|
# $snapname="`echo $date | tr -d ' :'`" ;;
|
|
#}
|
|
|
|
$dirname="freeswan-snap".$snapname;
|
|
$pkgname="snapshot-".$snapname;
|
|
$tarname=$pkgname.".tar";
|
|
|
|
&nicesystem("mkdir -p $tmpdir");
|
|
print "BUILDING snapshot $dirname\n";
|
|
if($transmit) {
|
|
print "WILL TRANSMIT TO $ENV{'DISTHOST'}\n"
|
|
} else {
|
|
print "WILL NOT TRANSMIT\n";
|
|
}
|
|
|
|
&setuppgp($lastrel);
|
|
|
|
&makedisttarfile($tmpdir, $pkgname, "$lastrel_$snapname", $dirname, $date, $relopt, 0);
|
|
|
|
unlink("snapshot.tar.gz");
|
|
&nicesystem("ln -s $tarname.gz snapshot.tar.gz") || die "failed to symlink to snapshot.tar.gz: $?\n";
|
|
&nicesystem("md5sum snapshot.tar.gz >snapshot.tar.gz.md5") || die "failed to md5sum of snapshot.tar.gz: $?\n";
|
|
|
|
&dopgpsig($pkgname);
|
|
|
|
if($transmit) {
|
|
system("date");
|
|
|
|
&upload($pkgname, "snapshot");
|
|
|
|
print "Cleaning up old snapshots\n";
|
|
|
|
local($file, $localroot);
|
|
|
|
$localroot=$ENV{'DEV_DIR'};
|
|
|
|
&nicesystem("cd $localroot && find . -name \"snapshot-*\" -print | grep -v $pkgname | xargs -r rm --");
|
|
|
|
&upsync;
|
|
|
|
system("date");
|
|
}
|
|
|
|
|