Robot/contrib-munin
2
0
Fork 0
mirror of https://github.com/munin-monitoring/contrib.git synced 2018-11-08 00:59:34 +01:00
Code Issues Releases Wiki Activity

pgbouncer_

Browse source 
added strict for perl
This commit is contained in:
Clemens Schwaighofer 2012-03-14 13:27:44 +09:00
parent a2c35ad7c2
commit 647632f7af
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
plugins/postgresql/pgbouncer_
View file

@ -3,6 +3,7 @@
# re-write of python version of pgbouncer stats # re-write of python version of pgbouncer stats
# data from stats, pools (cleint, server) # data from stats, pools (cleint, server)
use strict;
use Munin::Plugin; use Munin::Plugin;
use DBD::Pg; use DBD::Pg;
@ -16,10 +17,10 @@ my $db_port = $ENV{'pgbouncer_port'} || '6432';
my $db_host = $ENV{'pgbouncer_host'} || 'localhost'; my $db_host = $ENV{'pgbouncer_host'} || 'localhost';
my $db_pass = $ENV{'pgbouncer_pass'} || ''; my $db_pass = $ENV{'pgbouncer_pass'} || '';
my $db_name = 'pgbouncer'; my $db_name = 'pgbouncer';
my @data = ();
# get the DB (pool) name we want to fetch # get the DB (pool) name we want to fetch
$plugin_name =~ /pgbouncer_(.*)$/; $plugin_name =~ /pgbouncer_(.*)$/;
$pool_name = $1; my $pool_name = $1;
# bail if no name # bail if no name
if (!$pool_name) if (!$pool_name)
{ {
@ -33,7 +34,7 @@ if (defined($ARGV[0]))
# autoconf, nothing to do # autoconf, nothing to do
if ($ARGV[0] eq 'autoconf') if ($ARGV[0] eq 'autoconf')
{ {
$dbh = DBI->connect("DBI:Pg:dbname=$db_name;host=$db_host;port=$db_port", $db_user, $db_pass); my $dbh = DBI->connect("DBI:Pg:dbname=$db_name;host=$db_host;port=$db_port", $db_user, $db_pass);
if (!$dbh) if (!$dbh)
{ {
print "no\n"; print "no\n";
@ -156,12 +157,12 @@ if (defined($ARGV[0]))
} }
# connect to data # connect to data
$dbh = DBI->connect("DBI:Pg:dbname=$db_name;host=$db_host;port=$db_port", $db_user, $db_pass); my $dbh = DBI->connect("DBI:Pg:dbname=$db_name;host=$db_host;port=$db_port", $db_user, $db_pass);
# go trough each set and get the data # go trough each set and get the data
foreach $get ('pools', 'stats') foreach my $get ('pools', 'stats')
{ {
# prep and execute the show query # prep and execute the show query
$pre = $dbh->prepare("SHOW $get"); my $pre = $dbh->prepare("SHOW $get");
$pre->execute(); $pre->execute();
while (@data = $pre->fetchrow) while (@data = $pre->fetchrow)
{ {