version 1.13, 2000/12/04 15:39:28
|
version 1.14, 2000/12/08 23:36:37
|
Line 520 if (-e $target) {
|
Line 520 if (-e $target) {
|
$copyfile=$copyfile.'.meta'; |
$copyfile=$copyfile.'.meta'; |
|
|
if (copy($target.'.meta',$copyfile)) { |
if (copy($target.'.meta',$copyfile)) { |
print $logfile "Copied old target metadata to ".$copyfile."\n"; |
print $logfile "Copied old target metadata to ".$copyfile."\n"; |
$scrout.='<p>Copied old metadata'; |
$scrout.='<p>Copied old metadata'; |
} else { |
} else { |
print $logfile "Unable to write metadata ".$copyfile.':'.$!."\n"; |
print $logfile "Unable to write metadata ".$copyfile.':'.$!."\n"; |
return |
if (-e $target.'.meta') { |
|
return |
"<font color=red>Failed to write old metadata copy, $!, FAIL</font>"; |
"<font color=red>Failed to write old metadata copy, $!, FAIL</font>"; |
|
} |
} |
} |
|
|
|
|