Changeset 32048

Show
Ignore:
Timestamp:
17.10.2017 19:19:53 (2 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:
2 modified

Legend:

Unmodified
Added
Removed
  • other-projects/nightly-tasks/snapshot/trunk/lib.pl

    r29360 r32048  
    223223    #print "$command\n"; 
    224224    system("$command"); 
    225 } 
     225     
     226    # for now, upload a copy to the new machine, later to replace puka 
     227    $command = "cd \"${release_dir}${sep}uploads\" && tar -c * | "; 
     228    $command .= ($^O eq "MSWin32" ? "plink" : "ssh"); 
     229    $command .= " -T -i \"$ENV{'IDENTITY_FILE'}\" nzdl-gsorg\@wwwdev.greenstone.org"; 
     230    #print "$command\n"; 
     231    system("$command"); 
     232} 
  • other-projects/nightly-tasks/snapshot/trunk/task.pl

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