Changeset 32048 for other-projects

Timestamp:

2017-10-17T19:19:53+13:00 (7 years ago)

Author:

ak19

Message:

Uploading a copy of snapshot binary to dev. (Also introducing a commented out debug line in task.pl)

Location:

other-projects/nightly-tasks/snapshot/trunk

Files:

• lib.pl (modified) (1 diff)
• task.pl (modified) (1 diff)

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

@@ -223 +223 @@
     #print "$command\n";
     system("$command");
-}
+    
+    # for now, upload a copy to the new machine, later to replace puka
+    $command = "cd \"${release_dir}${sep}uploads\" && tar -c * | ";
+    $command .= ($^O eq "MSWin32" ? "plink" : "ssh");
+    $command .= " -T -i \"$ENV{'IDENTITY_FILE'}\" nzdl-gsorg\@wwwdev.greenstone.org";
+    #print "$command\n";
+    system("$command");
+}

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

@@ -85 +85 @@
 #keep wget/curl base command in a variable
 my $httpRetrieve = $^O eq "darwin" ? "curl" : "wget -O -";
+
+#print STDERR "@@@@@@@@@@ PATH: ".$ENV{'PATH'}."\n";
+# http://stackoverflow.com/questions/3854651/how-can-i-store-the-result-of-a-system-command-in-a-perl-variable
 
 #setup based on mode