Diff for /loncom/loncron between versions 1.35 and 1.39

version 1.35, 2002/11/27 17:14:26 version 1.39, 2003/06/10 22:07:26
Line 9 Line 9
 #  #
 # 7/14,7/15,7/19,7/21,7/22,11/18,  # 7/14,7/15,7/19,7/21,7/22,11/18,
 # 2/8 Gerd Kortemeyer  # 2/8 Gerd Kortemeyer
 # 12/6/2000,12/8 Scott Harrison  
 # 12/23 Gerd Kortemeyer  # 12/23 Gerd Kortemeyer
 # YEAR=2001  # 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  # 09/04,09/06,11/26 Gerd Kortemeyer
 # YEAR=2002  
 # 5/11/2002 Scott Harrison  
   
 $|=1;  $|=1;
   
Line 320  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 407  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 415  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>';
Line 809  rename ("$statusdir/newstatus.html","$st Line 802  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");

Removed from v.1.35  
changed lines
  Added in v.1.39


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>