loncom/loncron - diff

Return to loncron CVS log

Up to [LON-CAPA] / loncom

version 1.37, 2003/03/10 17:39:21	version 1.39, 2003/06/10 22:07:26
Line 316 print $fh "</pre>";	Line 316 print $fh "</pre>";
# ---------------------------------------------------------------------- lonsql	# ---------------------------------------------------------------------- lonsql

my $restartflag=1;	my $restartflag=1;
if ($perlvar{'lonRole'} eq "library") {

print $fh '<hr><a name="lonsql"><h2>lonsql</h2><h3>Log</h3><pre>';	print $fh '<hr><a name="lonsql"><h2>lonsql</h2><h3>Log</h3><pre>';
print "lonsql\n";	print "lonsql\n";
if (-e "$perlvar{'lonDaemons'}/logs/lonsql.log"){	if (-e "$perlvar{'lonDaemons'}/logs/lonsql.log"){
Line 403 if ($perlvar{'lonRole'} eq "library") {	Line 401 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");
Line 411 if ($perlvar{'lonRole'} eq "library") {	Line 409 if ($perlvar{'lonRole'} eq "library") {
}	}

&errout($fh);	&errout($fh);
}
# ------------------------------------------------------------------------ lond	# ------------------------------------------------------------------------ lond

print $fh '<hr><a name="lond"><h2>lond</h2><h3>Log</h3><pre>';	print $fh '<hr><a name="lond"><h2>lond</h2><h3>Log</h3><pre>';