1 files changed, 125 insertions, 0 deletions
diff --git a/files/munin/mysql_connections b/files/munin/mysql_connections
new file mode 100644
index 0000000..658b401
--- /dev/null
+++ b/files/munin/mysql_connections
@@ -0,0 +1,125 @@
+#!/usr/bin/perl
+#
+# This plugin is based off of the Connection Usage 
+# section of the MySQL Connection Health Page
+# 
+# http://dev.mysql.com/doc/administrator/en/mysql-administrator-health-connection-health.html
+#
+# To enable, link mysql_connections to this file. E.g.
+#
+#    ln -s /usr/share/node/node/plugins/mysql_connections /etc/munin/plugins/mysql_connections
+#
+# Revision 1.0  2007/08/03
+# Created by Justin Shepherd <galstrom21@gmail.com>
+#
+# Parameters:
+#
+#   config
+#   autoconf
+#
+# Configuration variables
+#
+#   mysqlopts     - Options to pass to mysql
+#   mysqladmin    - Override location of mysqladmin
+#   warning	  - Override default warning limit
+#   critical	  - Override default critical limit 
+#
+#%# family=auto
+#%# capabilities=autoconf
+
+use strict;
+
+# Define the mysqladmin paths, and commands
+my $MYSQLADMIN = $ENV{mysqladmin} || "mysqladmin";
+my $TEST_COMMAND    = "$MYSQLADMIN $ENV{mysqlopts} extended-status";
+my $MYSQL_VARIABLES = "$MYSQLADMIN $ENV{mysqlopts} extended-status variables";
+my $warning = $ENV{warning} || "80";
+my $critical = $ENV{critical} || "90";
+
+# Pull in any arguments
+my $arg = shift();
+
+# Check to see how the script was called 
+if ($arg eq 'config') {
+    print_graph_information();
+    exit();
+} elsif ($arg eq 'autoconf') {
+    if (test_service()) { print "yes\n"; }
+    else { print "no\n"; }
+    exit;
+} else {
+	# Define the values that are returned to munin
+	my ($available, $current, $upper_limit) = (0,0,0);
+	
+	# Gather the values from mysqladmin
+	$current = poll_variables($MYSQL_VARIABLES,"Threads_connected");
+	$upper_limit = poll_variables($MYSQL_VARIABLES,"max_connections");
+	$available = $upper_limit - $current;
+
+	# Return the values to Munin
+	print "current.value $current\n";
+	print "available.value $available\n";
+}
+
+
+sub poll_variables {
+	my $command = shift;
+	my $expression = shift;
+	my $ret = 0;
+	open(SERVICE, "$command |")
+  		or die("Coult not execute '$command': $!");
+	while (<SERVICE>) {
+            my ($field, $value) = (m/(\w+).*?(\d+(?:\.\d+)?)/);
+	    next unless ($field);
+	    if ($field eq $expression ) {
+		$ret = "$value";
+	    }
+	}
+	close(SERVICE);
+	return $ret;
+}
+
+
+sub print_graph_information {
+print <<EOM;
+graph_title MySQL Connections
+graph_args --base 1000 -l 0
+graph_vlabel Connections
+graph_info The number of current connections with respect to the max_connections setting.
+graph_category mysql
+graph_order current available
+graph_total Total
+current.label In Use
+current.draw AREA
+current.info The number of current threads connected
+current.warning $warning
+current.critical $critical
+available.label Available
+available.draw STACK
+available.info The current value of the "max_connections" variable
+EOM
+}
+
+
+sub test_service {
+    my $return = 1;
+    system ("$MYSQLADMIN --version >/dev/null 2>/dev/null");
+    if ($? == 0)
+    {
+	system ("$TEST_COMMAND >/dev/null 2>/dev/null");
+	if ($? == 0)
+	{
+	    print "yes\n";
+	    $return = 0;
+	}
+	else
+	{
+	    print "no (could not connect to mysql)\n";
+	}
+    }
+    else
+    {
+	print "no (mysqladmin not found)\n";
+    }
+    exit $return;
+}