loncom/publisher/lonretrieve.pm - diff

Return to lonretrieve.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.4, 2001/04/03 22:03:55	version 1.5, 2001/04/04 03:59:15
Line 82 sub phasetwo {	Line 82 sub phasetwo {
}	}
my $logfile;	my $logfile;
my $ctarget='/home/'.$uname.'/public_html'.$fn;	my $ctarget='/home/'.$uname.'/public_html'.$fn;
	my $vfn=$fn;
	if ($version ne 'new') {
	$vfn=~s/\.(\w+)$/\.$version\.$1/;
	}
	my $csource=$r->dir_config('lonDocRoot').'/res/'.$udom.'/'.$uname.$vfn;
unless ($logfile=Apache::File->new('>>'.$ctarget.'.log')) {	unless ($logfile=Apache::File->new('>>'.$ctarget.'.log')) {
$r->print(	$r->print(
'<font color=red>No write permission to user directory, FAIL</font>');	'<font color=red>No write permission to user directory, FAIL</font>');
}	}
print $logfile	print $logfile
"\n\n================= Retrieve ".localtime()." ================\n".	"\n\n================= Retrieve ".localtime()." ================\n".
"Version $version\n\n";	"Version: $version\nSource: $csource\nTarget: $ctarget\n";
	$r->print('<p>Copying file: ');
	if (copy($csource,$ctarget)) {
	$r->print('ok<p>');
	print $logfile "Copied sucessfully.\n\n";
	} else {
	my $error=$!;
	$r->print('fail, '.$error.'<p>');
	print $logfile "Copy failed: $error\n\n";
	}
	$r->print('<font size=+2><a href="/priv/'.$uname.$fn.
	'">Back to '.$fn.'</a></font>');
} else {	} else {
$r->print(	$r->print(
'<font size=+1 color=red>Please pick a version to retrieve</font><p>');	'<font size=+1 color=red>Please pick a version to retrieve</font><p>');