[BACK]Return to loncron CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom

Diff for /loncom/loncron between versions 1.36 and 1.40

version 1.36, 2003/02/03 18:03:52 version 1.40, 2003/07/29 21:00:21
Line 316  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 403  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 411  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 805  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>1000) {
         $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.36  
changed lines
  Added in v.1.40

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