#!/usr/bin/perl
# $Revision: 5 $
# $Date: 2008-10-02 15:10:14 +0300 (Thu, 02 Oct 2008) $
# mysql: get info about queries, slow queries, threads, opens

my %opt = (
# mysql variables : to use with mysqladmin
# set if need, but usually empty is fine
    mysqluser       => '',
    mysqlpass       => '',
);

my $var = $ARGV[0];

$do = 'mysqladmin '.($opt{mysqluser}?"-u$opt{mysqluser}":'').' '.($opt{mysqlpass}?"-p$opt{mysqlpass}":'').' status';

if ($var eq 'query' or !defined($var)) {
    $do = `$do`;
    $do=~/Questions: (\d+)/ or warn "Error! Can't find data!\nIN :\n$do";
    $d1 = $1;
    $up = $1 if $do=~/Uptime: (\d+)/;
}
elsif ($var eq 'threads') {
    $do = `$do`;
    $do=~/Threads: (\d+)/ or warn "Error! Can't find data!\nIN :\n$do";
    $d1 = $1;
    $up = $1 if $do=~/Uptime: (\d+)/;
}
elsif ($var eq 'slow') {
    $do = `$do`;
    $do=~/Slow queries: (\d+)/ or warn "Error! Can't find data!\nIN :\n$do";
    $d1 = $1;
    $up = $1 if $do=~/Uptime: (\d+)/;
}
elsif ($var eq 'opens') {
    $do = `$do`;
    $do=~/Opens: (\d+)/ or warn "Error! Can't find data!\nIN :\n$do";
    $d1 = $1;
    $up = $1 if $do=~/Uptime: (\d+)/;
}
else { warn "Error ! Please read the help\n"; }

print "$d1\n";
print "$d1\n";
print "$up\n" if $up;
print "Mysql $var\n";