2006-10-12 14:41:23 +02:00
|
|
|
#!/usr/bin/perl -w
|
|
|
|
|
use strict;
|
|
|
|
|
use DBI;
|
|
|
|
|
|
|
|
|
|
my $dbhost = $ENV{'dbhost'} || '127.0.0.1';
|
|
|
|
|
my $dbname = $ENV{'dbname'} || 'template1';
|
|
|
|
|
my $dbuser = $ENV{'dbuser'} || 'postgres';
|
|
|
|
|
my $dbpass = $ENV{'dbpass'} || '';
|
|
|
|
|
|
|
|
|
|
if ($ARGV[0] && $ARGV[0] eq "config") {
|
|
|
|
|
print <<EOF;
|
|
|
|
|
graph_title Postgres locks
|
|
|
|
|
graph_args -l 0 --base 1000
|
|
|
|
|
graph_vlabel Locks
|
2017-02-22 02:54:01 +01:00
|
|
|
graph_category db
|
2006-10-12 14:41:23 +02:00
|
|
|
graph_info Shows Postgresql locks
|
|
|
|
|
locks.label Locks
|
|
|
|
|
locks.info Locks (more info here, please... :)
|
|
|
|
|
locks.type GAUGE
|
|
|
|
|
locks.warning 5
|
|
|
|
|
locks.critical 10
|
|
|
|
|
exlocks.label Exclusive locks
|
|
|
|
|
exlocks.info Exclusive locks (here too, please... :)
|
|
|
|
|
exlocks.type GAUGE
|
|
|
|
|
exlocks.warning 5
|
|
|
|
|
exlocks.critical 10
|
|
|
|
|
EOF
|
|
|
|
|
} else {
|
|
|
|
|
my $Con = "DBI:Pg:dbname=$dbname;host=$dbhost";
|
|
|
|
|
my $Dbh = DBI->connect ($Con,
|
|
|
|
|
$dbuser,
|
|
|
|
|
$dbpass,
|
|
|
|
|
{RaiseError =>1}) || die "Unable to access Database $dbname on host $dbhost as user $dbuser.\nError returned was: ". $DBI::errstr;
|
|
|
|
|
|
|
|
|
|
my $sql="SELECT mode,COUNT(mode) FROM pg_locks GROUP BY mode ORDER BY mode;";
|
|
|
|
|
my $sth = $Dbh->prepare ($sql);
|
|
|
|
|
$sth->execute ();
|
|
|
|
|
my $locks = 0;
|
|
|
|
|
my $exlocks = 0;
|
|
|
|
|
while (my ($mode, $count) = $sth->fetchrow ()) {
|
|
|
|
|
if ($mode =~ /exclusive/i) {
|
|
|
|
|
$exlocks = $exlocks + $count;
|
|
|
|
|
}
|
|
|
|
|
$locks = $locks+$count;
|
|
|
|
|
}
|
|
|
|
|
print "locks.value $locks\n";
|
|
|
|
|
print "exlocks.value $exlocks\n";
|
|
|
|
|
}
|
