]>
Commit | Line | Data |
---|---|---|
997358a6 MW |
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 |