Re: named script patch

Ivana Varekova wrote:
> I'm going through fedora logwatch patches and this one is not in 
> upstream branch so I'm sending it here.
>
> Ivana Hutarova Varekova
>
> ------------------------------------------------------------------------
>
> _______________________________________________
> Logwatch-Devel mailing list
> [email protected]
> http://www2.list.logwatch.org:81/mailman/listinfo/logwatch-devel

Committed to CVS.... Offset different as noted


patching file named
Hunk #1 succeeded at 163 (offset 26 lines).
Hunk #2 succeeded at 176 (offset 26 lines).
Hunk #3 succeeded at 208 (offset 26 lines).
Hunk #4 succeeded at 255 with fuzz 2 (offset 32 lines).
Hunk #5 succeeded at 320 (offset 37 lines).
Hunk #6 succeeded at 468 (offset 41 lines).
Hunk #7 succeeded at 585 (offset 48 lines).
[mgt@vega services]$ cvs diff named
Index: named
===================================================================
RCS file: /var/cvs/logwatch/scripts/services/named,v
retrieving revision 1.57
diff -r1.57 named
166c166
<       ($ThisLine =~ /Connection refused/) or
---
 >       ($ThisLine =~ /(C|c)onnection refused/) or
178a179,180
 >       ($ThisLine =~ /client .* response from Internet for .*/) or
 >       ($ThisLine =~ /client .+ query \(cache\) '.*' denied/) or
208a211
 >       ($ThisLine =~ /too many timeouts resolving '.*' .*: reducing 
the advertised EDNS UDP packet size to .* octets/) or
254a258,259
 >    } elsif ( ($Zone) = ( $ThisLine =~ /zone (.*): notify from .* up 
to date/ ) ) {
 >       $ZoneReceivedNotify{$Zone}++;
317a323,326
 >    } elsif (($Name,$Address) = ($ThisLine =~ /network unreachable 
resolving '(.*)': (.*)/)) {
 >       $NUR{$Name}{$Address}++;
 >    } elsif (($Name,$Address) = ($ThisLine =~ /host unreachable 
resolving '(.*)': (.*)/)) {
 >       $HUR{$Name}{$Address}++;
461a471,490
 > if ( ( $Detail >= 10 ) and (keys %NUR) ) {
 >    print "\nNetwork unreachable resolving for:\n";
 >    foreach $ThisOne (sort {$a cmp $b} keys %NUR) {
 >       print "   $ThisOne:\n";
 >       foreach $Host (sort {$a cmp $b} keys %{$NUR{$ThisOne}}) {
 >          print "      $Host: $NUR{$ThisOne}{$Host} Time(s)\n";
 >       }
 >    }
 > }
 >
 > if ( ( $Detail >= 10 ) and (keys %HUR) ) {
 >    print "\nHost unreachable resolving for:\n";
 >    foreach $ThisOne (sort {$a cmp $b} keys %HUR) {
 >        print "   $ThisOne:\n";
 >        foreach $Host (sort {$a cmp $b} keys %{$HUR{$ThisOne}}) {
 >           print "      $Host: $HUR{$ThisOne}{$Host} Time(s)\n";
 >        }
 >    }
 > }
 >
559c588
<    print "\n Received control channel commands\n";
---
 >    print "\nReceived control channel commands\n";