SF.net SVN: logwatch:[80] scripts/services/kernel

Revision: 80
          http://logwatch.svn.sourceforge.net/logwatch/?rev=80&view=rev
Author:   opoplawski
Date:     2012-01-18 16:12:50 +0000 (Wed, 18 Jan 2012)
Log Message:
-----------
Handle kernel EDAC messages

Modified Paths:
--------------
    scripts/services/kernel

Modified: scripts/services/kernel
===================================================================
--- scripts/services/kernel	2011-12-21 17:28:39 UTC (rev 79)
+++ scripts/services/kernel	2012-01-18 16:12:50 UTC (rev 80)
@@ -65,6 +65,7 @@
 my %OOM = ();
 my %Errors = ();
 my %Kernel = ();
+my %EDACs = ();
 
 while (defined(my $ThisLine = <STDIN>)) {
    chomp($ThisLine);
@@ -97,7 +98,9 @@
    } elsif ($ThisLine =~ /([^(]*)\(\d+\): floating-point assist fault at ip/) {
       $FPAssists{$1}++;
    } elsif ($ThisLine =~ /Out of memory: Killed process \d+ \((.*)\)/) {
-      $OOM{$1}++
+      $OOM{$1}++;
+   } elsif ($ThisLine =~ /(EDAC .*)/) {
+      $EDACs{$1}++;
    } elsif ( ( my $errormsg ) = ( $ThisLine =~ /(.*?[Ee]rror.{0,17})/ ) ) {
       # filter out smb open/read errors cased by insufficient permissions
       my $SkipError = 0;
@@ -208,6 +211,13 @@
    }
 }
 
+if (keys %EDACs) {
+   print "\nWARNING:  Kernel EDAC Messages\n";
+   foreach my $Thisone ( sort {$a cmp $b} keys %EDACs ) {
+      print "   $Thisone ...:  $EDACs{$Thisone} Time(s)\n";
+   }
+}
+
 # OTHER
 if ( ($Detail >= 5) and (keys %Kernel) ) {
    print "\n";

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.


------------------------------------------------------------------------------
Keep Your Developer Skills Current with LearnDevNow!
The most comprehensive online learning library for Microsoft developers
is just $99.99! Visual Studio, SharePoint, SQL - plus HTML5, CSS3, MVC3,
Metro Style Apps, more. Free future releases when you subscribe now!
http://p.sf.net/sfu/learndevnow-d2d