diff options
| -rw-r--r-- | contrib/check_linux_raid.pl | 80 | ||||
| -rw-r--r-- | contrib/check_nagios_db.pl | 89 |
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"; +} + |