loncom/loncron - diff

Return to loncron CVS log

Up to [LON-CAPA] / loncom

version 1.36, 2003/02/03 18:03:52	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");
Line 805 rename ("$statusdir/newstatus.html","$st	Line 805 rename ("$statusdir/newstatus.html","$st

if ($totalcount>200) {	if ($totalcount>200) {
print "mailing\n";	print "mailing\n";
$emailto="$perlvar{'lonAdmEMail'},$perlvar{'lonSysEMail'}";	$emailto="$perlvar{'lonAdmEMail'}";
	if ($totalcount>600) {
	$emailto.=",$perlvar{'lonSysEMail'}";
	}
$subj="LON: $perlvar{'lonHostID'} E:$errors W:$warnings N:$notices";	$subj="LON: $perlvar{'lonHostID'} E:$errors W:$warnings N:$notices";
system(	system(
"metasend -b -t $emailto -s '$subj' -f $statusdir/index.html -m text/html");	"metasend -b -t $emailto -s '$subj' -f $statusdir/index.html -m text/html");