/usr/share/logwatch/scripts/services/resolver is in logwatch 7.4.1-2.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 | #!/usr/bin/perl
#############################################################################
# $Id: resolver 150 2013-06-18 22:19:38Z mtremaine $
#############################################################################
# $Log: resolver,v $
# Revision 1.1 2005/10/19 05:57:40 bjorn
# dnssec and resolver scripts, written by Lindy Foster
#
#############################################################################
#Copyright (c) 2004, Sparta, Inc
#All rights reserved.
#
#Redistribution and use in source and binary forms, with or without
#modification, are permitted provided that the following conditions are met:
#
#* Redistributions of source code must retain the above copyright notice,
# this list of conditions and the following disclaimer.
#
#* Redistributions in binary form must reproduce the above copyright
# notice, this list of conditions and the following disclaimer in the
# documentation and/or other materials provided with the distribution.
#
#* Neither the name of Sparta, Inc nor the names of its contributors may
# be used to endorse or promote products derived from this software
# without specific prior written permission.
#
#THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS
#IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
#THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
#PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR
#CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
#EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
#PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
#OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
#WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
#OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
#ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
#############################################################################
#############################################################################
# These scripts were created as part of the dnssec-tools project.
# For more information, see http://sourceforge.net/dnssec-tools.
# Detailed instructions for setting up BIND 9.3.* to use these logwatch
# configuration files and scripts are containted in the README file
# on sourceforge.
#############################################################################
use strict;
my $detail = $ENV{'LOGWATCH_DETAIL_LEVEL'} || 0;
my $valComplete;
my $valOK;
my $nonextValOK;
while (defined(my $ThisLine = <STDIN>)) {
if ($ThisLine =~ /validation completion event/) {
$valComplete++;
} elsif ($ThisLine =~ /nonexistence validation OK/) {
$nonextValOK++;
} elsif ($ThisLine =~ /validation OK/) {
$valOK++;
}
}
if ($detail >= 5) {
my %msgHash = ();
print "\n";
if ($valComplete > 0) {
$msgHash{"Received validation completion event "} = $valComplete;
}
if ($nonextValOK > 0) {
$msgHash{"Nonexistence validation OK received "} = $nonextValOK;
}
if ($valOK > 0) {
$msgHash{"Validation OK "} = $valOK;
}
# sort all the non-zero message types and print them in descending order
# of number of occurrences
my $key;
foreach $key (sort { $msgHash{$b} <=> $msgHash{$a} } keys %msgHash) {
print " " . $key . " " . $msgHash{$key} . " time(s)\n";
}
}
exit (0);
# vi: shiftwidth=3 tabstop=3 et
# Local Variables:
# mode: perl
# perl-indent-level: 3
# indent-tabs-mode: nil
# End:
|