[Nagiosplug-checkins] CVS: nagiosplug/contrib check_linux_raid.pl,NONE,1.1 check_nagios_db.pl,NONE,1.1

[Subhendu Ghosh]

Update of /cvsroot/nagiosplug/nagiosplug/contrib
In directory usw-pr-cvs1:/tmp/cvs-serv991

Added Files:
	check_linux_raid.pl check_nagios_db.pl 
Log Message:
 new plugins

--- NEW FILE ---
#!/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});


--- NEW FILE ---
#!/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";
}