neuer versuch mit munin für immer1-5
[puppet_munin.git] / files / plugins / pg__locks
1 #!/usr/bin/perl -w
2 # Plugin for monitor postgres connections.
3 #
4 # Licenced under GPL v2.
5 #
6 # Usage:
7 #
8 #       Symlink into /etc/munin/plugins/ and add the monitored
9 #       database to the filename. e.g.:
10 #
11 #       ln -s /usr/share/munin/plugins/pg__locks \
12 #         /etc/munin/plugins/pg_<databasename>_locks
13 #       This should, however, be given through autoconf and suggest.
14 #
15 #       If required, give username, password and/or Postgresql server
16 #       host through environment variables.
17 #
18 #       You must also activate Postgresql statistics. See
19 #       http://www.postgresql.org/docs/8.1/interactive/monitoring-locks.html
20 #       for how to enable this. Specifically, the following lines must
21 #       exist in your postgresql.conf:
22 #
23 #           stats_start_collector = true
24 #           stats_block_level = true
25 #
26 #
27 # Parameters:
28 #
29 #       config   (required)
30 #
31 # Config variables:
32 #
33 #       dbhost     - Which database server to use. Defaults to
34 #                    'localhost'.
35 #       dbname     - Which database to use. Defaults to template1
36 #       dbuser     - A Postgresql user account with read permission to
37 #                    the given database. Defaults to
38 #                    'postgres'. Anyway, Munin must be told which user
39 #                    this plugin should be run as.
40 #       dbpass     - The corresponding password, if
41 #                    applicable. Default to undef. Remember that
42 #                    pg_hba.conf must be configured accordingly.
43 #
44 # Magic markers
45 #%# family=auto
46 #%# capabilities=autoconf
47
48 use strict;
49 use DBI;
50
51 my $dbhost = $ENV{'dbhost'} || '127.0.0.1';
52 my $dbname = $ENV{'dbname'} || 'template1';
53 my $dbuser = $ENV{'dbuser'} || 'postgres';
54 my $dbport = $ENV{'dbport'} || '5432';
55 my $dbpass = $ENV{'dbpass'} || '';
56
57 # Check for DBD::Pg
58 if (! eval "require DBD::Pg;") {
59      exit 1;
60 }
61
62 my $dsn = "DBI:Pg:dbname=$dbname;host=$dbhost;port=$dbport";
63 #print "$dsn\n";
64 my $dbh = DBI->connect ($dsn, $dbuser,
65                         $dbpass,
66                         {RaiseError =>1}) || die "";
67
68
69
70 if (exists $ARGV[0]) {
71     if ($ARGV[0] eq 'autoconf') {
72         # Check for DBD::Pg
73         if (! eval "require DBD::Pg;") {
74              print "no (DBD::Pg not found)";
75              exit 1;
76         }
77         if ($dbh) {
78             print "yes\n";
79             exit 0;
80         } else {
81             print "no Unable to access Database $dbname on host $dbhost as user $dbuser.\nError returned was: ". $DBI::errstr;
82             exit 1;
83         }
84     }
85
86     if ($ARGV[0] eq "config") {
87         print "graph_title PostgresSQL locks\n";
88         print "graph_args --base 1000\n";
89         print "graph_vlabel Locks\n";
90         print "graph_category Postgresql\n";
91         print "graph_info Shows Postgresql locks\n";
92         print "locks.label Locks\n";
93         print "locks.info Locks (more info here, please... :)\n";
94         print "locks.type GAUGE\n";
95         print "locks.warning 5\n";
96         print "locks.critical 10\n";
97         print "exlocks.label Exclusive locks\n";
98         print "exlocks.info Exclusive locks (here too, please... :)\n";
99         print "exlocks.type GAUGE\n";
100         print "exlocks.warning 5\n";
101         print "exlocks.critical 10\n";
102         exit 0;
103     }
104 }
105
106 my $sql="SELECT mode,COUNT(mode) FROM pg_locks GROUP BY mode ORDER BY mode;";
107 my $sth = $dbh->prepare ($sql);
108 $sth->execute ();
109 my $locks = 0;
110 my $exlocks = 0;
111 while (my ($mode, $count) = $sth->fetchrow ()) {
112     if ($mode =~ /exclusive/i) {
113         $exlocks = $exlocks + $count;
114     }
115     $locks = $locks+$count;
116 }
117 print "locks.value $locks\n";
118 print "exlocks.value $exlocks\n";
119