PluginCat: apache_auth_users

#!/usr/bin/perl -w
#
# Plugin to monitor authenticated users
#
# Parameters:
#
#       logfile      - Location of the apache log
#       statefile    - Where to put temporary statefile.
#
# gyufi@direction.hu
# 2006.04.06
# 
#%# family=contrib

use strict;

my $QUERYLOG=$ENV{logfile} || '/var/log/apache2/access.log';
my $STATEFILE=$ENV{statefile} || '/var/lib/munin/plugin-state/apache_auth_users.state';
my $OTHER=0;
my %IN;

sub get_state {
    open(Q,"< $STATEFILE") or die "Statefile not found";
    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 (/^[^\s]+ \- ([^\s]+) /) {
            if ($1 !~ /\-/ ) {
                $IN{$1}++;
            }
        }
    }
    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 Authenticated Apache users
graph_vlabel Hits / \${graph_period}
query_other.label Other
query_other.type DERIVE
query_other.min 0
query_other.draw AREA
";
    get_state;

    foreach $k (keys %IN) {
        print "query_$k.label $k
query_$k.type DERIVE
query_$k.min 0
query_$k.draw STACK
";
    }
};

if (defined($ARGV[0]) and ($ARGV[0] eq 'config')) {
    do_config;
    exit(0);
}

do_stats;


# vim:syntax=perl