--- loncom/loncron 1999/11/18 19:52:46 1.2 +++ loncom/loncron 2000/02/08 17:34:24 1.3 @@ -7,7 +7,8 @@ # 6/1/99,6/2,6/10,6/11,6/12,6/14,6/26,6/28,6/29,6/30, # 7/1,7/2,7/9,7/10,7/12 Gerd Kortemeyer) # -# 7/14,7/15,7/19,7/21,7/22,11/18 Gerd Kortemeyer +# 7/14,7/15,7/19,7/21,7/22,11/18, +# 2/8 Gerd Kortemeyer use IO::File; use IO::Socket; @@ -102,7 +103,7 @@ print $fh (< LON Status Report $perlvar{'lonHostID'} - +

LON Status Report $perlvar{'lonHostID'}

$date ($now)

@@ -204,10 +205,12 @@ print $fh ""; print $fh '

lond

Log

';
 
 if (-e "$perlvar{'lonDaemons'}/logs/lond.log"){
-open (DFH,"tail -n50 $perlvar{'lonDaemons'}/logs/lond.log|");
+open (DFH,"tail -n100 $perlvar{'lonDaemons'}/logs/lond.log|");
 while ($line=) { 
    print $fh "$line";
-   if ($line=~/giving up/) { $notices++; }
+   if ($line=~/INFO/) { $notices++; }
+   if ($line=~/WARNING/) { $warnings++; }
+   if ($line=~/CRITICAL/) { $errors++; }
 };
 close (DFH);
 }
@@ -249,6 +252,18 @@ if (-e $londfile) {
        print $fh "Seems like that did not work!
";
        $errors++;
    }
+   if (-e "$perlvar{'lonDaemons'}/logs/lond.log"){
+    print $fh "
";
+    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++; }
+    };
+    close (DFH);
+    print $fh "
";
+   }
 }
 
 $fname="$perlvar{'lonDaemons'}/logs/lond.log";
@@ -271,10 +286,12 @@ if ($size>40000) {
 print $fh '
lonc
Log
';
 
 if (-e "$perlvar{'lonDaemons'}/logs/lonc.log"){
-open (DFH,"tail -n50 $perlvar{'lonDaemons'}/logs/lonc.log|");
+open (DFH,"tail -n100 $perlvar{'lonDaemons'}/logs/lonc.log|");
 while ($line=) { 
    print $fh "$line";
-   if ($line=~/died/) { $notices++; }
+   if ($line=~/INFO/) { $notices++; }
+   if ($line=~/WARNING/) { $warnings++; }
+   if ($line=~/CRITICAL/) { $errors++; }
 };
 close (DFH);
 }
@@ -317,6 +334,18 @@ if (-e $loncfile) {
        print $fh "Seems like that did not work!
";
        $errors++;
    }
+   if (-e "$perlvar{'lonDaemons'}/logs/lonc.log") {
+    print $fh "
";
+    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++; }
+    };
+    close (DFH);
+    print $fh "
";
+   }
 }
 
 $fname="$perlvar{'lonDaemons'}/logs/lonc.log";
@@ -342,9 +371,6 @@ if (-e "$perlvar{'lonDaemons'}/logs/lonn
 open (DFH,"tail -n50 $perlvar{'lonDaemons'}/logs/lonnet.log|");
 while ($line=) { 
     print $fh "$line";
-    if ($line=~/Delayed/) { $warnings++; }
-    if ($line=~/giving up/) { $warnings++; }
-    if ($line=~/FAILED/) { $errors++; }
 };
 close (DFH);
 }