loncom/loncron - diff

Return to loncron CVS log

Up to [LON-CAPA] / loncom

version 1.37, 2003/03/10 17:39:21	version 1.38, 2003/04/07 18:19:23
Line 403 if ($perlvar{'lonRole'} eq "library") {	Line 403 if ($perlvar{'lonRole'} eq "library") {
$atime,$mtime,$ctime,	$atime,$mtime,$ctime,
$blksize,$blocks)=stat($fname);	$blksize,$blocks)=stat($fname);

if ($size>40000) {	if ($size>200000) {
print $fh "Rotating logs ...<p>";	print $fh "Rotating logs ...<p>";
rename("$fname.2","$fname.3");	rename("$fname.2","$fname.3");
rename("$fname.1","$fname.2");	rename("$fname.1","$fname.2");