apache_blackbox

#!/usr/bin/perl
#
# apache http status code monitoring
#
# luis peralta - luis@11870.com
# http://www.ziritione.org
#
# Installing: configure apache blackbox and set the logfile to /var/log/blackbox.log
# or change the BLACKBOXLOG setting below.
#
# Dependencies: apache mod_logio, apache blackbox
# http://www.devco.net/archives/2008/03/05/detailed_apache_stats.php
#
# Last version available at: http://www.ziritione.org/http_status
#
# Parameters:
#
#   config
#   autoconf
#
#%# family=auto
#%# capabilities=autoconf

use strict;

my $BLACKBOXLOG    =  "/var/log/blackbox.log";

my %WANTED = ( 	"apache.status.200"  => "_200",
		"apache.status.301"  => "_301",
		"apache.status.302"  => "_302",
		"apache.status.404"  => "_404",
		"apache.status.5xx"  => "_5xx",
             );

my $arg = shift();

if ($arg eq 'config') {
    print_config();
    exit();
} elsif ($arg eq 'autoconf') {
    print "yes\n";
    exit();
}


open(SERVICE, "<$BLACKBOXLOG")
  or die("Could not open '$BLACKBOXLOG': $!");

while (<SERVICE>) {
    my ($k, $v) = (m/(apache.status.*)=(\d+)/);
    next unless ($k);
    if (exists $WANTED{$k} ) {
	print("$WANTED{$k}.value $v\n");
    }
}

close(SERVICE);


sub print_config {

    my $num = 0;

    print("graph_title HTTP requests status
graph_args --base 1000
graph_vlabel requests / second
graph_category webserver
graph_total total\n");

    for my $key (sort { $WANTED{$a} cmp $WANTED{$b} } (keys %WANTED)) {
        my $title = $WANTED{$key};
        print("$title.label ${title}\n",
              "$title.min 0\n",
              "$title.type DERIVE\n",
              "$title.max 500000\n",
              #"$title.draw ", ($num) ? "STACK" : "AREA" ,  "\n",
              "$title.draw ", ($num) ? "AREA" : "AREA" ,  "\n",
             );
        $num++;
    }

}