2 files changed, 169 insertions, 0 deletions

diff --git a/contrib/check_linux_raid.pl b/contrib/check_linux_raid.pl
new file mode 100644
index 00000000..44f166b1
--- /dev/null
+++ b/contrib/check_linux_raid.pl
@@ -0,0 +1,80 @@
+#!/usr/bin/perl -w
+
+# Copyright (c) 2002 ISOMEDIA, Inc.
+# Written by Steve Milton
+# Released under the GNU Public License
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+# Usage:   check_raid <raid-name>
+# Example: check_raid md0
+#          WARNING md0 status=[UUU_U], recovery=46.4%, finish=123.0min
+
+use strict;
+
+my %ERRORS=('DEPENDENT'=>4,'UNKNOWN'=>3,'OK'=>0,'WARNING'=>1,'CRITICAL'=>2);
+
+open (MDSTAT, "</proc/mdstat") or die "Failed to open /proc/mdstat";
+my $found = 0;
+my $status = "";
+my $recovery = "";
+my $finish = "";
+my $active = "";
+while(<MDSTAT>) {
+    if ($found) {
+        if (/(\[[_U]+\])/) {
+            $status = $1;
+        } elsif (/recovery = (.*?)\s/) {  
+            $recovery = $1;
+            ($finish) = /finish=(.*?min)/;
+        }
+    } else {
+        if (/$ARGV[0]/) {
+            $found = 1;
+            if (/active/) {
+                $active = 1;
+            }
+        }
+    }
+}
+
+my $msg = "FAILURE";
+my $code = "UNKNOWN";
+if ($status =~ /_/) {
+    if ($recovery) {
+        $msg = sprintf "%s status=%s, recovery=%s, finish=%s\n",
+        $ARGV[0], $status, $recovery, $finish;
+        $code = "WARNING";
+    } else {
+        $msg = sprintf "%s status=%s\n", $ARGV[0], $status;
+        $code = "CRITICAL";
+    }
+} elsif ($status =~ /U+/) {
+    $msg = sprintf "%s status=%s\n", $ARGV[0], $status;
+    $code = "OK";
+} else {
+    if ($active) {
+        $msg = sprintf "%s active with no status information.\n",
+        $ARGV[0];
+        $code = "OK";
+    } else {
+        $msg = sprintf "%s does not exist.\n", $ARGV[0];
+        $code = "CRITICAL";
+    }
+}
+
+print $code, " ", $msg;
+exit ($ERRORS{$code});
+
diff --git a/contrib/check_nagios_db.pl b/contrib/check_nagios_db.pl
new file mode 100644
index 00000000..5811d7c6
--- /dev/null
+++ b/contrib/check_nagios_db.pl
@@ -0,0 +1,89 @@
+#!/usr/local/bin/perl -w
+
+use strict;
+$|++;
+
+use vars qw/$opt_e $opt_c/;
+
+$ENV{"PATH"} = "/usr/bin:/usr/sbin:/bin";
+
+use Getopt::Std;
+use DBI;
+
+my $driver = "mysql";
+
+my $CFG_DEF = "/opt/nagios/etc/cgi.cfg";
+my $QUERY = "select *, UNIX_TIMESTAMP(last_update) as ut from programstatus;";
+my $EXPIRE_DEF = 5; ## expressed in minutes
+my $PROCCNT = 0;
+
+use constant OK => 1;
+use constant WARN => 2;
+
+my $STAT = WARN;
+
+sub usage {
+        print STDERR "\n";
+        print STDERR "$0 -F -e <expire time in minutes> -C <process string>\n";
+        print STDERR "\n";
+        exit -1;
+}
+
+getopt("e:c:");
+
+my $EXPIRE = $opt_e || $EXPIRE_DEF;
+my $CFG = $opt_c || $CFG_DEF;
+
+( -f $CFG ) or die "Can't open config file '$CFG': $!\n";
+
+my ($dbhost, $dbport, $dbuser, $dbpass, $dbname);
+
+open(F, "< $CFG");
+while ( <F> ) {
+        if (/^xsddb_host=(.+)/) { $dbhost = $1; next; };
+        if (/^xsddb_port=(.+)/) { $dbport = $1; next; };
+        if (/^xsddb_database=(.+)/) { $dbname = $1; next; };
+        if (/^xsddb_username=(.+)/) { $dbuser = $1; next; };
+        if (/^xsddb_password=(.+)/) { $dbpass = $1; next; };
+}
+close(F);
+
+# print "($dbhost, $dbport, $dbuser, $dbpass, $dbname)\n";
+
+my $dsn = "DBI:$driver:database=$dbname;host=$dbhost;port=$dbport";
+my $dbh = DBI->connect($dsn, $dbuser, $dbpass, {'RaiseError' => 1});
+
+my $sth = $dbh->prepare($QUERY);
+if (!$sth) { die "Error:" . $dbh->errstr . "\n"; }
+$sth->execute;
+if (!$sth->execute) { die "Error:" . $sth->errstr . "\n"; }
+
+my %status = ();
+
+my $names = $sth->{'NAME'};
+my $numFields = $sth->{'NUM_OF_FIELDS'};
+my $ref = $sth->fetchrow_arrayref;
+for (my $i = 0;  $i < $numFields;  $i++) {
+        $status{"$$names[$i]"} = $$ref[$i];
+}
+
+#foreach (keys(%status)) {
+#       print "$_: $status{$_}\n";
+#}
+
+my $lastupdated = time() - $status{"ut"};
+if ( $lastupdated < ($EXPIRE*60) ) { ## convert $EXPIRE to seconds
+        $STAT = OK;
+}
+
+open(PS, "ps -eaf | grep $status{nagios_pid} | grep -v grep | ");
+$PROCCNT = 0;
+while(<PS>) {
+        $PROCCNT++;
+}
+close(PS);
+
+if ( $STAT == OK ) {
+        print "Nagios OK: located $PROCCNT processes, program status updated $lastupdated seconds ago\n";
+}
+