Patch for named
Orion Poplawski <[email protected]>
| Newsgroups | gmane.comp.log.logwatch.devel |
|---|---|
| Message-ID | <[email protected]> |
Handles some messages I'm seeing on my Fedora 7 slave nameserver. -- Orion Poplawski Technical Manager 303-415-9701 x222 NWRA/CoRA Division FAX: 303-415-9702 3380 Mitchell Lane [email protected] Boulder, CO 80301 http://www.cora.nwra.com _______________________________________________ Logwatch-Devel mailing list [email protected] http://www2.list.logwatch.org:81/mailman/listinfo/logwatch-devel
named.patch
(text/x-patch, 2.3 KB)
--- scripts/services/named.orig 2007-07-24 10:16:29.000000000 -0600
+++ scripts/services/named 2007-07-24 10:15:39.000000000 -0600
@@ -189,6 +189,8 @@
$ZoneLoaded{"cache $Zone"}++;
} elsif ( ($Zone) = ( $ThisLine =~ /cache zone \"(.*)\" .* loaded/ ) ) {
$ZoneLoaded{"cache $Zone"}++;
+ } elsif ( ($Zone) = ( $ThisLine =~ /automatic empty zone: (.*)/ ) ) {
+ $ZoneLoaded{"automatic empty zone $Zone"}++;
} elsif ( ($Zone) = ( $ThisLine =~ /primary zone \"(.+)\" loaded/ ) ) {
$ZoneLoaded{$Zone}++;
} elsif ( ($Zone) = ( $ThisLine =~ /master zone \"(.+)\" .* loaded/ ) ) {
@@ -228,6 +230,8 @@
} elsif ( ($Rhost, $ViewName, $Ldom) = ($ThisLine =~ /client ([\d\.]+)#\d+:(?: view ([^ ]+):)? update '(.*)' denied/)) {
$ViewName = ($ViewName ? "/$ViewName" : "");
$UpdateDenied{"$Rhost ($Ldom$ViewName)"}++;
+ } elsif ( ($Rhost, $Ldom) = ($ThisLine =~ /client ([\d\.]+)#\d+ update forwarding '(.*)' denied/)) {
+ $UpdateForwardingDenied{"$Rhost ($Ldom)"}++;
} elsif ( ($Zone) = ($ThisLine =~ /zone '([0-9a-zA-Z.-]+)' allows updates by IP address, which is insecure/)) {
$InsecUpdate{$Zone}++;
} elsif ( ($Zone) = ($ThisLine =~ /zone ([0-9a-zA-Z.\/-]+): journal rollforward failed: journal out of sync with zone/)) {
@@ -236,6 +240,8 @@
$ChannelAddFail{$Channel}{$Reason}++;
} elsif ( ($Zone,$Host,$Reason) = ($ThisLine =~ /zone ([^ ]*)\/IN: refresh: failure trying master ([^ ]*)#\d+: (.*)/) ) {
$MasterFailure{"$Zone from $Host"}{$Reason}++;
+ } elsif ( ($Zone,$Reason,$Host) = ($ThisLine =~ /zone ([^ ]*)\/IN: refresh: unexpected rcode \((.*)\) from master ([^ ]*)#\d+/) ) {
+ $MasterFailure{"$Zone from $Host"}{$Reason}++;
} elsif ( ($Zone) = ($ThisLine =~ /zone ([^\/]+)\/.+: refresh: non-authoritative answer from master/)) {
$NonAuthoritative{$Zone}++;
} elsif ( ($ThisLine =~ /unexpected RCODE \((.*)\) resolving/) ){
@@ -406,6 +412,13 @@
}
}
+if ( keys %UpdateForwardingDenied ) {
+ print "\nZone update forwarding refused:\n";
+ foreach $ThisOne (sort {$a cmp $b} keys %UpdateForwardingDenied) {
+ print " $ThisOne: $UpdateForwardingDenied{$ThisOne} Time(s)\n";
+ }
+}
+
if ( keys %InsecUpdate ) {
print "\nInsecure zones (dynamic update allowed by IP address):\n";
foreach $ThisOne (sort {$a cmp $b} keys %InsecUpdate) {