80 lines
1.7 KiB
Perl
Executable File
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
|