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

Diff for /loncom/loncron between versions 1.34 and 1.37

version 1.34, 2002/10/29 20:21:32 version 1.37, 2003/03/10 17:39:21
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 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.37

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