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