loncom/publisher/loncfile.pm - diff

Return to loncfile.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.13, 2002/07/29 01:55:51	version 1.14, 2002/08/05 02:09:05
Line 856 sub Copy2 {	Line 856 sub Copy2 {
&Debug($request ,"Will try to copy $oldfile to $newfile");	&Debug($request ,"Will try to copy $oldfile to $newfile");
if(-e $oldfile) {	if(-e $oldfile) {
unless (copy($oldfile, $newfile)) {	unless (copy($oldfile, $newfile)) {
$request->print('<font color=red> Error: '.$!.'</font>');	$request->print('<font color=red> copy Error: '.$!.'</font>');
return 0;	return 0;
} else {	} else {
	unless (chmod(0660, $newfile)) {
	$request->print('<font color=red> chmod error: '.$!.'</font>');
	return 0;
	}
return 1;	return 1;
}	}
} else {	} else {