mirror of
https://github.com/munin-monitoring/contrib.git
synced 2025-07-21 10:39:53 +00:00
72eeb4155f
Even though "licenced" is proper (British English) spelling, "spellcheck" complains about it (probably being focused on American English). The change should just clean up the output of the spelling linter and should not be interpreted as a language preference. Sorry, (British) folks!
114 lines
3.7 KiB
Perl
Executable file
114 lines
3.7 KiB
Perl
Executable file
#!/usr/bin/perl -w
|
|
# Plugin for monitor postgres connections without DBI.
|
|
#
|
|
# Licensed under GPL v2.
|
|
#
|
|
# Usage:
|
|
#
|
|
# Symlink into /etc/munin/plugins/ and add the monitored
|
|
# database to the filename. e.g.:
|
|
#
|
|
# ln -s /usr/share/munin/plugins/pg__connections \
|
|
# /etc/munin/plugins/pg_<databasename>_connections
|
|
# This should, however, be given through autoconf and suggest.
|
|
#
|
|
# If required, give username, password and/or Postgresql server
|
|
# host through environment variables.
|
|
#
|
|
# You must also activate Postgresql statistics. See
|
|
# http://www.postgresql.org/docs/7.4/interactive/monitoring-stats.html
|
|
# for how to enable this. Specifically, the following lines must
|
|
# exist in your postgresql.conf:
|
|
#
|
|
# stats_start_collector = true
|
|
# stats_block_level = true
|
|
#
|
|
#
|
|
# Parameters:
|
|
#
|
|
# config (required)
|
|
#
|
|
# Config variables:
|
|
#
|
|
# dbhost - Which database server to use. Defaults to
|
|
# 'localhost'.
|
|
# dbname - Which database to use. Defaults to template1
|
|
# dbuser - A Postgresql user account with read permission to
|
|
# the given database. Defaults to
|
|
# 'postgres'. Anyway, Munin must be told which user
|
|
# this plugin should be run as.
|
|
# dbpass - The corresponding password, if
|
|
# applicable. Default to undef. Remember that
|
|
# pg_hba.conf must be configured accordingly.
|
|
#
|
|
# Magic markers
|
|
#%# family=auto
|
|
#%# capabilities=autoconf
|
|
|
|
use strict;
|
|
|
|
my $psql = $ENV{'psql'} || '/usr/bin/psql';
|
|
my $dbhost = $ENV{'dbhost'} || '127.0.0.1';
|
|
my $dbname = $ENV{'dbname'} || 'template1';
|
|
my $dbuser = $ENV{'dbuser'} || 'munin';
|
|
#my $dbuserx = $ENV{'dbuserx'} || '';
|
|
my $dbport = $ENV{'dbport'} || '5432';
|
|
my $dbpass = $ENV{'dbpass'} || 'munin';
|
|
|
|
my $COMMAND = "PGPASSWORD='$dbpass' '$psql' '$dbname' -h '$dbhost' -U '$dbuser' -p '$dbport' -A -F, -t ";
|
|
|
|
if (exists $ARGV[0]) {
|
|
if ($ARGV[0] eq "config") {
|
|
my $sqlCommand = "$COMMAND -c 'SHOW max_connections;'";
|
|
my ($max_connections) = `$sqlCommand`;
|
|
my $warning = int ($max_connections * 0.7);
|
|
my $critical = int ($max_connections * 0.8);
|
|
print "graph_title PostgreSQL active connections\n";
|
|
print "graph_args -l 0 --base 1000\n";
|
|
print "graph_vlabel Connections\n";
|
|
print "graph_category db\n";
|
|
print "graph_info Shows active Postgresql connections from $dbname\n";
|
|
|
|
|
|
$sqlCommand = "$COMMAND -c 'select datname, count(*) from pg_stat_activity group by datname;'";
|
|
open(SERVICE, "$sqlCommand |")
|
|
or die("Could not execute '$sqlCommand': $!");
|
|
|
|
my $setarea = "yes";
|
|
while (<SERVICE>) {
|
|
my ($datname, $curr_conn) = (m/(\w+).*?(\d+(?:\.\d+)?)/);
|
|
|
|
print "$datname.label $datname active connections\n";
|
|
print "$datname.info $datname active connections\n";
|
|
print "$datname.type GAUGE\n";
|
|
if ($setarea eq "yes") {
|
|
print "$datname.draw AREA\n";
|
|
$setarea="";
|
|
} else {
|
|
print "$datname.draw STACK\n";
|
|
}
|
|
}
|
|
|
|
print "max_connections.label Max. connections\n";
|
|
print "max_connections.info Max. connections\n";
|
|
print "max_connections.type GAUGE\n";
|
|
|
|
print "warning $warning\n";
|
|
print "critical $critical\n";
|
|
exit 0;
|
|
}
|
|
}
|
|
|
|
# select datname, count(*) from pg_stat_activity group by datname
|
|
my $sqlCommand = "$COMMAND -c 'SHOW max_connections;'";
|
|
my ($max_connections) = `$sqlCommand`;
|
|
|
|
$sqlCommand = "$COMMAND -c 'select datname, count(*) from pg_stat_activity group by datname;'";
|
|
open(SERVICE, "$sqlCommand |")
|
|
or die("Could not execute '$sqlCommand': $!");
|
|
|
|
while (<SERVICE>) {
|
|
my ($datname, $curr_conn) = (m/(\w+).*?(\d+(?:\.\d+)?)/);
|
|
print "$datname.value $curr_conn\n";
|
|
}
|
|
print "max_connections.value $max_connections\n";
|