other/Puppet: common/logwatch/named annotate

annotate common/logwatch/named @ 260:5f63afb70415

Fix naming of files for new VPS overrides $hostname is just the short host name, not the FQDN

author	IBBoard <dev@ibboard.co.uk>
date	Sun, 29 Dec 2019 10:57:18 -0500
parents	78dc899775b7
children

rev	line source
185 78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	1 ##########################################################################
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	2 # $Id$
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	3 ##########################################################################
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	4
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	5 #####################################################
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	6 ## Copyright (c) 2008 Kirk Bauer
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	7 ## Covered under the included MIT/X-Consortium License:
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	8 ## http://www.opensource.org/licenses/mit-license.php
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	9 ## All modifications and contributions by other persons to
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	10 ## this script are assumed to have been donated to the
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	11 ## Logwatch project and thus assume the above copyright
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	12 ## and licensing terms. If you want to make contributions
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	13 ## under your own copyright or a different license this
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	14 ## must be explicitly stated in the contribution an the
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	15 ## Logwatch project reserves the right to not accept such
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	16 ## contributions. If you have made significant
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	17 ## contributions to this script and want to claim
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	18 ## copyright please contact logwatch-devel@lists.sourceforge.net.
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	19 #########################################################
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	20
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	21 use Logwatch ':ip';
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	22
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	23
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	24 #$DoLookup = ValueOrDefault($ENV{'named_ip_lookup'}, 0);
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	25 $Debug = ValueOrDefault($ENV{'LOGWATCH_DEBUG'}, 0);
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	26 $Detail = ValueOrDefault($ENV{'LOGWATCH_DETAIL_LEVEL'}, 0);
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	27
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	28 # Avoid "Use of uninitialized value" warning messages.
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	29 sub ValueOrDefault {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	30 my ($value, $default) = @_;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	31 return ($value ? $value : $default);
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	32 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	33
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	34 if ( $Debug >= 5 ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	35 print STDERR "\n\nDEBUG: Inside NAMED Filter \n\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	36 $DebugCounter = 1;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	37 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	38
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	39
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	40 while (defined($ThisLine = <STDIN>)) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	41 if ( $Debug >= 30 ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	42 print STDERR "DEBUG($DebugCounter): $ThisLine";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	43 $DebugCounter++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	44 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	45
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	46 if (
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	47 ($ThisLine =~ /RR negative cache entry/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	48 ($ThisLine =~ /ns_....: .* NS points to CNAME/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	49 ($ThisLine =~ /accept: connection reset by peer/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	50 ($ThisLine =~ /Connection reset by peer/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	51 # typo fixed in 2004 release
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	52 ($ThisLine =~ /transfer(r)?ed serial/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	53 ($ThisLine =~ /There may be a name server already running/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	54 ($ThisLine =~ /exiting/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	55 ($ThisLine =~ /running/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	56 ($ThisLine =~ /NSTATS /) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	57 ($ThisLine =~ /Cleaned cache of \d+ RRs/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	58 ($ThisLine =~ /USAGE \d+ \d+ CPU=\d+.*/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	59 ($ThisLine =~ /XSTATS /) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	60 ($ThisLine =~ /Ready to answer queries/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	61 ($ThisLine =~ /Forwarding source address is/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	62 ($ThisLine =~ /bad referral/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	63 ($ThisLine =~ /prerequisite not satisfied/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	64 ($ThisLine =~ /(rcvd\|Sent) NOTIFY/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	65 ($ThisLine =~ /ns_resp: TCP truncated/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	66 ($ThisLine =~ /No possible A RRs/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	67 ($ThisLine =~ /points to a CNAME/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	68 ($ThisLine =~ /dangling CNAME pointer/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	69 ($ThisLine =~ /listening on/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	70 ($ThisLine =~ /unrelated additional info/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	71 ($ThisLine =~ /Response from unexpected source/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	72 ($ThisLine =~ /No root nameservers for class IN/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	73 ($ThisLine =~ /recvfrom: No route to host/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	74 # Be sure to catch: transfer of 'zone' from IP#53: failed to connect: timed out
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	75 # not exact just triggers a full transfer
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	76 ($ThisLine =~ /transfer of .*: (IXFR\|AXFR(\|-style IXFR) (started\|ended)\|connected using\|Transfer completed\|failed while receiving responses: not exact)/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	77 ($ThisLine =~ /Transfer status: success/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	78 ($ThisLine =~ /using \d+ CPU/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	79 ($ThisLine =~ /loading configuration/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	80 ($ThisLine =~ /command channel listening/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	81 ($ThisLine =~ /configuring command channel from/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	82 ($ThisLine =~ /interface ignored/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	83 ($ThisLine =~ /no IPv6 interfaces found/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	84 ($ThisLine =~ /using \d+ UDP listeners per interface/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	85 ($ThisLine =~ /^running/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	86 ($ThisLine =~ /^exiting/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	87 ($ThisLine =~ /no longer listening/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	88 ($ThisLine =~ /the default for the .* option is now/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	89 ($ThisLine =~ /stopping command channel on \S+/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	90 ($ThisLine =~ /Malformed response from/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	91 ($ThisLine =~ /client .* response from Internet for .*/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	92 # ($ThisLine =~ /client .+ query $cache$ '.*' denied/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	93 ($ThisLine =~ /client .+(?: $[^)]+$)?: query:/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	94 # Do we really want to ignore these?
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	95 #($ThisLine =~ /unknown logging category/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	96 ($ThisLine =~ /could not open entropy source/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	97 ($ThisLine =~ /\/etc\/rndc.key: file not found/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	98 ($ThisLine =~ /sending notifies/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	99 # file syntax error get reported twice and are already caught below
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	100 ($ThisLine =~ /loading master file/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	101 ($ThisLine =~ /^ succeeded$/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	102 ($ThisLine =~ /\\\* POKED TIMER \\\*/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	103 # The message about the end of transfer is the interesting one
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	104 ($ThisLine =~ /: Transfer started./) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	105 ($ThisLine =~ /D-BUS service (disabled\|enabled)./) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	106 ($ThisLine =~ /D-BUS dhcdbd subscription disabled./) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	107 ($ThisLine =~ /automatic empty zone/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	108 ($ThisLine =~ /binding TCP socket: address in use/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	109 ($ThisLine =~ /dbus_mgr initialization failed. D-BUS service is disabled./) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	110 ($ThisLine =~ /dbus_svc_add_filter failed/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	111 ($ThisLine =~ /isc_log_open 'named.run' failed: permission denied/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	112 ($ThisLine =~ /weak RSASHA1 $5$ key found $exponent=3$/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	113 ($ThisLine =~ /Bad file descriptor/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	114 ($ThisLine =~ /open: .*: file not found/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	115 ($ThisLine =~ /queries: client [\.0-9a-fA-F#:]* view localhost_resolver: query: .* IN .*/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	116 ($ThisLine =~ /zone .: NS '.' is a CNAME $illegal$/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	117 ($ThisLine =~ /skipping nameserver '.*' because it is a CNAME,/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	118 ($ThisLine =~ /zone .*: zone serial unchanged. zone may fail to transfer to slaves/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	119 ($ThisLine =~ /zone .: loading from master file . failed/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	120 ($ThisLine =~ /zone .: NS '.' has no address records/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	121 ($ThisLine =~ /.*: not a valid number$/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	122 ($ThisLine =~ /^(.*: )?unexpected end of input/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	123 ($ThisLine =~ /too many timeouts resolving '.' .: disabling EDNS/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	124 ($ThisLine =~ /too many timeouts resolving '.' .: reducing the advertised EDNS UDP packet size to .* octets/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	125 ($ThisLine =~ /reloading zones succeeded/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	126 ($ThisLine =~ /generating session key/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	127 ($ThisLine =~ /success resolving '.' $in '.'?$ after disabling EDNS/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	128 ($ThisLine =~ /success resolving '.' $in '.'?$ after reducing the advertised EDNS UDP packet size to 512 octets/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	129 ($ThisLine =~ /the working directory is not writable/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	130 ($ThisLine =~ /using default UDP\/IPv[46] port range: \[[0-9], [0-9]\]/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	131 ($ThisLine =~ /adjusted limit on open files from [0-9]* to [0-9]*/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	132 ($ThisLine =~ /using up to [0-9]* sockets/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	133 ($ThisLine =~ /built with/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	134 ($ThisLine =~ /TTL differs in rdataset, adjusting [0-9]* -> [0-9]*/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	135 ($ThisLine =~ /max open files $[0-9]$ is smaller than max sockets $[0-9]$/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	136 ($ThisLine =~ /clients-per-query (?:de\|in)creased to .*/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	137 ($ThisLine =~ /^must-be-secure resolving '.': ./) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	138 ($ThisLine =~ /^(error $)?no valid (DS\|KEY\|RRSIG)$? resolving '.': ./) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	139 ($ThisLine =~ /^not insecure resolving '.': ./) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	140 ($ThisLine =~ /^validating \@0x[[:xdigit:]]+: .* DS: must be secure failure/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	141 ($ThisLine =~ /^(error $)?broken trust chain$? resolving '.': ./) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	142 ($ThisLine =~ /journal file [^ ]* does not exist, creating it/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	143 ($ThisLine =~ /serial number $\d+$ received from master/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	144 ($ThisLine =~ /zone .: notify from .: serial \d+/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	145 ($ThisLine =~ /zone is up to date/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	146 ($ThisLine =~ /refresh in progress, refresh check queued/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	147 ($ThisLine =~ /refresh: NODATA response from master/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	148 ($ThisLine =~ /update with no effect/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	149 ($ThisLine =~ /reading built-in trusted keys from file/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	150 ($ThisLine =~ /reading built-in trust anchors from file/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	151 ($ThisLine =~ /using built-in trusted-keys/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	152 ($ThisLine =~ /set up managed keys zone/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	153 ($ThisLine =~ /managed-keys-zone.*key now trusted/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	154 ($ThisLine =~ /dhcpupdate: forwarding update for zone/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	155 ($ThisLine =~ /forwarded dynamic update: master [^ ]* returned: (NXRRSET\|YXDOMAIN)/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	156 ($ThisLine =~ /using .* as GeoIP directory/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	157 ($ThisLine =~ /GEO-.* Build/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	158 ($ThisLine =~ /initializing GeoIP /) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	159 # the following seems okay since it says "success"
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	160 ($ThisLine =~ /managed-keys-zone.: No DNSKEY RRSIGs found for '.': success/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	161 ($ThisLine =~ /managed-keys-zone.: Unable to fetch DNSKEY set '.': timed out/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	162 ($ThisLine =~ /^sizing zone task pool based on \d+ zones/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	163 ($ThisLine =~ /^BIND \d+ is maintained by Internet Systems Consortium/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	164 ($ThisLine =~ /a non-profit 501/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	165 ($ThisLine =~ /corporation. Support and training for BIND \d+ are/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	166 ($ThisLine =~ /available at https:\/\/www.isc.org\/support/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	167 ($ThisLine =~ /----------------------------------------------------/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	168 ($ThisLine =~ /next key event: /) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	169 ($ThisLine =~ /reconfiguring zone keys/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	170 ($ThisLine =~ /using built-in DLV key/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	171 # ($ThisLine =~ /reading built-in trusted keys from file/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	172 ($ThisLine =~ /all zones loaded/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	173 ($ThisLine =~ /resolver priming query complete/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	174 ($ThisLine =~ /client .* signer .* approved/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	175 ($ThisLine =~ /stop limiting/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	176 # ignore this line because the following line describes the error
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	177 ($ThisLine =~ /unexpected error/)
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	178 ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	179 # Don't care about these...
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	180 } elsif (
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	181 ($ThisLine =~ /starting\..*named/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	182 ($ThisLine =~ /starting BIND/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	183 ($ThisLine =~ /named startup succeeded/)
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	184 ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	185 $StartNamed++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	186 } elsif ( $ThisLine =~ /(reloading nameserver\|named reload succeeded)/ ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	187 $ReloadNamed++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	188 } elsif (
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	189 ($ThisLine =~ /shutting down/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	190 ($ThisLine =~ /named shutting down/ ) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	191 ($ThisLine =~ /named shutdown succeeded/ )
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	192 ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	193 $ShutdownNamed++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	194 } elsif ( $ThisLine =~ /named shutdown failed/ ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	195 $ShutdownNamedFail++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	196 } elsif ( (($Host, $Zone) = ( $ThisLine =~ /client ([^\#]+)#[^\:]+: (?:view \w+: )?zone transfer '(.+)' denied/ )) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	197 (($Host, $Zone) = ( $ThisLine =~ /client ([^\#]+)#[^\:]+: (?:view \w+: )?bad zone transfer request: '(.+)':/ )) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	198 $DeniedZoneTransfers{$Host}{$Zone}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	199 } elsif ( ($Zone) = ( $ThisLine =~ /zone (.+) zone transfer deferred due to quota/ ) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	200 $DeferredZoneTransfers{$Zone}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	201 } elsif ( ($Zone, $Host) = ( $ThisLine =~ /transfer of '(.+)' from ([^\#]+)#[^\:]+: (failed\|(Transfer status\|giving up): ((network\|host) unreachable\|timed out\|connection refused))/ ) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	202 $FailedZoneTransfers{$Host}{$Zone}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	203 } elsif ( ($Zone) = ( $ThisLine =~ /cache zone \"(.*)\" loaded/ ) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	204 $ZoneLoaded{"cache $Zone"}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	205 } elsif ( ($Zone) = ( $ThisLine =~ /cache zone \"(.)\" . loaded/ ) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	206 $ZoneLoaded{"cache $Zone"}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	207 } elsif ( ($Zone) = ( $ThisLine =~ /automatic empty zone: (.*)/ ) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	208 $ZoneLoaded{"automatic empty zone $Zone"}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	209 } elsif ( ($Zone) = ( $ThisLine =~ /primary zone \"(.+)\" loaded/ ) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	210 $ZoneLoaded{$Zone}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	211 } elsif ( ($Zone) = ( $ThisLine =~ /master zone \"(.+)\" .* loaded/ ) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	212 $ZoneLoaded{$Zone}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	213 } elsif ( ($Zone) = ( $ThisLine =~ /secondary zone \"(.+)\" loaded/ ) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	214 $ZoneLoaded{"secondary $Zone"}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	215 } elsif ( ($Zone) = ( $ThisLine =~ /slave zone \"(.+)\" .* loaded/ ) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	216 $ZoneLoaded{"secondary $Zone"}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	217 } elsif ( ($Zone) = ( $ThisLine =~ /zone (.+): expired/ ) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	218 $ZoneExpired{$Zone}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	219 } elsif ( ($Zone) = ( $ThisLine =~ /zone (.+): loaded serial/ ) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	220 $ZoneLoaded{$Zone}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	221 } elsif ( ($Zone) = ( $ThisLine =~ /(managed-keys-zone.*): loaded serial/ ) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	222 $ZoneLoaded{$Zone}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	223 } elsif ( (undef,$Addr,$Server) = ( $ThisLine =~ /(C\|c)onnection refused\)? resolving '(.+)': (.+)/ ) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	224 $ConnectionRefused{$Addr}{$Server}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	225 } elsif ( (undef,$Addr,undef,$Server) = ( $ThisLine =~ /ame server (on\|resolving) '(.+)' $in .+$:\s+(\[.+\]\.\d+)?\s*'?(.+)'?:?/ ) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	226 $LameServer{$Addr}{$Server}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	227 } elsif ( (($Zone) = ( $ThisLine =~ /Zone \"(.+)\" was removed/ )) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	228 (($Zone) = ( $ThisLine =~ /zone (.+): $.*$ removed/ )) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	229 $ZoneRemoved{$Zone}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	230 } elsif ( ($Zone) = ( $ThisLine =~ /received notify for zone '(.*)'/ ) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	231 $ZoneReceivedNotify{$Zone}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	232 } elsif ( ($Zone) = ( $ThisLine =~ /zone (.+): refused notify from non-master/ ) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	233 $ZoneRefusedNotify{$Zone}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	234 # } elsif ( ($Rhost,$Ldom,$Reason) = ( $ThisLine =~ /client ([\d\.a-fA-F:]+) bad zone transfer request: '(.+)': (.+)$/ ) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	235 } elsif ( ($Rhost,$Ldom,$Reason) = ( $ThisLine =~ /client ([\.0-9a-fA-F:]+)#\d+: bad zone transfer request: '(.+)': (.+)/ ) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	236 $BadZone{$Reason}{"$Rhost ($Ldom)"}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	237 } elsif ( ($Host) = ( $ThisLine =~ /([^ ]+) has CNAME and other data $invalid$/ ) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	238 push @CNAMEAndOther, $Host;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	239 } elsif ( ($File,$Line,$Entry,$Error) = ( $ThisLine =~ /dns_master_load: ([^:]+):(\d+): ([^ ]+): (.+)$/ ) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	240 $ZoneFileErrors{$File}{"$Entry: $Error"}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	241 } elsif ( ($File,$Line,$Entry,$Error) = ( $ThisLine =~ /warning: ([^:]+):(\d+): (.+)$/ ) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	242 $ZoneFileErrors{$File}{"file does not end with newline: $Error"}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	243 } elsif ( ($Way,$Host) = ( $ThisLine =~ /([^ ]+): sendto$\[([^ ]+)\].+$: Network is unreachable/ ) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	244 $FullHost = LookupIP ($Host);
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	245 $NetworkUnreachable{$Way}{$FullHost}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	246 } elsif ( ($Host,$Way) = ( $ThisLine =~ /client (?:\@0x[0-9a-fA-F]+ )?(.)#\d+(?: $.$)?: (?:view \w+: )?error ([^ ]+) response: network unreachable/ ) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	247 $FullHost = LookupIP ($Host);
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	248 $NetworkUnreachable{$Way}{$FullHost}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	249 } elsif ( ($Zone,$Message) = ( $ThisLine =~ /client [^\#]+#[^\:]+: (?:view \w+: )?updating zone '([^\:]+)': (.*)$/ ) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	250 $ZoneUpdates{$Zone}{$Message}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	251 } elsif ( ($Host,$Zone) = ( $ThisLine =~ /approved AXFR from \[(.+)\]\..+ for \"(.+)\"/ ) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	252 $FullHost = LookupIP ($Host);
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	253 $AXFR{$Zone}{$FullHost}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	254 } elsif ( ($Client) = ( $ThisLine =~ /warning: client (.*) no more TCP clients/ ) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	255 $FullClient = LookupIP ($Client);
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	256 $DeniedTCPClient{$FullClient}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	257 } elsif ( ($Client) = ( $ThisLine =~ /client (?:\@0x[0-9a-fA-F]+ )?(.)#\d+(?: $.$)?: (?:view \w+: )?query $cache$ (?:'.*' )?denied/ ) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	258 $FullClient = LookupIP ($Client);
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	259 $DeniedQuery{$FullClient}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	260 } elsif ( ($Client) = ( $ThisLine =~ /client (?:\@0x[0-9a-fA-F]+ )?([^#])(#\d+)?(?: $.$)?: query '.*' denied/ ) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	261 $FullClient = LookupIP ($Client);
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	262 $DeniedQueryNoCache{$FullClient}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	263 } elsif ( ($Rhost, $ViewName, $Ldom) = ($ThisLine =~ /client (?:\@0x[0-9a-fA-F]+ )?([\.0-9a-fA-F:]+)#\d+: (?:view (\w+): )?update '(.*)' denied/)) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	264 $ViewName = ($ViewName ? "/$ViewName" : "");
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	265 $UpdateDenied{"$Rhost ($Ldom$ViewName)"}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	266 } elsif ( ($Rhost, $Ldom) = ($ThisLine =~ /client ([\d\.]+)#\d+: update forwarding '(.*)' denied/)) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	267 $UpdateForwardingDenied{"$Rhost ($Ldom)"}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	268 } elsif ( ($Zone) = ($ThisLine =~ /zone '([0-9a-zA-Z.-]+)' allows updates by IP address, which is insecure/)) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	269 $InsecUpdate{$Zone}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	270 } elsif ( ($Zone) = ($ThisLine =~ /zone ([0-9a-zA-Z.\/-]+): journal rollforward failed: journal out of sync with zone/)) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	271 $JournalFail{$Zone}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	272 } elsif ( ($Zone) = ($ThisLine =~ /(managed-keys-zone.*): journal file is out of date: removing journal file/)) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	273 $JournalFail{$Zone}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	274 } elsif ( ($Channel,$Reason) = ($ThisLine =~ /couldn't add command channel (.+#\d+): (.*)$/)) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	275 $ChannelAddFail{$Channel}{$Reason}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	276 } elsif ( ($Zone,$Host,undef,$Reason) = ($ThisLine =~ /zone ([^ ]): refresh: failure trying master ([^ ])#\d+( $source .$)?: (.)/) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	277 $MasterFailure{"$Zone from $Host"}{$Reason}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	278 } elsif ( ($Zone,$Reason,$Host) = ($ThisLine =~ /zone ([^ ]): refresh: unexpected rcode $(.)$ from master ([^ ]*)#\d+/) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	279 $MasterFailure{"$Zone from $Host"}{$Reason}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	280 } elsif ( ($Zone) = ($ThisLine =~ /zone ([^\/]+)\/.+: refresh: non-authoritative answer from master/)) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	281 $NonAuthoritative{$Zone}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	282 } elsif ( ($Zone) = ($ThisLine =~ /zone ([^\/]+)\/.+: refresh: retry limit for master \S+ exceeded/) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	283 $RetryLimit{$Zone}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	284 } elsif ( ($Rcode, $Zone, $Host) = ($ThisLine =~ /(?:error $)?unexpected RCODE$? $?(.?)$? resolving '(.)': (.*)$/) ){
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	285 $UnexpRCODE{$Rcode}{$Zone}{$Host}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	286 } elsif ( ($Rcode, $Zone, $Host) = ($ThisLine =~ /(.) unexpected RCODE resolving '(.)': (.*)$/) ){
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	287 $UnexpRCODE{$Rcode}{$Zone}{$Host}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	288 } elsif ( ($ThisLine =~ /(?:error $)?FORMERR$? resolving '[^ ]+: [.0-9a-fA-F:#]+/) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	289 ($ThisLine =~ /DNS format error from [^ ]+ resolving [^ ]+( for client [^ ]+)?: .*/) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	290 chomp($ThisLine);
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	291 $FormErr{$ThisLine}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	292 } elsif ( ($ThisLine =~ /found [0-9]* CPU(s)?, using [0-9]* worker thread(s)?/) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	293 chomp($ThisLine);
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	294 $StartLog{$ThisLine}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	295 } elsif ( (($File,$Line,$Problem) = ($ThisLine =~ /\/etc\/(rndc.key\|named.conf):([0-9]+): (unknown option '[^ ]*')/)) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	296 (($File,$Line,$Problem) = ($ThisLine =~ /\/etc\/(rndc.key\|named.conf):([0-9]+): ('[^ ]' expected near end of file)/)) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	297 (($File,$Line,$Problem) = ($ThisLine =~ /\/etc\/(named..conf):([0-9]+): (.)/)) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	298 (($File,$Line,$Problem) = ($ThisLine =~ /()()(could not configure root hints from '.*': file not found)/))) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	299 $ConfProb{$File}{"$Line,$Problem"}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	300 } elsif ( (($ErrorText) = ($ThisLine =~ /^(RUNTIME_CHECK.*)/))or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	301 (($ErrorText) = ($ThisLine =~ /^(.* REQUIRE.* failed.*)$/)) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	302 (($ErrorText) = ($ThisLine =~ /(.*: fatal error)/)) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	303 (($ErrorText) = ($ThisLine =~ /(.*: out of memory)/)) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	304 $NError{$ErrorText}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	305 } elsif ( (($ErrorText) = ($ThisLine =~ /^(GeoIP .* DB not available)/)) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	306 $GeoIPError{$ErrorText}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	307 } elsif ( (($ErrorText) = ($ThisLine =~ /^(internal_accept: fcntl failed: Too many open files)/)) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	308 (($ErrorText) = ($ThisLine =~ /^(socket: too many open file descriptors)/)) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	309 $ErrOpenFiles{$ErrorText}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	310 } elsif ( ($From,$Log) = ($ThisLine =~ /invalid command from ([\.0-9a-fA-F:])#[0-9]: (.*)/) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	311 $CCMessages{"$From,$Log"}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	312 } elsif ( (($Log) = ($ThisLine =~ /(freezing .zone.)/)) or
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	313 (($Log) = ($ThisLine =~ /(thawing .zone.)/)) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	314 $CCMessages2{$Log}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	315 } elsif (($CCC) = ($ThisLine =~ /unknown control channel command '(.*)'/)) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	316 $UnknownCCCommands{$CCC}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	317 } elsif (($CCC) = ($ThisLine =~ /received control channel command '(.*)'/)) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	318 $CCCommands{$CCC}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	319 } elsif (($Name,$Address) = ($ThisLine =~ /(?:error $)?network unreachable$? resolving '(.)': (.)/)) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	320 $NUR{$Name}{$Address}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	321 } elsif (($Name,$Address) = ($ThisLine =~ /(?:error $)?host unreachable$? resolving '(.)': (.)/)) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	322 $HUR{$Name}{$Address}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	323 } elsif (($Client) = ($ThisLine =~ /client ([\da-fA-F.:]+)(?:#\d*:)? notify question section contains no SOA/)) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	324 $NoSOA{$Client}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	325 } elsif (($Hint) = ($ThisLine =~ /checkhints: (.*)/) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	326 $Hints{$Hint}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	327 } elsif (($Response,$Net,$Zone) = ($ThisLine =~/limit (.+) responses to (\S+)(?: for (.+) \()?/)) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	328 $Zone = "None" unless defined($Zone);
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	329 $Limit{$Zone}{$Response}{$Net}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	330 } elsif (($Client,$Response,$Net,$Zone) = ($ThisLine =~/client ([^#]+)(?:#\d+)? $.*$: (?:view \w+: )?rate limit drop (.+) response to (\S+)(?: for (\S+))?/)) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	331 $Zone = "None" unless defined($Zone);
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	332 $LimitDrop{$Zone}{$Response}{$Net}{$Client}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	333 } elsif (($Client,$Response,$Net,$Zone) = ($ThisLine =~/client ([^#]+)(?:#\d+)? $.*$: (?:view \w+: )?rate limit slip (.+) response to (\S+)(?: for (\S+))?/)) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	334 $Zone = "None" unless defined($Zone);
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	335 $LimitSlip{$Zone}{$Response}{$Net}{$Client}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	336 } elsif (($Net,$Zone,$Response) = ($ThisLine =~/limit responses to (\S+)(?: for (\S+))? (.*) +\(/)) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	337 $Zone = "None" unless defined($Zone);
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	338 $Limit{$Zone}{$Response}{$Net}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	339 } elsif (($Client,$Net,$Zone,$Response) = ($ThisLine =~/client ([^#]+)(?:#\d+)? $.$: (?:view \w+: )?rate limit drop response to (\S+)(?: for (\S+))? (.) +\(/)) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	340 $Zone = "None" unless defined($Zone);
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	341 $LimitDrop{$Zone}{$Response}{$Net}{$Client}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	342 } elsif (($Client,$Net,$Zone,$Response) = ($ThisLine =~/client ([^#]+)(?:#\d+)? $.$: (?:view \w+: )?rate limit slip response to (\S+)(?: for (\S+))? (.) +\(/)) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	343 $Zone = "None" unless defined($Zone);
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	344 $LimitSlip{$Zone}{$Response}{$Net}{$Client}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	345 } elsif (($Zone,$RR) = ($ThisLine =~ /^\svalidating \@0x[[:xdigit:]]+: (.) (\w+): got insecure response; parent indicates it should be secure/)) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	346 $DNSSECInsec{'__Total__'}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	347 $DNSSECInsec{$Zone}{$RR}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	348 } elsif (($Zone,$RR) = ($ThisLine =~ /^\svalidating \@0x[[:xdigit:]]+: (.) (\w+): no valid signature found/)) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	349 $DNSSECInvalid{'__Total__'}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	350 $DNSSECInvalid{$Zone}{$RR}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	351 } elsif (($Zone,$RR) = ($ThisLine =~ /^\svalidating \@0x[[:xdigit:]]+: (.) (\w+): bad cache hit/)) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	352 $DNSSECBadCache{'__Total__'}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	353 $DNSSECBadCache{$Zone}{$RR}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	354 } elsif (($Zone,$RR) = ($ThisLine =~ /^\svalidating \@0x[[:xdigit:]]+: (.) (\w+): verify failed due to bad signature/)) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	355 $DNSSECInvalid{'__Total__'}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	356 $DNSSECInvalid{$Zone}{$RR}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	357 } elsif (($Zone,$RR) = ($ThisLine =~ /^\svalidating ([^\/])\/(\w+): got insecure response; parent indicates it should be secure/)) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	358 $DNSSECInsec{'__Total__'}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	359 $DNSSECInsec{$Zone}{$RR}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	360 } elsif (($Zone,$RR) = ($ThisLine =~ /^\svalidating ([^\/])\/(\w+): no valid signature found/)) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	361 $DNSSECInvalid{'__Total__'}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	362 $DNSSECInvalid{$Zone}{$RR}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	363 } elsif (($Zone,$RR) = ($ThisLine =~ /^\svalidating ([^\/])\/(\w+): verify failed due to bad signature/)) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	364 $DNSSECInvalid{'__Total__'}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	365 $DNSSECInvalid{$Zone}{$RR}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	366 } elsif (($Zone,$RR) = ($ThisLine =~ /^\svalidating ([^\/])\/(\w+): bad cache hit/)) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	367 $DNSSECBadCache{'__Total__'}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	368 $DNSSECBadCache{$Zone}{$RR}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	369 } elsif (($Error,$Host) = ($ThisLine =~ /^(?:error $)?(.*)$? resolving '([^']+)':/)) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	370 $DNSSECError{$Error}{'__Total__'}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	371 $DNSSECError{$Error}{$Host}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	372 } elsif ($ThisLine =~ /^samba_dlz:/) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	373 if ( ($Rhost, $Error) = ($ThisLine =~ /disallowing update of signer=.* name=(.) type=. error=(.*)/ )) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	374 $UpdateDenied{"$Rhost ($Error)"}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	375 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	376 # ignore rest of samba4 dlz entries for now
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	377 } else {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	378 # Report any unmatched entries...
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	379 # remove PID from named messages
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	380 $ThisLine =~ s/(client [\.0-9a-fA-F:]+)\S+/$1/;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	381 chomp($ThisLine);
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	382 $OtherList{$ThisLine}++;
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	383 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	384 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	385
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	386 #######################################
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	387
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	388 if ( keys %ZoneExpired ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	389 print "\nZones expired:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	390 foreach $ThisOne (sort {$a cmp $b} keys %ZoneExpired) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	391 print " $ThisOne: $ZoneExpired{$ThisOne} Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	392 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	393 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	394
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	395 if ( keys %FailedZoneTransfers ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	396 print "\nFailed Zone Transfers:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	397 foreach my $Host (keys %FailedZoneTransfers) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	398 print " $Host:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	399 foreach my $Zone (keys %{$FailedZoneTransfers{$Host}}) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	400 print " $Zone: $FailedZoneTransfers{$Host}{$Zone} Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	401 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	402 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	403 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	404
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	405 if ( keys %DeniedZoneTransfers ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	406 print "\nDenied Zone Transfers:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	407 foreach my $Host (keys %DeniedZoneTransfers) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	408 print " $Host:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	409 foreach my $Zone (keys %{$DeniedZoneTransfers{$Host}}) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	410 print " $Zone: $DeniedZoneTransfers{$Host}{$Zone} Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	411 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	412 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	413 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	414
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	415 if ( keys %UpdateDenied ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	416 print "\nZone update refused:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	417 foreach $ThisOne (sort {$a cmp $b} keys %UpdateDenied) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	418 print " $ThisOne: $UpdateDenied{$ThisOne} Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	419 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	420 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	421
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	422 if ( keys %UpdateForwardingDenied ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	423 print "\nZone update forwarding refused:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	424 foreach $ThisOne (sort {$a cmp $b} keys %UpdateForwardingDenied) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	425 print " $ThisOne: $UpdateForwardingDenied{$ThisOne} Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	426 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	427 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	428
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	429 if ( keys %InsecUpdate ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	430 print "\nInsecure zones (dynamic update allowed by IP address):\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	431 foreach $ThisOne (sort {$a cmp $b} keys %InsecUpdate) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	432 print " " . $ThisOne . ": " . $InsecUpdate{$ThisOne} . " Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	433 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	434 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	435
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	436 if ( keys %JournalFail ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	437 print "\nJournal update failed:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	438 foreach $ThisOne (sort {$a cmp $b} keys %JournalFail) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	439 print " " . $ThisOne . ": " . $JournalFail{$ThisOne} . " Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	440 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	441 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	442
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	443 if (keys %ConfProb) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	444 print "\nErrors in configuration files\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	445 foreach $File (sort keys %ConfProb) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	446 if ($File =~ /.+/) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	447 print " file " . $File . "\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	448 foreach (keys %{$ConfProb{$File}}) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	449 ($Line,$Problem) = split ",";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	450 print " " . $File . ":" . "$Line" . ": " . $Problem . ": " . $ConfProb{$File}{"$Line,$Problem"} . " Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	451 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	452 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	453 else {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	454 foreach (keys %{$ConfProb{$File}}) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	455 ($Line,$Problem) = split ",";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	456 print " " . $Problem . ": " . $ConfProb{$File}{"$Line,$Problem"} . " Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	457 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	458 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	459 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	460 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	461
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	462 if (keys %NError) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	463 print "\nErrors:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	464 foreach $ThisOne (keys %NError) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	465 print " " . $ThisOne . ": " . $NError{$ThisOne} . " Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	466 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	467 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	468
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	469 if (keys %ErrOpenFiles) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	470 print "\nThe following seams to be caused by the patches for CVE-2008-1447.";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	471 print "\nPlease update your bind.\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	472 foreach $ThisOne (keys %ErrOpenFiles) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	473 print " " . $ThisOne . ": " . $ErrOpenFiles{$ThisOne} . " Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	474 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	475 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	476
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	477 if (keys %Limit) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	478 print "\nRate Limiting occurred for:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	479 foreach $Zone (keys %Limit) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	480 print " $Zone:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	481 foreach $Response (keys %{$Limit{$Zone}}) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	482 print " $Response:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	483 foreach $Net (keys %{$Limit{$Zone}{$Response}}) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	484 print " $Net: $Limit{$Zone}{$Response}{$Net} Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	485 foreach $Client (keys %{$LimitDrop{$Zone}{$Response}{$Net}}) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	486 print " Dropped $Client: $LimitDrop{$Zone}{$Response}{$Net}{$Client} Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	487 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	488 foreach $Client (keys %{$LimitSlip{$Zone}{$Response}{$Net}}) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	489 print " Slipped $Client: $LimitSlip{$Zone}{$Response}{$Net}{$Client} Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	490 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	491 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	492 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	493 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	494 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	495
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	496 if ( ( $Detail >= 5 ) and (keys %GeoIPError) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	497 print "\nGeoIP Errors:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	498 foreach $ThisOne (keys %GeoIPError) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	499 print " " . $ThisOne . ": " . $GeoIPError{$ThisOne} . " Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	500 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	501 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	502
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	503 if ((keys %CCMessages) or (keys %CCMessages2)){
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	504 print "\nMessages from control channel\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	505 foreach (keys %CCMessages) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	506 ($From,$Log) = split ",";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	507 print " " . $From . ": " . $Log . ": " . $CCMessages{"$From,$Log"} . " Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	508 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	509 foreach $ThisOne (keys %CCMessages2) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	510 print " " . $ThisOne . ": " . $CCMessages2{$ThisOne} . " Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	511 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	512 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	513
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	514 if ( ( $Detail >= 5 ) and ($StartNamed) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	515 print "\nNamed started: $StartNamed Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	516 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	517
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	518 if ( ( $Detail >= 5 ) and ($ReloadNamed) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	519 print "Named reloaded: $ReloadNamed Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	520 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	521
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	522 if ( ( $Detail >= 5 ) and ($ShutdownNamed) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	523 print "Named shutdown: $ShutdownNamed Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	524 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	525
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	526 if ( ( $Detail >= 5 ) and ($ShutdownNamedFail) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	527 print "Named shutdown failed: $ShutdownNamedFail Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	528 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	529
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	530 if ( ( $Detail >= 5 ) and (keys %ZoneLoaded) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	531 print "\nLoaded Zones:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	532 foreach $ThisOne (sort {$a cmp $b} keys %ZoneLoaded) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	533 print " $ThisOne: $ZoneLoaded{$ThisOne} Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	534 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	535 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	536
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	537 if ( ( $Detail >= 5 ) and (keys %ZoneReceivedNotify) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	538 print "\nZones receiving notify:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	539 foreach $ThisOne (sort {$a cmp $b} keys %ZoneReceivedNotify) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	540 print " $ThisOne: $ZoneReceivedNotify{$ThisOne} Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	541 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	542 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	543
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	544 if ( ( $Detail >= 5 ) and (keys %ZoneRefusedNotify) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	545 print "\nZones refused notify:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	546 foreach $ThisOne (sort {$a cmp $b} keys %ZoneRefusedNotify) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	547 print " $ThisOne: $ZoneRefusedNotify{$ThisOne} Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	548 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	549 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	550
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	551 if ( ($Detail >= 5) and (keys %ChannelAddFail) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	552 print "\nCan't add command channel:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	553 foreach $Channel (sort {$a cmp $b} keys %ChannelAddFail) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	554 print " $Channel:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	555 foreach $Reason (sort {$a cmp $b} keys %{$ChannelAddFail{$Channel}}) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	556 print " $Reason: $ChannelAddFail{$Channel}{$Reason} Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	557 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	558 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	559 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	560
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	561 if ( ($Detail >= 5) and (keys %MasterFailure) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	562 print "\nFailure trying to refresh zone:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	563 foreach $Zone (sort {$a cmp $b} keys %MasterFailure) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	564 print " $Zone:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	565 foreach $Reason (sort {$a cmp $b} keys %{$MasterFailure{$Zone}}) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	566 print " $Reason: $MasterFailure{$Zone}{$Reason} Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	567 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	568 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	569 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	570
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	571 if ( ( $Detail >= 5 ) and (keys %DeferredZoneTransfers) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	572 print "\nDeferred Zone Transfers:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	573 foreach my $Zone (keys %DeferredZoneTransfers) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	574 print " $Zone: $DeferredZoneTransfers{$Zone} Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	575 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	576 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	577
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	578 if ( ( $Detail >= 5 ) and (keys %ZoneRemoved) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	579 print "\nRemoved Zones:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	580 foreach $ThisOne (sort {$a cmp $b} keys %ZoneRemoved) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	581 print " $ThisOne: $ZoneRemoved{$ThisOne} Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	582 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	583 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	584
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	585 if ( ( $Detail >= 5 ) and (keys %AXFR) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	586 print "\nZone Transfers:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	587 foreach $ThisOne (keys %AXFR) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	588 print " Zone: $ThisOne\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	589 foreach $Temp (keys %{$AXFR{$ThisOne}}) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	590 print " by $Temp: $AXFR{$ThisOne}{$Temp} Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	591 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	592 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	593 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	594
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	595 if ( ( $Detail >= 10 ) and (keys %BadZone) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	596 print "\nBad Zone Transfer Request:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	597 foreach $Reason (keys %BadZone) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	598 print " Reason: $Reason\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	599 foreach $ThisOne (sort {$a cmp $b} (keys %{$BadZone{$Reason}}) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	600 print " $ThisOne: $BadZone{$Reason}{$ThisOne} Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	601 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	602 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	603 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	604
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	605 if ( ( $Detail >= 5 ) and (keys %DeniedTCPClient) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	606 print "\nno more TCP clients warning:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	607 foreach $ThisOne (keys %DeniedTCPClient) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	608 print " from $ThisOne: $DeniedTCPClient{$ThisOne} Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	609 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	610 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	611
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	612 if ( ( $Detail >= 5 ) and (keys %DeniedQuery) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	613 print "\nQueries (cached) that were denied:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	614 foreach $ThisOne (keys %DeniedQuery) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	615 print " from $ThisOne: $DeniedQuery{$ThisOne} Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	616 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	617 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	618
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	619 if ( ( $Detail >= 10 ) and (keys %DeniedQueryNoCache) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	620 print "\nQueries (not cached) that were denied:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	621 foreach $ThisOne (sort {$a cmp $b} keys %DeniedQueryNoCache) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	622 print " from $ThisOne: $DeniedQueryNoCache{$ThisOne} Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	623 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	624 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	625
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	626 if ( ( $Detail >= 10 ) and (@CNAMEAndOther) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	627 print "\nThese hosts have CNAME and other data (invalid):\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	628 foreach $ThisOne (@CNAMEAndOther) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	629 print " $ThisOne\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	630 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	631 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	632
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	633 if ( ( $Detail >= 5 ) and (keys %ZoneFileErrors) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	634 print "\nSyntax errors in zone files:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	635 for $File (keys %ZoneFileErrors) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	636 print " $File\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	637 for $Error ( keys %{$ZoneFileErrors{$File}} ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	638 print " \"$Error\" " . $ZoneFileErrors{$File}{$Error} . " Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	639 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	640 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	641 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	642
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	643 if ( ( $Detail >= 10 ) and (keys %ConnectionRefused) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	644 print "\nConnection refused resolving:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	645 foreach $Addr (sort keys %ConnectionRefused) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	646 print " $Addr:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	647 foreach $Server (sort SortIP keys %{$ConnectionRefused{$Addr}}) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	648 print " $Server: $ConnectionRefused{$Addr}{$Server} Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	649 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	650 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	651 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	652
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	653 if ( ( $Detail >= 10 ) and (keys %LameServer) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	654 print "\nThese addresses had lame server references:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	655 foreach $Addr (sort keys %LameServer) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	656 print " $Addr:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	657 foreach $Server (sort SortIP keys %{$LameServer{$Addr}}) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	658 print " $Server: $LameServer{$Addr}{$Server} Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	659 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	660 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	661 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	662
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	663 if ( ( $Detail >= 10 ) and (keys %NonAuthoritative) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	664 print "\nNon-authoritative answer from master for these zones:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	665 foreach $ThisOne (keys %NonAuthoritative) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	666 print " " . $ThisOne . ": " . $NonAuthoritative{$ThisOne} . " Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	667 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	668 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	669
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	670 if ( ($Detail >= 10) and (keys %RetryLimit) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	671 print "\nRetry limit exceeded for these zones:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	672 foreach $Zone (sort {$a cmp $b} keys %RetryLimit) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	673 print " $Zone: $RetryLimit{$Zone} Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	674 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	675 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	676
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	677 if ( ($Detail >= 10) and (keys %NoSOA) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	678 print "\nNotify question sections of these clients contained no SOA:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	679 foreach $Client (sort {$a cmp $b} keys %NoSOA) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	680 print " $Client: $NoSOA{$Client} Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	681 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	682 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	683
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	684 if ( ( $Detail >= 10 ) and (keys %NetworkUnreachable) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	685 print "\nNetwork is unreachable for:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	686 foreach $ThisOne (sort {$a cmp $b} keys %NetworkUnreachable) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	687 print " $ThisOne:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	688 foreach $Host (sort {$a cmp $b} keys %{$NetworkUnreachable{$ThisOne}}) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	689 print " $Host: $NetworkUnreachable{$ThisOne}{$Host} Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	690 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	691 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	692 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	693
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	694 if ( ( $Detail >= 10 ) and (keys %NUR) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	695 print "\nNetwork unreachable resolving for:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	696 foreach $ThisOne (sort {$a cmp $b} keys %NUR) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	697 print " $ThisOne:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	698 foreach $Host (sort {$a cmp $b} keys %{$NUR{$ThisOne}}) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	699 print " $Host: $NUR{$ThisOne}{$Host} Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	700 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	701 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	702 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	703
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	704 if ( ( $Detail >= 10 ) and (keys %HUR) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	705 print "\nHost unreachable resolving for:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	706 foreach $ThisOne (sort {$a cmp $b} keys %HUR) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	707 print " $ThisOne:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	708 foreach $Host (sort {$a cmp $b} keys %{$HUR{$ThisOne}}) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	709 print " $Host: $HUR{$ThisOne}{$Host} Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	710 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	711 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	712 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	713
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	714 if ( ( $Detail >= 5 ) and (keys %ZoneUpdates) ) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	715 print "\nZone Updates:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	716 foreach $ThisOne (sort {$a cmp $b} keys %ZoneUpdates) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	717 print " $ThisOne:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	718 foreach $Message (sort {$a cmp $b} keys %{$ZoneUpdates{$ThisOne}}) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	719 print " $Message: $ZoneUpdates{$ThisOne}{$Message} Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	720 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	721 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	722 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	723
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	724 if (($Detail >= 5) and (keys %UnexpRCODE)) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	725 print "\nUnexpected DNS RCODEs:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	726 foreach $ThisOne (sort {$a cmp $b} keys %UnexpRCODE) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	727 print " " . $ThisOne . ":\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	728 foreach $Zone (sort {$a cmp $b} keys %{$UnexpRCODE{$ThisOne}}) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	729 print " " . $Zone . ":\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	730 foreach $Host (sort SortIP keys %{$UnexpRCODE{$ThisOne}{$Zone}}) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	731 print " " . $Host . ": " . $UnexpRCODE{$ThisOne}{$Zone}{$Host} . " Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	732 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	733 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	734 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	735 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	736
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	737 if (($Detail >= 5) and (keys %FormErr)) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	738 print "\nIncorrect response format:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	739 foreach $ThisOne (keys %FormErr) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	740 print " " . $ThisOne . ": " . $FormErr{$ThisOne} . " Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	741 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	742 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	743
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	744 if (($Detail >= 10) and (keys %StartLog)) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	745 print "\nNamed startup logs:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	746 foreach $ThisOne (keys %StartLog) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	747 print " " . $ThisOne . ": " . $StartLog{$ThisOne} . " Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	748 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	749 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	750
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	751 if (($Detail and (keys %CCCommands)) or (keys %UnknownCCCommands)) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	752 print "\nReceived control channel commands\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	753 foreach $ThisOne (keys %CCCommands) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	754 print " " . $ThisOne . ": " . $CCCommands{$ThisOne} . " Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	755 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	756 foreach $ThisOne (keys %UnknownCCCommands) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	757 print " " . $ThisOne . "(unknown command): " . $CCCommands{$ThisOne} . " Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	758 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	759 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	760
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	761 if (keys %Hints) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	762 print "\nCheckhints:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	763 foreach $ThisOne (sort {$a cmp $b} keys %Hints) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	764 print " " .$ThisOne .": $Hints{$ThisOne} Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	765 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	766 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	767
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	768 if (($Detail >= 5) and (keys %DNSSECInsec)) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	769 print "\nDNSSEC Insecure Responses: " . $DNSSECInsec{'__Total__'} . " Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	770 foreach $Zone (sort keys %DNSSECInsec) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	771 if (($Detail >= 10) and ($Zone =~ /.+/) and ($Zone ne '__Total__')) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	772 foreach $RR (sort keys %{$DNSSECInsec{$Zone}}) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	773 print " " . "$Zone/$RR: " . $DNSSECInsec{$Zone}{$RR} . " Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	774 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	775 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	776 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	777 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	778
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	779 if (($Detail >= 5) and (keys %DNSSECInvalid)) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	780 print "\nDNSSEC No Valid Signature: " . $DNSSECInvalid{'__Total__'} . " Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	781 foreach $Zone (sort keys %DNSSECInvalid) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	782 if (($Detail >= 10) and ($Zone =~ /.+/) and ($Zone ne '__Total__')) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	783 foreach $RR (sort keys %{$DNSSECInvalid{$Zone}}) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	784 print " " . "$Zone/$RR: " . $DNSSECInvalid{$Zone}{$RR} . " Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	785 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	786 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	787 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	788 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	789
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	790 if (($Detail >= 5) and (keys %DNSSECBadCache)) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	791 print "\nDNSSEC Bad Cache hit: " . $DNSSECBadCache{'__Total__'} . " Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	792 foreach $Zone (sort keys %DNSSECBadCache) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	793 if (($Detail >= 10) and ($Zone =~ /.+/) and ($Zone ne '__Total__')) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	794 foreach $RR (sort keys %{$DNSSECBadCache{$Zone}}) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	795 print " " . "$Zone/$RR: " . $DNSSECBadCache{$Zone}{$RR} . " Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	796 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	797 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	798 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	799 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	800
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	801 if (($Detail >= 5) and (keys %DNSSECError)) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	802 print "\nDNSSEC Errors:\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	803 foreach $Error (sort keys %DNSSECError) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	804 print " $Error: " . $DNSSECError{$Error}{'__Total__'} . " Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	805 if ($Detail >= 10) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	806 foreach $Host (sort keys %{$DNSSECError{$Error}}) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	807 print " " . "$Host: " . $DNSSECError{$Error}{$Host} . " Time(s)\n" unless ($Host eq '__Total__');
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	808 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	809 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	810 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	811 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	812
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	813 if (keys %OtherList) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	814 print "\nUnmatched Entries\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	815 foreach $line (sort {$a cmp $b} keys %OtherList) {
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	816 print " $line: $OtherList{$line} Time(s)\n";
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	817 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	818 }
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	819
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	820 exit(0);
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	821
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	822 # vi: shiftwidth=3 tabstop=3 syntax=perl et
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	823 # Local Variables:
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	824 # mode: perl
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	825 # perl-indent-level: 3
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	826 # indent-tabs-mode: nil
78dc899775b7 Add latest Logwatch "named" script to handle DNS log changes IBBoard <dev@ibboard.co.uk> parents: diff changeset	827 # End:

Mercurial > repos > other > Puppet

annotate common/logwatch/named @ 260:5f63afb70415