Gecko [ dataharbor.africa ]

Name	Size	Permission
apache_accesses	4.32 KB	-rwxr-xr-x
apache_processes	5.67 KB	-rwxr-xr-x
apache_volume	4.27 KB	-rwxr-xr-x
cpu	6.59 KB	-rwxr-xr-x
df	4.27 KB	-rwxr-xr-x
df_inode	4.34 KB	-rwxr-xr-x
diskstats	34.19 KB	-rwxr-xr-x
entropy	983 B	-rwxr-xr-x
exim_mailqueue	3.19 KB	-rwxr-xr-x
exim_mailstats	5.51 KB	-rwxr-xr-x
forks	1000 B	-rwxr-xr-x
fw_packets	1.68 KB	-rwxr-xr-x
http_loadtime	2.52 KB	-rwxr-xr-x
if_err_eth0	3.03 KB	-rwxr-xr-x
if_eth0	5.71 KB	-rwxr-xr-x
interrupts	2.08 KB	-rwxr-xr-x
irqstats	4.17 KB	-rwxr-xr-x
load	2.68 KB	-rwxr-xr-x
memory	8.85 KB	-rwxr-xr-x
munin_stats	3.42 KB	-rwxr-xr-x
mysql_bytes	1.71 KB	-rwxr-xr-x
mysql_innodb	5.35 KB	-rwxr-xr-x
mysql_queries	2.5 KB	-rwxr-xr-x
mysql_slowqueries	1.49 KB	-rwxr-xr-x
mysql_threads	1.6 KB	-rwxr-xr-x
netstat	2.83 KB	-rwxr-xr-x
open_files	1.38 KB	-rwxr-xr-x
open_inodes	1.05 KB	-rwxr-xr-x
proc_pri	1.44 KB	-rwxr-xr-x
processes	11.62 KB	-rwxr-xr-x
swap	1.21 KB	-rwxr-xr-x
threads	1.05 KB	-rwxr-xr-x
uptime	853 B	-rwxr-xr-x
users	2.44 KB	-rwxr-xr-x
vmstat	1.08 KB	-rwxr-xr-x

Code Editor : mysql_queries

#!/usr/local/cpanel/3rdparty/perl/536/bin/perl
# -*- perl -*-

=head1 NAME

mysql_queries - Munin plugin to display MySQL query rate.

=head1 APPLICABLE SYSTEMS

Any MySQL platform

=head1 CONFIGURATION

[mysql*]
     user root
     env.mysqlopts <options-for-mysqladmin-here>
     env.mysqladmin <optional-override-of-mysqladmin-path>

It is most usual that root must run the mysqladmin command.

Only use the .env settings if you need to override the defaults.

=head1 INTERPRETATION

To Be Written

=head1 BUGS

None known

=head1 AUTHOR

=head1 LICENSE

GPLv2

=head1 VERSION

$Id$

=head1 MAGIC MARKERS

#%# family=manual
  #%# capabilities=autoconf

=cut

use strict;

my $MYSQLADMIN = $ENV{mysqladmin} || "mysqladmin";
my $COMMAND    = "$MYSQLADMIN $ENV{mysqlopts} extended-status";

my %WANTED = ( "Com_delete"  => "delete", 
			   "Com_insert"  => "insert",
               "Com_select"  => "select", 
               "Com_update"  => "update",
               "Com_replace" => "replace",
               "Qcache_hits" => "cache_hits",
             );

my $arg = shift();

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

open(SERVICE, "$COMMAND |")
  or die("Could not execute '$COMMAND': $!");

while (<SERVICE>) {
    my ($k, $v) = (m/(\w+).*?(\d+(?:\.\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 MySQL queries
graph_args --base 1000
graph_vlabel queries / \${graph_period}
graph_category mysql
graph_info Note that this is a old plugin which is no longer installed by default.  It is retained for compatability with old installations.
graph_total total\n");

for my $key (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",
             );
        $num++;
    }
    
}

sub test_service {
    system ("$MYSQLADMIN --version >/dev/null 2>/dev/null");
    if ($? == 0)
    {
	system ("$COMMAND >/dev/null 2>/dev/null");
	if ($? == 0)
	{
	    print "yes\n";
	}
	else
	{
	    print "no (could not connect to mysql)\n";
	}
    }
    else
    {
	print "no (mysqladmin not found)\n";
    }
    exit 0;
}

${this.title}

Code Editor : mysql_queries