Changeset 32047 for other-projects

Show
Ignore:
Timestamp:
17.10.2017 19:14:30 (18 months ago)
Author:
ak19
Message:

Uploading a copy of diffcol results to dev

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • other-projects/nightly-tasks/diffcol/trunk/task.pl

    r29496 r32047  
    365365 
    366366    chdir($ENV{'DATA_DIR'}); 
     367    #print STDERR "@@@@ current dir: ".`pwd`."\n"; 
     368    #print STDERR "@@@@ data dir: ".$ENV{'DATA_DIR'}."\n"; 
    367369 
    368370    # use existing compiled-up greenstone installation, if a GSDLHOME set 
     
    10861088    my $status = system("$command"); 
    10871089    if($status != 0) { 
    1088         print STDERR "*** Failed to upload test report to nzdl $status\n"; 
    1089     } 
     1090        print STDERR "*** Failed to upload test report to nzdl $status\n"; 
     1091    } 
     1092 
     1093        # for now, upload a copy to the new machine, later to replace puka 
     1094        $command = "cd \"$ENV{'UPLOAD_DIR'}\" && tar -c *.htm* | "; #&& cat *.html | "; # && tar -c * | 
     1095        $command .= ($^O eq "MSWin32" ? "plink" : "ssh"); 
     1096        $command .= " -T -i \"$ENV{'IDENTITY_FILE'}\" nzdl-gsorg\@wwwdev.greenstone.org"; 
     1097        #print "$command\n"; 
     1098        $status = system("$command"); 
     1099        if($status != 0) { 
     1100            print STDERR "*** Failed to upload test report to nzdl $status\n"; 
     1101        } 
     1102     
    10901103    } else { 
    10911104    print STDERR "*** Cannot upload the test report to nzdl from this machine\n";