Dram

Kuasar:
Все... Капец вам, ребята... Покусились на самоё! Теперь вас точно найдут.

# munin-run mysql_qcache --debug
# Processing plugin configuration from /etc/munin/plugin-conf.d/munin-node
# Setting /rgid/ruid/ to /113/65534/
# Setting /egid/euid/ to /113 113/65534/
# Setting up environment
# Environment mysqlpassword = ПАРОЛЬ
# Environment mysqladmin = /usr/bin/mysqladmin
# Environment mysqluser = root
# Environment mysqlshow = /usr/bin/mysqlshow
# Environment mysqlopts = -u root -pПАРОЛЬ
# About to run '/etc/munin/plugins/mysql_qcache'
Can't exec "/etc/munin/plugins/mysql_qcache": No such file or directory at /usr/share/perl5/Munin/Node/Service.pm line 263.
# FATAL: Failed to exec.

#!/usr/bin/perl
# -*- perl -*-

use strict;

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

my %WANTED = ( "Qcache_queries_in_cache" => "queries");

my %WANTEDTYPE = ( "Qcache_queries_in_cache" => "GAUGE");

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;
}


open(SERVICE, "$COMMAND |")
or die("Coult 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 in cache
graph_args --base 1000
graph_vlabel queries
graph_category db
graph_info Plugin available at <a href="http://rodolphe.quiedeville.org/hack/munin/">http://rodolphe.quiedeville.org/hack/munin/</a>
');

for my $key (keys %WANTED) {
my $title = $WANTED{$key};
print("$title.label ${title}\n",
"$title.min 0\n",
"$title.type ".$WANTEDTYPE{$key}."\n",
"$title.max 500000\n",
"$title.draw ", ($num) ? "STACK" : "AREA" , "\n",
);
$num++;
}

}


sub test_service {

my $return = 1;

system ("$MYSQLADMIN --version >/dev/null 2>/dev/null");
if ($? == 0)
{
system ("$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;
}

#!/usr/bin/perl

This is perl 5, version 24, subversion 1 (v5.24.1) built for x86_64-linux-gnu-thread-multi