From 5d1473e9aa54425aad0104c0dfde7b4b444897c4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Rowdy=20Schwach=F6fer?= <rowdy@rowdy.nl>
Date: Thu, 7 Apr 2011 11:42:14 +0200
Subject: [PATCH] Initial version

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

diff --git a/plugins/other/spotweb_cat_average b/plugins/other/spotweb_cat_average
new file mode 100755
index 00000000..9a460758
--- /dev/null
+++ b/plugins/other/spotweb_cat_average
@@ -0,0 +1,84 @@
+#!/usr/bin/perl
+#
+# Munin plugin for number of spots by categories in a MySQL database
+#
+# Copyright (C) 2011 - Rowdy Schwachöfer (http://rowdy.nl)
+#
+# Spotweb       : http://github.com/spotweb/spotweb
+#
+# This program is free software: you can redistribute it and/or modify 
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+#
+#
+# Configuration example
+#
+# [spotweb*]
+# env.mysql /usr/bin/mysql                               # MySQL binary (optional)
+# env.mysqlopts -u <MYSQL_USERNAME> -p<MYSQL_PASSWORD>   # How to connect to the database (optional if no password is set)
+# env.database spotweb                                   # Spotweb database (optional)
+#
+# [spotweb_cat_average]
+# env.period 1800                                        # The period over wich to check in seconds, default to 30 minutes (1800 seconds)
+# env.countporn = 'no'									 # Also count porn? Default is 'yes'
+#
+
+use strict;
+
+
+# Environment variables
+my $MYSQL      = $ENV{mysql}     || "/usr/bin/mysql";
+my $MYSQLOPTS  = $ENV{mysqlopts} || "";
+my $DATABASE   = $ENV{database}  || "spotweb";
+my $PERIOD     = $ENV{period}    || 1800;
+my $COUNTPORN 	= $ENV{countporn} || "yes";
+
+
+# Local variables
+my $FROMSTAMP  = time - $PERIOD;
+my $TITLE      = "Spotweb spots by Category (".($PERIOD / 60)." minute average)";
+
+
+# Output for config
+    if(defined $ARGV[0] && $ARGV[0] eq 'config') {
+print <<EOC
+graph_title $TITLE
+graph_vlabel Spots
+graph_category spotweb
+cat0.label Videos/images
+cat1.label Music
+cat2.label Games
+cat3.label Applications
+EOC
+;
+    exit 0;
+}
+
+
+# Output of values. We just call a subroutine here to prevent much duplicate code
+if($COUNTPORN eq 'yes') { 
+    &print_value(0);
+}
+else { 
+    &print_value(0, " AND subcatd NOT LIKE '%23%' AND subcatd NOT LIKE '%24%' AND subcatd NOT LIKE '%25%' AND subcatd NOT LIKE '%26%'"); 
+}
+&print_value(1);
+&print_value(2);
+&print_value(3);
+
+
+# Subroutine to print the values
+sub print_value {
+    my $spots = `$MYSQL $MYSQLOPTS -e "SELECT count(*) as spots FROM $DATABASE.spots WHERE stamp > $FROMSTAMP AND category = $_[0]$_[1];"`;
+    $spots =~ /(\d+)/; 
+    print "cat".$_[0].".value ".$1."\n"; 
+}
\ No newline at end of file