2
0
mirror of https://github.com/munin-monitoring/contrib.git synced 2018-11-08 00:59:34 +01:00
contrib-munin/plugins/bind/bind9_rr

138 lines
2.4 KiB
Perl
Executable File

#!/usr/bin/perl -w
# -*- perl -*-
=head1 NAME
bind9_rr - Plugin to monitor usage of bind 9 servers
=head1 CONFIGURATION
This plugin is configurable environment variables. The following
shows the default settings:
[bind9_rr]
env.logfile /var/log/bind9/query.log
You must also configure query logging in your named.conf. Use a stanza
such as this:
logging {
channel query {
file "query.log" versions 2 size 1m;
print-time yes;
severity info;
};
category queries { query; };
};
=head1 SEE ALSO
=over
=item * L<http://blog.larsstrand.org/2008/02/how-to-monitor-bind-with-munin.html>
=item * BIND Administrator Reference Manual
=back
=head1 AUTHOR
Nicolai Langfeldt
Remi Paulmier
=head1 LICENSE
GPLv2
=head1 MAGIC MARKERS
#%# family=manual
=cut
use strict;
my $QUERYLOG = $ENV{logfile} || '/var/log/bind9/query.log';
my $STATEFILE= "$ENV{MUNIN_PLUGSTATE}/bind9_rr.state";
my $OTHER=0;
my %IN;
sub get_state {
if (! -f $STATEFILE) {
open(Q, ">", $STATEFILE);
close(Q);
}
open(Q,"< $STATEFILE") or die ("Cannot open state file");
while (<Q>) {
chomp;
my ($q,$n) = split(/\s+/,$_,2);
$IN{$q}=$n unless defined($IN{$q});
}
close(Q);
}
sub do_stats {
my $k;
open(Q,"< $QUERYLOG") or die "$!";
while (<Q>) {
chomp;
if (/: (view \S+\: |)query\: (\S+) (\w+) (\w+)/) {
if ($3 eq 'IN' and $4 !~ /^TYPE/) {
my $crr = lc $2;
$IN{$crr}++;
}
}
}
close(Q);
get_state;
my @INkeys = sort { $IN{$b} <=> $IN{$a} } keys %IN;
open(Q,"> $STATEFILE") or die;
foreach $k (@INkeys[0 .. 19]) {
next if not defined $k;
my $l = $k; $k =~ tr/\./_/;
print "rr_$k.value ",$IN{$l},"\n";
print Q "$l ",$IN{$l},"\n";
}
close(Q);
}
sub do_config {
my $k;
print "graph_title DNS Queries by RR
graph_category dns
graph_vlabel Queries / \${graph_period}
";
get_state;
my @INkeys = sort { $IN{$b} <=> $IN{$a} } keys %IN;
foreach $k (@INkeys[0 .. 19]) {
next if not defined $k;
my $l = $k; $k =~ tr/\./_/;
print "rr_$k.label $l
rr_$k.type DERIVE
rr_$k.min 0
rr_$k.draw STACK
";
}
};
if (defined($ARGV[0]) and ($ARGV[0] eq 'config')) {
do_config;
exit(0);
}
do_stats;
# vim:syntax=perl