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

Revision: 208
          http://sourceforge.net/p/logwatch/code/208
Author:   stefjakobs
Date:     2014-09-08 19:50:58 +0000 (Mon, 08 Sep 2014)
Log Message:
-----------
kernel: add support for more drbd messages; skip annoying lines (Thanks: gulikoza)

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

Modified: scripts/services/kernel
===================================================================
--- scripts/services/kernel	2014-09-08 19:49:06 UTC (rev 207)
+++ scripts/services/kernel	2014-09-08 19:50:58 UTC (rev 208)
@@ -104,8 +104,12 @@
       # Standard boot messages
       next if $ThisLine =~ /Giving out device to /;
       $EDACs{$1}++;
-   } elsif ($ThisLine =~ /block (drbd\d+): Online verify found (\d+) \d+k block out of sync/) {
-      $DRBDErrors{$1} = $2;
+   } elsif ($ThisLine =~ /(block drbd\d+): Online verify found (\d+) \d+k block out of sync/) {
+      $DRBDErrors{$1}{"$2 block(s) out of sync"} = 1;
+   } elsif ($ThisLine =~ /(block drbd\d+): \[.*\] sock_sendmsg time expired/) {
+      $DRBDErrors{$1}{"sock_sendmsg time expired"}++;
+   } elsif ($ThisLine =~ /(block drbd\d+): Began resync as (SyncSource|SyncTarget)/) {
+      $DRBDErrors{$1}{"Began resync as $2"}++;
    } elsif ( ( my $errormsg ) = ( $ThisLine =~ /(.*?error.{0,17})/i ) ) {
       # filter out smb open/read errors cased by insufficient permissions
       my $SkipError = 0;
@@ -137,6 +141,10 @@
       $SkipError = 1 if $ThisLine =~ /smb_open: .* open failed, result=-13/;
       $SkipError = 1 if $ThisLine =~ /smb_open: .* open failed, error=-13/;
       $SkipError = 1 if $ThisLine =~ /block drbd\d+: Out of sync: start=\d+/;
+      $SkipError = 1 if $ThisLine =~ /block drbd\d+: updated( sync)? UUIDs?/i;
+      $SkipError = 1 if $ThisLine =~ /block drbd\d+: Resync done/;
+      $SkipError = 1 if $ThisLine =~ /block drbd\d+: cs:Ahead rs_left/;
+      $SkipError = 1 if $ThisLine =~ /block drbd\d+: \d+ % had equal checksums, eliminated:/;
       $Kernel{$ThisLine}++ if ( (! $SkipError) || ($Detail > 8)) ;
    }
 }
@@ -161,7 +169,11 @@
 if (keys %DRBDErrors) {
    print "\nWARNING:  DRBD Errors Present\n";
    foreach my $Thisone ( sort {$a cmp $b} keys %DRBDErrors ) {
-      print "   $Thisone :  $DRBDErrors{$Thisone} block(s) out of sync\n";
+      foreach my $Msg (sort {$a cmp $b} keys %{$DRBDErrors{$Thisone}}) {
+         print "   $Thisone: $Msg";
+         print " :  $DRBDErrors{$Thisone}{$Msg} Time(s)" if $DRBDErrors{$Thisone}{$Msg} > 1;
+         print "\n";
+      }
    }
 }
 

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


------------------------------------------------------------------------------
Want excitement?
Manually upgrade your production database.
When you want reliability, choose Perforce
Perforce version control. Predictably reliable.
http://pubads.g.doubleclick.net/gampad/clk?id=157508191&iu=/4140/ostg.clktrk