Commit bf7c4775 authored by Leigh B. Stoller's avatar Leigh B. Stoller
Browse files

A minor perl 5.8 fix.

Also a change to the rsync used to duplicate an experiment; do not
preserved permissions.
parent ec8e8cef
...@@ -622,7 +622,7 @@ if (! ($frontend || $batchmode)) { ...@@ -622,7 +622,7 @@ if (! ($frontend || $batchmode)) {
# #
my @localnodes = ExpNodes($pid, $eid, 1); my @localnodes = ExpNodes($pid, $eid, 1);
if (defined(@localnodes) && scalar(@localnodes) > 2) { if (@localnodes && scalar(@localnodes) > 2) {
my $vlans_result = my $vlans_result =
DBQueryFatal("select pid from virt_lans ". DBQueryFatal("select pid from virt_lans ".
"where pid='$pid' and eid='$eid'"); "where pid='$pid' and eid='$eid'");
...@@ -716,6 +716,7 @@ TBExptSetSwapUID($pid, $eid, $dbuid); ...@@ -716,6 +716,7 @@ TBExptSetSwapUID($pid, $eid, $dbuid);
# #
# Close up the log file so the webpage stops. # Close up the log file so the webpage stops.
# #
print "Experiment $pid/$eid has been successfully created!\n";
TBExptCloseLogFile($pid, $eid); TBExptCloseLogFile($pid, $eid);
# #
...@@ -1163,7 +1164,7 @@ sub CopyInArchive() ...@@ -1163,7 +1164,7 @@ sub CopyInArchive()
if (-e $srcdir) { if (-e $srcdir) {
print "Copying experiment archive from ${srcdir}\n"; print "Copying experiment archive from ${srcdir}\n";
system("$RSYNC -ax --delete ${srcdir}/ $dstdir"); system("$RSYNC -rtgoDlz --delete ${srcdir}/ $dstdir");
if ($?) { if ($?) {
fatal("CopyInArchive: Failed to copy ${srcdir} to $dstdir"); fatal("CopyInArchive: Failed to copy ${srcdir} to $dstdir");
} }
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment