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

Diff for /loncom/loncron between versions 1.34 and 1.38

version 1.34, 2002/10/29 20:21:32 version 1.38, 2003/04/07 18:19:23
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 407  if ($perlvar{'lonRole'} eq "library") { Line 403  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 633  if (-e $lonhttpdfile) { Line 629  if (-e $lonhttpdfile) {
    my $lonhttpdpid=<$lfh>;     my $lonhttpdpid=<$lfh>;
    chomp($lonhttpdpid);     chomp($lonhttpdpid);
    if (kill 0 => $lonhttpdpid) {     if (kill 0 => $lonhttpdpid) {
       print $fh "<h3>lonhttpd at pid $lonhttpdpid responding, sending USR1</h3>";        print $fh "<h3>lonhttpd at pid $lonhttpdpid responding</h3>";
       kill USR1 => $lonhttpdpid;  
       $restartflag=0;        $restartflag=0;
    } else {     } else {
       $errors++;        $errors++;
Line 810  rename ("$statusdir/newstatus.html","$st Line 805  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.34  
changed lines
  Added in v.1.38

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