--- 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 "";