--- loncom/loncron 2002/10/29 20:21:32 1.34 +++ loncom/loncron 2003/07/29 21:00:21 1.40 @@ -9,13 +9,9 @@ # # 7/14,7/15,7/19,7/21,7/22,11/18, # 2/8 Gerd Kortemeyer -# 12/6/2000,12/8 Scott Harrison # 12/23 Gerd Kortemeyer # YEAR=2001 -# 1/10/2001, 2/12/, 2/26, 3/15, 04/11, 04/21,8/27 Scott Harrison # 09/04,09/06,11/26 Gerd Kortemeyer -# YEAR=2002 -# 5/11/2002 Scott Harrison $|=1; @@ -320,8 +316,6 @@ print $fh ""; # ---------------------------------------------------------------------- lonsql my $restartflag=1; -if ($perlvar{'lonRole'} eq "library") { - print $fh '

lonsql

Log

';
     print "lonsql\n";
     if (-e "$perlvar{'lonDaemons'}/logs/lonsql.log"){
@@ -407,7 +401,7 @@ if ($perlvar{'lonRole'} eq "library") {
 	$atime,$mtime,$ctime,
 	$blksize,$blocks)=stat($fname);
 
-    if ($size>40000) {
+    if ($size>200000) {
 	print $fh "Rotating logs ...

"; rename("$fname.2","$fname.3"); rename("$fname.1","$fname.2"); @@ -415,7 +409,6 @@ if ($perlvar{'lonRole'} eq "library") { } &errout($fh); -} # ------------------------------------------------------------------------ lond print $fh '


lond

Log

';
@@ -633,8 +626,7 @@ if (-e $lonhttpdfile) {
    my $lonhttpdpid=<$lfh>;
    chomp($lonhttpdpid);
    if (kill 0 => $lonhttpdpid) {
-      print $fh "

lonhttpd at pid $lonhttpdpid responding, sending USR1

"; - kill USR1 => $lonhttpdpid; + print $fh "

lonhttpd at pid $lonhttpdpid responding

"; $restartflag=0; } else { $errors++; @@ -810,7 +802,10 @@ rename ("$statusdir/newstatus.html","$st if ($totalcount>200) { print "mailing\n"; - $emailto="$perlvar{'lonAdmEMail'},$perlvar{'lonSysEMail'}"; + $emailto="$perlvar{'lonAdmEMail'}"; + if ($totalcount>1000) { + $emailto.=",$perlvar{'lonSysEMail'}"; + } $subj="LON: $perlvar{'lonHostID'} E:$errors W:$warnings N:$notices"; system( "metasend -b -t $emailto -s '$subj' -f $statusdir/index.html -m text/html");