--- loncom/loncron	2002/10/29 20:21:32	1.34
+++ loncom/loncron	2003/04/07 18:19:23	1.38
@@ -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;
 
@@ -407,7 +403,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");
@@ -633,8 +629,7 @@ if (-e $lonhttpdfile) {
    my $lonhttpdpid=<$lfh>;
    chomp($lonhttpdpid);
    if (kill 0 => $lonhttpdpid) {
-      print $fh "<h3>lonhttpd at pid $lonhttpdpid responding, sending USR1</h3>";
-      kill USR1 => $lonhttpdpid;
+      print $fh "<h3>lonhttpd at pid $lonhttpdpid responding</h3>";
       $restartflag=0;
    } else {
       $errors++;
@@ -810,7 +805,10 @@ rename ("$statusdir/newstatus.html","$st
 
 if ($totalcount>200) {
    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"; 
    system(
  "metasend -b -t $emailto -s '$subj' -f $statusdir/index.html -m text/html");