From 2e18752158385bfdff64555c84d1314aa6556cef Mon Sep 17 00:00:00 2001
From: Luis Peralta <unknown@munin-monitoring.org>
Date: Mon, 23 Feb 2009 12:37:23 +0100
Subject: [PATCH] Initial version

---
 plugins/other/http_status | 84 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 84 insertions(+)
 create mode 100755 plugins/other/http_status

diff --git a/plugins/other/http_status b/plugins/other/http_status
new file mode 100755
index 00000000..df81f923
--- /dev/null
+++ b/plugins/other/http_status
@@ -0,0 +1,84 @@
+#!/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 bellow.
+#
+# 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 Network
+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++;
+    }
+    
+}
+
+