[mb-commits] branch, mbh-302, updated. MBH-302, add lock count nagios check.

The branch, mbh-302 has been updated
       via  http://git.musicbrainz.org/gitweb/?p=musicbrainz-server/core.git;a=commit;h=85c8b63fd121788cf6f01ce5a95c0a3ead584fc7 (commit)
      from  http://git.musicbrainz.org/gitweb/?p=musicbrainz-server/core.git;a=commit;h=d45b07d3f6b9a00b20d23e693b98ba28b8dc54dc (commit)

Summary of changes:
 admin/nagios/locks |   28 ++++++++++++++++++++++++++++
 1 files changed, 28 insertions(+), 0 deletions(-)
 create mode 100755 admin/nagios/locks

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 85c8b63fd121788cf6f01ce5a95c0a3ead584fc7
Author: warp <[email protected]>
Date:   Thu Jan 10 14:04:37 2013 +0100

    MBH-302, add lock count nagios check.

diff --git a/admin/nagios/locks b/admin/nagios/locks
new file mode 100755
index 0000000..4418a07
--- /dev/null
+++ b/admin/nagios/locks
@@ -0,0 +1,28 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+use FindBin '$Bin';
+use lib "$Bin/../../lib";
+
+use DBDefs;
+use DBI;
+use Getopt::Long;
+use MusicBrainz::Server::Context;
+use Pod::Usage;
+
+my $c = MusicBrainz::Server::Context->create_script_context;
+my $locks = $c->sql->select_single_value("SELECT count(*) FROM pg_locks");
+
+my $message = "postgres reports $locks locks";
+
+my ($exitcode, $exitmessage) = (
+      $locks > 1000 ? (2, "CRITICAL: $message")
+    : $locks > 500  ? (1, "WARNING: $message")
+    :                 (0, "OK: $message")
+);
+
+print $exitmessage, "\n";
+exit $exitcode;
+
+1;

-----------------------------------------------------------------------


hooks/post-receive
-- 
mb_server