--- loncom/loncron	2002/11/27 17:14:26	1.35
+++ 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 "</pre>";
 # ---------------------------------------------------------------------- lonsql
 
 my $restartflag=1;
-if ($perlvar{'lonRole'} eq "library") {
-
     print $fh '<hr><a name="lonsql"><h2>lonsql</h2><h3>Log</h3><pre>';
     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 ...<p>";
 	rename("$fname.2","$fname.3");
 	rename("$fname.1","$fname.2");
@@ -415,7 +409,6 @@ if ($perlvar{'lonRole'} eq "library") {
     }
 
     &errout($fh);
-}
 # ------------------------------------------------------------------------ lond
 
 print $fh '<hr><a name="lond"><h2>lond</h2><h3>Log</h3><pre>';
@@ -809,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");