Changeset 34519 for other-projects/nightly-tasks/snapshot/trunk/lib.pl

Timestamp:

2020-10-29T13:45:23+13:00 (3 years ago)

Author:

Jeremy Symon

Message:

adding in code to upload to www-internal. Needs a new ed25519 identity file to be generated

File:

• other-projects/nightly-tasks/snapshot/trunk/lib.pl (modified) (1 diff)

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

@@ -218 +218 @@
     }
 
+    #my $out = `set`;
+    #print "out = $out\n";
     my $command = "cd \"${release_dir}${sep}uploads\" && tar -c * | ";
     $command .= ($^O eq "MSWin32" ? "plink" : "ssh");
     $command .= " -T -i \"$ENV{'IDENTITY_FILE'}\" nzdl\@puka.cs.waikato.ac.nz";
-    #print "$command\n";
+    print "$command\n";
     system("$command");
     
-    # for now, upload a copy to the new machine, later to replace puka
+    ## 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");
+    
+    # also upload a copy to www-internal, which is the new wwwdev, and will 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";
+    $command .= " -T -i \"$ENV{'IDENTITY_FILE_ED25519'}\" nzdl-gsorg\@www-internal.greenstone.org";
+    print "$command\n";
     system("$command");
-}
+
+}