Diff for /loncom/loncron between versions 1.3 and 1.4

version 1.3, 2000/02/08 17:34:24 version 1.4, 2000/02/08 17:54:11
Line 153  close (LOADAVGH); Line 153  close (LOADAVGH);
 print $fh "<tt>$loadavg</tt>";  print $fh "<tt>$loadavg</tt>";
   
 @parts=split(/\s+/,$loadavg);  @parts=split(/\s+/,$loadavg);
 if ($parts[1]>3.0) {  if ($parts[1]>4.0) {
     $errors++;      $errors++;
 } elsif ($parts[1]>2.0) {  } elsif ($parts[1]>2.0) {
     $warnings++;      $warnings++;
Line 171  while ($line=<DFH>) { Line 171  while ($line=<DFH>) {
    $usage=$parts[4];     $usage=$parts[4];
    $usage=~s/\W//g;     $usage=~s/\W//g;
    if ($usage>90) {      if ($usage>90) { 
       $errors++;         $warnings++; 
    } elsif ($usage>80) {     } elsif ($usage>80) {
       $warnings++;        $warnings++;
    } elsif ($usage>60) {     } elsif ($usage>60) {
       $notices++;        $notices++;
    }     }
    if ($usage>95) { $errors++; }     if ($usage>95) { $warnings++; $warnings++ }
 }  }
 close (DFH);  close (DFH);
 print $fh "</pre>";  print $fh "</pre>";
Line 209  open (DFH,"tail -n100 $perlvar{'lonDaemo Line 209  open (DFH,"tail -n100 $perlvar{'lonDaemo
 while ($line=<DFH>) {   while ($line=<DFH>) { 
    print $fh "$line";     print $fh "$line";
    if ($line=~/INFO/) { $notices++; }     if ($line=~/INFO/) { $notices++; }
    if ($line=~/WARNING/) { $warnings++; }     if ($line=~/WARNING/) { $notices++; }
    if ($line=~/CRITICAL/) { $errors++; }     if ($line=~/CRITICAL/) { $warnings++; }
 };  };
 close (DFH);  close (DFH);
 }  }
Line 257  if (-e $londfile) { Line 257  if (-e $londfile) {
     open (DFH,"tail -n100 $perlvar{'lonDaemons'}/logs/lond.log|");      open (DFH,"tail -n100 $perlvar{'lonDaemons'}/logs/lond.log|");
     while ($line=<DFH>) {       while ($line=<DFH>) { 
       print $fh "$line";        print $fh "$line";
       if ($line=~/INFO/) { $notices++; }        if ($line=~/WARNING/) { $notices++; }
       if ($line=~/WARNING/) { $warnings++; }        if ($line=~/CRITICAL/) { $notices++; }
       if ($line=~/CRITICAL/) { $errors++; }  
     };      };
     close (DFH);      close (DFH);
     print $fh "</pre>";      print $fh "</pre>";
Line 290  open (DFH,"tail -n100 $perlvar{'lonDaemo Line 289  open (DFH,"tail -n100 $perlvar{'lonDaemo
 while ($line=<DFH>) {   while ($line=<DFH>) { 
    print $fh "$line";     print $fh "$line";
    if ($line=~/INFO/) { $notices++; }     if ($line=~/INFO/) { $notices++; }
    if ($line=~/WARNING/) { $warnings++; }     if ($line=~/WARNING/) { $notices++; }
    if ($line=~/CRITICAL/) { $errors++; }     if ($line=~/CRITICAL/) { $warnings++; }
 };  };
 close (DFH);  close (DFH);
 }  }
Line 339  if (-e $loncfile) { Line 338  if (-e $loncfile) {
     open (DFH,"tail -n100 $perlvar{'lonDaemons'}/logs/lonc.log|");      open (DFH,"tail -n100 $perlvar{'lonDaemons'}/logs/lonc.log|");
     while ($line=<DFH>) {       while ($line=<DFH>) { 
       print $fh "$line";        print $fh "$line";
       if ($line=~/INFO/) { $notices++; }        if ($line=~/WARNING/) { $notices++; }
       if ($line=~/WARNING/) { $warnings++; }        if ($line=~/CRITICAL/) { $notices++; }
       if ($line=~/CRITICAL/) { $errors++; }  
     };      };
     close (DFH);      close (DFH);
     print $fh "</pre>";      print $fh "</pre>";

Removed from v.1.3  
changed lines
  Added in v.1.4


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