1 | use File::Basename;
|
---|
2 | do "$ENV{'TASK_HOME'}/lib.pl";
|
---|
3 |
|
---|
4 | die "Could not determine your operating system"
|
---|
5 | unless ( $^O =~ "linux|darwin|MSWin32" );
|
---|
6 |
|
---|
7 | #arguments
|
---|
8 | our $action = "";
|
---|
9 |
|
---|
10 | #intervening variables
|
---|
11 | our $prefix = "";
|
---|
12 | our $release_dir = "";
|
---|
13 | our $rk = "";
|
---|
14 | our $snapshot_id = "";
|
---|
15 | our $branch_path = "";
|
---|
16 | our $major_version = 0;
|
---|
17 |
|
---|
18 | if ( exists $ARGV[0] ) {
|
---|
19 | $action = $ARGV[0];
|
---|
20 | }
|
---|
21 |
|
---|
22 | if ( exists $ARGV[1] ) {
|
---|
23 | die "too many arguments to snapshot task\n";
|
---|
24 | }
|
---|
25 |
|
---|
26 | #default data dir
|
---|
27 | if ( ! exists $ENV{'DATA_DIR'} ) {
|
---|
28 | $ENV{'DATA_DIR'} = "$ENV{'HOME'}/snapshots";
|
---|
29 | }
|
---|
30 |
|
---|
31 | #choose the parameters of the build based on the task name
|
---|
32 | if ( $ENV{'TASK_NAME'} =~ "gs2-(caveat|stable)" ) {
|
---|
33 | $major_version = 2;
|
---|
34 | $prefix="2s";
|
---|
35 | $rk="rk2";
|
---|
36 | } elsif ( $ENV{'TASK_NAME'} =~ "gs3-(caveat|stable)" ) {
|
---|
37 | $major_version = 3;
|
---|
38 | $prefix="3s";
|
---|
39 | $rk="rk3";
|
---|
40 | } elsif ( $ENV{'TASK_NAME'} =~ "gs2-src-(caveat|stable)" ) {
|
---|
41 | $major_version = 2;
|
---|
42 | $prefix="2s";
|
---|
43 | $rk="sork2";
|
---|
44 | } elsif ( $ENV{'TASK_NAME'} =~ "gs3-src-(caveat|stable)" ) {
|
---|
45 | $major_version = 3;
|
---|
46 | $prefix="3s";
|
---|
47 | $rk="sork3";
|
---|
48 | } elsif ( $ENV{'TASK_NAME'} =~ "gs2-cd-(caveat|stable)" ) {
|
---|
49 | $major_version = 2;
|
---|
50 | $prefix="2s";
|
---|
51 | $rk="cdrk2";
|
---|
52 | } elsif ( $ENV{'TASK_NAME'} =~ "dec-(caveat|stable)" ) {
|
---|
53 | $prefix="";
|
---|
54 | $rk="derk";
|
---|
55 | } else {
|
---|
56 | die "unrecognised task name '$ENV{'TASK_NAME'}'\n";
|
---|
57 | }
|
---|
58 |
|
---|
59 | #setup based on mode
|
---|
60 | if ( $ENV{'TASK_NAME'} =~ "caveat\$" ) {
|
---|
61 | $ENV{'UPLOAD_DIR'}="nzdl\@puka.cs.waikato.ac.nz:/greenstone/greenstone.org/base/caveat-emptor";
|
---|
62 | $ENV{'snapshot_id2'}=`ssh nzdl\@puka.cs.waikato.ac.nz cat /greenstone/greenstone.org/base/next-release.txt`;
|
---|
63 |
|
---|
64 | #TODO: generalise this for all oses!
|
---|
65 | chomp($ENV{'snapshot_id2'});
|
---|
66 | $ENV{'snapshot_id3'}=`ssh nzdl\@puka.cs.waikato.ac.nz cat /greenstone/greenstone.org/base/next-release-greenstone3.txt`;
|
---|
67 | chomp($ENV{'snapshot_id3'});
|
---|
68 |
|
---|
69 | #change the filenames to have the date in them
|
---|
70 | $ENV{'munges'} = "s/$ENV{'snapshot_id2'}/$ENV{'snapshot_id2'}-candidate-" . get_date() . "/g ";
|
---|
71 | $ENV{'munges'} .= "s/$ENV{'snapshot_id3'}/$ENV{'snapshot_id3'}-candidate-" . get_date() . "/g";
|
---|
72 |
|
---|
73 | #set the path to server.exe
|
---|
74 | $ENV{'SERVER_EXE_LOCATION'} = "http://www.greenstone.org/caveat-emptor/server-$ENV{'snapshot_id2'}-candidate-" . get_date() . ".exe";
|
---|
75 |
|
---|
76 | } else {
|
---|
77 | if ( $ENV{'TASK_NAME'} =~ "stable\$" ) {
|
---|
78 | $ENV{'BRANCH_PATH'}="tags/stable";
|
---|
79 |
|
---|
80 | #dont proceed if main/stable is old
|
---|
81 | #get last changed date from svn
|
---|
82 | open( INFO, "svn info http://svn.greenstone.org/main/$ENV{'BRANCH_PATH'}|" )
|
---|
83 | or die "Cant determine age of stable tag";
|
---|
84 | my $changed_date;
|
---|
85 | while ( my $line = <INFO>) {
|
---|
86 | chomp($line);
|
---|
87 | if ( $line =~ /^Last Changed Date:/ ) {
|
---|
88 | $changed_date = $line;
|
---|
89 | break;
|
---|
90 | }
|
---|
91 | }
|
---|
92 | close(INFO);
|
---|
93 | #change the format
|
---|
94 | $changed_date =~ s/.*: ([^ ]+) .*/\1/g;
|
---|
95 | if ( $changed_date !~ /^20[0-9]{2}-[0-9]{2}-[0-9]{2}$/ ) {
|
---|
96 | die "Cant determine age of stable tag";
|
---|
97 | }
|
---|
98 | $changed_date =~ s/-/./g;
|
---|
99 | #check if main/stable is new
|
---|
100 | if ( $changed_date ne get_date() ) {
|
---|
101 | print "main/stable is old, will not create snapshot\n";
|
---|
102 | exit;
|
---|
103 | } else {
|
---|
104 | print "main/stable is fresh, will create snapshot\n";
|
---|
105 | }
|
---|
106 | }
|
---|
107 | $ENV{'UPLOAD_DIR'}="nzdl\@puka.cs.waikato.ac.nz:/greenstone/greenstone.org/base/release-snapshots";
|
---|
108 |
|
---|
109 | #set the path to server.exe
|
---|
110 | $ENV{'SERVER_EXE_LOCATION'} = "http://www.greenstone.org/release-snapshots/server-\$\\\{version\\\}.exe";
|
---|
111 | }
|
---|
112 |
|
---|
113 | #always rename the log not to clash with other files on puka
|
---|
114 | $ENV{'munges'} = $ENV{'munges'} . " s/\.out/-" . get_date() . "-log.txt/";
|
---|
115 |
|
---|
116 |
|
---|
117 |
|
---|
118 | #choose a snapshot ID
|
---|
119 | if ( exists $ENV{'snapshot_id2'} && $major_version == 2 ) {
|
---|
120 | $snapshot_id = $ENV{'snapshot_id2'};
|
---|
121 | } elsif ( exists $ENV{'snapshot_id3'} && $major_version == 3 ) {
|
---|
122 | $snapshot_id = $ENV{'snapshot_id3'};
|
---|
123 | } else {
|
---|
124 | $snapshot_id = gen_snapshot_id($prefix);
|
---|
125 | }
|
---|
126 |
|
---|
127 | #set a release directory
|
---|
128 | $release_dir = "$ENV{'DATA_DIR'}/$ENV{'TASK_NAME'}/from-" . get_date();
|
---|
129 |
|
---|
130 | print "creating a snapshot release\n";
|
---|
131 | print "release id : $snapshot_id\n";
|
---|
132 | print "release dir: $release_dir\n";
|
---|
133 |
|
---|
134 | if ( $action eq "create" ) {
|
---|
135 | create();
|
---|
136 | } elsif ( $action eq "upload" ) {
|
---|
137 | upload();
|
---|
138 | } elsif ( $action eq "all" || !$action ) {
|
---|
139 | create();
|
---|
140 | upload();
|
---|
141 | } else {
|
---|
142 | die "bad snapshot action\n";
|
---|
143 | }
|
---|
144 |
|
---|