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

80 lines
1.7 KiB
Perl
Executable File

#!/usr/bin/perl -w
#
# Parameters:
#
# logfile - Location of the query log
# statefile - Where to put temporary statefile.
#
# Stolen directly from the bind log analzyer
# contributed by Nicolai Langfeldt
#
# Modified by Sean Whitney
# $Id: dansguardian,v 1.1 2011/10/04 13:53:17 root Exp root $
#
#%# family=contrib
use strict;
my $QUERYLOG = $ENV{logfile} || '/var/log/dansguardian/access.log';
my $STATEFILE = $ENV{statefile}
|| "$ENV{MUNIN_PLUGSTATE}/dansguardian.state";
my %IN;
sub get_state {
open( Q, "< $STATEFILE" ) or die;
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;
my ( $date, $time, $sep, $ip, $url, $action, $rest ) = split(' ');
$action =~ s/[^a-zA-Z0-9]//g;
$IN{$action}++;
}
close(Q);
get_state;
open( Q, "> $STATEFILE" ) or die;
foreach $k ( keys %IN ) {
print "query_$k.value ", $IN{$k}, "\n";
print Q "$k ", $IN{$k}, "\n";
}
close(Q);
}
sub do_config {
my $k;
print "graph_title Danguardian hits by type\n";
print "graph_vlabel Hits / \${graph_period}\n";
print "graph_category network\n";
print "graph_info This graph shows the rate of traffic through a dansguardian filter\n";
get_state;
foreach $k ( keys %IN ) {
print "query_$k.label $k\n";
print "query_$k.type DERIVE\n";
print "query_$k.min 0\n";
}
}
if ( defined( $ARGV[0] ) and ( $ARGV[0] eq 'config' ) ) {
do_config;
exit(0);
}
do_stats;
# vim:syntax=perl