SF.net SVN: logwatch:[218] scripts/services/dhcpd

[email protected] Tue, 9 Sep 2014 09:26:29 +0000
Newsgroups gmane.comp.log.logwatch.devel
Message-ID <[email protected]>
Revision: 218
          http://sourceforge.net/p/logwatch/code/218
Author:   stefjakobs
Date:     2014-09-09 09:26:29 +0000 (Tue, 09 Sep 2014)
Log Message:
-----------
dhcpd: report capitalized logs; report forwarding mapping (Thanks: Kenny Root)

Modified Paths:
--------------
    scripts/services/dhcpd

Modified: scripts/services/dhcpd
===================================================================
--- scripts/services/dhcpd	2014-09-09 09:21:20 UTC (rev 217)
+++ scripts/services/dhcpd	2014-09-09 09:26:29 UTC (rev 218)
@@ -161,11 +161,11 @@
       if ($Detail >= 5) {
          $data{'Addresses Released'}{$line}++;
       }
-   } elsif ($line =~ s/^added reverse map from ([\d]+).([\d]+).([\d]+).([\d]+).in-addr.arpa. to ([a-zA-Z\d._-]+)\s*$/Add reverse $4.$3.$2.$1 -> $5/) {
+   } elsif ($line =~ s/^[Aa]dded reverse map from ([\d]+)\.([\d]+)\.([\d]+)\.([\d]+)\.in-addr\.arpa\.? to ([a-zA-Z\d._-]+)\s*$/Add reverse $4.$3.$2.$1 -> $5/) {
       if ($Detail >= 7) {
          $data{'DNS Mappings'}{$line}++;
       }
-   } elsif ($line =~ s/^removed reverse map on ([\d]+).([\d]+).([\d]+).([\d]+).in-addr.arpa.\s*$/Remove reverse $4.$3.$2.$1/) {
+   } elsif ($line =~ s/^[Rr]emoved reverse map on ([\d]+)\.([\d]+)\.([\d]+)\.([\d]+)\.in-addr\.arpa\.?\s*$/Remove reverse $4.$3.$2.$1/) {
       if ($Detail >= 7) {
          $data{'DNS Mappings'}{$line}++;
       }
@@ -173,6 +173,14 @@
       if ($Detail >= 7) {
          $data{'DNS Mappings'}{$line}++;
       }
+   } elsif ($line =~ s/^Removed forward map from ([a-zA-Z\d\-_.]+) to ([\d.]+)\s*$/Remove forward $1 -> $2/) {
+      if ($Detail >= 7) {
+         $data{'DNS Mappings'}{$line}++;
+      }
+   } elsif ($line =~ /^No hostname for [\d.]+\s*$/) {
+      if ($Detail >= 7) {
+         $data{'Warnings'}{$line}++;
+      }
    } elsif ($line =~ s/^if ([a-zA-Z\d\-_.]+) IN A rrset doesn't exist delete ([a-zA-Z\d\-_.]+) IN TXT "([a-f\d]+)": success.\s*$/Remove forward TXT from $1 (TXT "$3")/) {
       if ($Detail >= 7) {
          $data{'DNS Mappings'}{$line}++;

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