Changeset 21774 for other-projects/nightly-tasks/snapshot/trunk/task.pl

Timestamp:

2010-03-09T15:57:52+13:00 (14 years ago)

Author:

oranfry

Message:

different method for uploading

File:

• other-projects/nightly-tasks/snapshot/trunk/task.pl (modified) (4 diffs)

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

@@ -27 +27 @@
 if ( ! exists $ENV{'DATA_DIR'} ) {
     $ENV{'DATA_DIR'} = "$ENV{'HOME'}/snapshots";
+}
+
+#default identity dir
+if ( ! exists $ENV{'IDENTITY_DIR'} ) {
+    $ENV{'IDENTITY_DIR'} = "$ENV{'HOME'}/.ssh";
 }
 
@@ -59 +64 @@
 #setup based on mode
 if ( $ENV{'TASK_NAME'} =~ "caveat\$" ) {
-    $ENV{'UPLOAD_DIR'}="nzdl\@puka.cs.waikato.ac.nz:/greenstone/greenstone.org/base/caveat-emptor";
+    $ENV{'SNAPSHOT_MODE'} = "caveat";
 
     if ( $major_version == 2 ) {
@@ -76 +81 @@
     $ENV{'SERVER_EXE_LOCATION'} = "http://www.greenstone.org/caveat-emptor/server-$ENV{'snapshot_id2'}-candidate-" . get_date() . ".exe";
 
-} else {
-    if ( $ENV{'TASK_NAME'} =~ "stable\$" ) {
-        $ENV{'BRANCH_PATH'}="tags/stable";
+} elsif ( $ENV{'TASK_NAME'} =~ "stable\$" ) {
+    $ENV{'SNAPSHOT_MODE'} = "stable";
+    $ENV{'BRANCH_PATH'} = "tags/stable";
 
-        #dont proceed if main/stable is old
-        #get last changed date from svn
-        open( INFO, "svn info http://svn.greenstone.org/main/$ENV{'BRANCH_PATH'}|" )
-            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";
+    #dont proceed if main/stable is old
+    #get last changed date from svn
+    open( INFO, "svn info http://svn.greenstone.org/main/$ENV{'BRANCH_PATH'}|" )
+        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;
         }
     }
-    $ENV{'UPLOAD_DIR'}="nzdl\@puka.cs.waikato.ac.nz:/greenstone/greenstone.org/base/release-snapshots";
+    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";
+    }
 
     #set the path to server.exe
@@ -113 +116 @@
 }
 
+#use the  correct key for uploading
+$ENV{'IDENTITY_FILE'} =
+    "$ENV{'IDENTITY_DIR'}/upload-" . $ENV{'SNAPSHOT_MODE'} . ($^O eq "MSWin32" ? ".ppk" : "");
+
+
 #always rename the log not to clash with other files on puka
 $ENV{'munges'} = $ENV{'munges'} . " s/\.out/-" . get_date() . "-log.txt/";
-
-
 
 #choose a snapshot ID