Changeset 21723 for other-projects/nightly-tasks

Timestamp:

2010-02-22T14:48:36+13:00 (14 years ago)

Author:

oranfry

Message:

stable not to proceed unless tag is fresh

Location:

other-projects/nightly-tasks/snapshot/trunk

Files:

• environment.pl.example (modified) (1 diff)
• task.pl (modified) (5 diffs)

other-projects/nightly-tasks/snapshot/trunk/environment.pl.example

@@ -1 @@
-#where to keep snapshots
-$ENV{'DATA_DIR'}="/data/snapshots";
+$ENV{'PATH'} = "/programs/release-kits/bin:$ENV{'PATH'}";
 
-#where to find release kits and ant
-$ENV{'PATH'} = "$ENV{'PATH'}:/programs/release-kits/bin";
-
-#java
-$ENV{'JAVA_HOME'} = "/usr/lib/jvm/java-1.5.0";
-$ENV{'PATH'} = "$ENV{'JAVA_HOME'}/bin:$ENV{'PATH'}";
-

other-projects/nightly-tasks/snapshot/trunk/task.pl

@@ -2 +2 @@
 do "$ENV{'TASK_HOME'}/lib.pl";
 
-#check key environment vars are set
-die "Please set a DATA_DIR in the nightly snapshot environment\n"
-    if ! exists $ENV{'DATA_DIR'};
 die "Could not determine your operating system"
     unless ( $^O =~ "linux|darwin|MSWin32" );
@@ -25 +22 @@
 if ( exists $ARGV[1] ) {
     die "too many arguments to snapshot task\n";
+}
+
+#default data dir
+if ( ! exists $ENV{'DATA_DIR'} ) {
+    $ENV{'DATA_DIR'} = "$ENV{'HOME'}/snapshots";
 }
 
@@ -58 +60 @@
 if ( $ENV{'TASK_NAME'} =~ "caveat\$" ) {
     $ENV{'UPLOAD_DIR'}="nzdl\@puka.cs.waikato.ac.nz:/greenstone/greenstone.org/base/caveat-emptor";
-    
-    if ( $major_version == 2 ) {
-        $ENV{'snapshot_id2'} = `wget -O - http://www.greenstone.org/next-release.txt 2>nul`;
-        chomp($ENV{'snapshot_id2'});
-    } else {
-        $ENV{'snapshot_id3'} = `wget -O - http://www.greenstone.org/next-release-greenstone3.txt 2>nul`;
-        chomp($ENV{'snapshot_id3'});
-    }
+    $ENV{'snapshot_id2'}=`ssh nzdl\@puka.cs.waikato.ac.nz cat /greenstone/greenstone.org/base/next-release.txt`;
+
+    #TODO: generalise this for all oses!
+    chomp($ENV{'snapshot_id2'});
+    $ENV{'snapshot_id3'}=`ssh nzdl\@puka.cs.waikato.ac.nz cat /greenstone/greenstone.org/base/next-release-greenstone3.txt`;
+    chomp($ENV{'snapshot_id3'});
 
     #change the filenames to have the date in them
@@ -77 +77 @@
     if ( $ENV{'TASK_NAME'} =~ "stable\$" ) {
         $ENV{'BRANCH_PATH'}="stable";
+
+        #dont proceed if main/stable is old
+        #get last changed date from svn
+        open( INFO, "svn info http://svn.greenstone.org/main/stable|" )
+            or die "Cant determine age of stable tag";
+        my $changed_date;
+        while ( my $line = <INFO>) {
+            chomp($line);
+            if ( $line =~ /^Last Changed Date:/ ) {
+                $changed_date = $line;
+                break;
+            }
+        }
+        close(INFO);
+        #change the format
+        $changed_date =~ s/.*: ([^ ]+) .*/\1/g;
+        if ( $changed_date !~ /^20[0-9]{2}-[0-9]{2}-[0-9]{2}$/ ) {
+            die "Cant determine age of stable tag";
+        }
+        $changed_date =~ s/-/./g;
+        #check if main/stable is new
+        if ( $changed_date ne get_date() ) {
+            print "main/stable is old, will not create snapshot\n";
+            exit;
+        } else {
+            print "main/stable is fresh, will create snapshot\n";
+        }
     }
     $ENV{'UPLOAD_DIR'}="nzdl\@puka.cs.waikato.ac.nz:/greenstone/greenstone.org/base/release-snapshots";
@@ -85 +112 @@
 
 #always rename the log not to clash with other files on puka
-$ENV{'munges'} = $ENV{'munges'} . " s/\.out/-" . get_date() . "-" . $^O . "-log.txt/";
+$ENV{'munges'} = $ENV{'munges'} . " s/\.out/-" . get_date() . "-log.txt/";
+
+
 
 #choose a snapshot ID