Changeset 32048
- Timestamp:
- 2017-10-17T19:19:53+13:00 (6 years ago)
- Location:
- other-projects/nightly-tasks/snapshot/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
other-projects/nightly-tasks/snapshot/trunk/lib.pl
r29360 r32048 223 223 #print "$command\n"; 224 224 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 85 85 #keep wget/curl base command in a variable 86 86 my $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 87 90 88 91 #setup based on mode
Note:
See TracChangeset
for help on using the changeset viewer.