Changeset 32047 for other-projects/nightly-tasks/diffcol/trunk

Timestamp:

2017-10-17T19:14:30+13:00 (7 years ago)

Author:

ak19

Message:

Uploading a copy of diffcol results to dev

File:

• other-projects/nightly-tasks/diffcol/trunk/task.pl (modified) (2 diffs)

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

@@ -365 +365 @@
 
     chdir($ENV{'DATA_DIR'});
+    #print STDERR "@@@@ current dir: ".`pwd`."\n";
+    #print STDERR "@@@@ data dir: ".$ENV{'DATA_DIR'}."\n";
 
     # use existing compiled-up greenstone installation, if a GSDLHOME set
@@ -1086 +1088 @@
     my $status = system("$command");
     if($status != 0) {
-        print STDERR "*** Failed to upload test report to nzdl $status\n";
-    }
+        print STDERR "*** Failed to upload test report to nzdl $status\n";
+    }
+
+        # for now, upload a copy to the new machine, later to replace puka
+        $command = "cd \"$ENV{'UPLOAD_DIR'}\" && tar -c *.htm* | "; #&& cat *.html | "; # && tar -c * |
+        $command .= ($^O eq "MSWin32" ? "plink" : "ssh");
+        $command .= " -T -i \"$ENV{'IDENTITY_FILE'}\" nzdl-gsorg\@wwwdev.greenstone.org";
+        #print "$command\n";
+        $status = system("$command");
+        if($status != 0) {
+            print STDERR "*** Failed to upload test report to nzdl $status\n";
+        }
+    
     } else {
     print STDERR "*** Cannot upload the test report to nzdl from this machine\n";