new plugins

git-svn-id: https://nagiosplug.svn.sourceforge.net/svnroot/nagiosplug/nagiosplug/trunk@302 f882894a-f735-0410-b71e-b25c423dba1c

contrib/check_adptraid.sh

@@ -0,0 +1,75 @@
+#! /bin/sh
+#
+# Modified check_sensors to check the alarm status of an Adaptec 3200S RAID
+# controller.
+#
+# Scott Lambert -- lambert@lambertfam.org
+#
+# Tested on FreeBSD 4.7 with the adptfbsd_323.tgz package installed.  This 
+# package installs all it's programs into /usr/dpt.
+#
+
+PATH=/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin
+
+PROGNAME=`basename $0`
+PROGPATH=`echo $0 | sed -e 's,[\\/][^\\/][^\\/]*$,,'`
+REVISION=`echo '$Revision$' | sed -e 's/[^0-9.]//g'`
+
+. $PROGPATH/utils.sh
+
+RAIDUTIL_CMD="/usr/dpt/raidutil -A ?"
+
+print_usage() {
+	echo "Usage: $PROGNAME"
+}
+
+print_help() {
+	print_revision $PROGNAME $REVISION
+	echo ""
+	print_usage
+	echo ""
+	echo "This plugin checks alarm status of Adaptec 3200S RAID controller."
+	echo ""
+	support
+	exit 0
+}
+
+case "$1" in
+	--help)
+		print_help
+		exit 0
+		;;
+	-h)
+		print_help
+		exit 0
+		;;
+	--version)
+   	print_revision $PROGNAME $REVISION
+		exit 0
+		;;
+	-V)
+		print_revision $PROGNAME $REVISION
+		exit 0
+		;;
+	*)
+		raidutiloutput=`$RAIDUTIL_CMD 2>&1`
+		status=$?
+		if test "$1" = "-v" -o "$1" = "--verbose"; then
+			echo ${raidutiloutput}
+		fi
+		if test ${status} -eq 127; then
+			echo "RAIDUTIL UNKNOWN - command not found (did you install raidutil?)"
+			exit -1
+		elif test ${status} -ne 0 ; then
+			echo "WARNING - raidutil returned state $status"
+			exit 1
+		fi
+		if echo ${raidutiloutput} | egrep On > /dev/null; then
+			echo RAID CRITICAL - RAID alarm detected!
+			exit 2
+		else
+			echo raid ok
+			exit 0
+		fi
+		;;
+esac

contrib/check_compaq_insight.pl

@@ -0,0 +1,296 @@
+From mm@elabnet.de Mon Nov 18 09:59:04 2002
+Date: Mon, 18 Nov 2002 12:19:04 +0100
+From: Michael Markstaller <mm@elabnet.de>
+To: nagiosplug-devel@lists.sourceforge.net
+Subject: [Nagiosplug-devel] Submission: check_insight / checking Compaq
+    Insight Agent status
+
+Hi,
+
+I've been looking to check the status/health of Compaq Insight Agents on
+servers and found a spong plugin
+(http://spong.sourceforge.net/downloads/plugins/spong-network/check_insi
+ght) which I've slightly changed to work with Nagios.
+I have pretty no idea of perl at all, just wanted to make it work for
+me, so please don't shoot me for this copy-paste-code. I've tested some
+basic things, it seems to work at least to report a warning if smthg is
+degraded and OK of xcourse ;)
+I'm also quite unsure if this is the right way to submit, so I'll just
+try ;)
+There're some "unknown" components on all servers I've checked so far,
+if anybody has a documentation of what's exactly returned when getting
+the OID 1.3.6.1.4.1.232.11.2.10.1.0 (CPQHOST_MIB isn't very descriptive)
+I'd be happy to fix this.
+
+--- cut ---
+#!/usr/bin/perl
+#
+# (c)2002 Michael Markstaller, Elaborated Networks GmbH
+# send bug reports to <mm@elabnet.de>
+# 
+# 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 (or with Nagios);  if not, write to the
+# Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+# Boston, MA 02111-1307, USA
+#
+#
+# Check Comapq Insight Management Agents Systems Status by SNMP
+# based on the spong-plugin check_insight from:
+#
+http://spong.sourceforge.net/downloads/plugins/spong-network/check_insig
+ht
+#
+# Usage:
+# check_insight -H <host> -C community
+#
+
+use Net::SNMP;
+use Getopt::Long;
+Getopt::Long::Configure('bundling');
+
+$version=0.01;
+
+my %ERRORS = ('UNKNOWN' , '-1',
+              'OK' , '0',
+              'WARNING', '1',
+              'CRITICAL', '2');
+
+
+#
+#              some default values
+#
+$TIMEOUT=15;
+
+#
+#              get command line options the regular way
+#
+GetOptions
+        ("V"   => \$opt_V, "version"       => \$opt_V,
+         "h"   => \$opt_h, "help"          => \$opt_h,
+         "v" => \$verbose, "verbose"       => \$verbose,
+         "H=s" => \$opt_H, "hostname=s"    => \$opt_H,
+         "C=s" => \$opt_C, "community=s"    => \$opt_C);
+
+#
+#              handle the verbose stuff first
+#
+if ($opt_V) {
+        print "\n";
+        print "check_insight nagios plugin version $version\n";
+        print "\n";
+        print "The nagios plugins come with ABSOLUTELY NO WARRANTY.  You
+may redistribute\n";
+        print "copies of the plugins under the terms of the GNU General
+Public License.\n";
+        print "For more information about these matters, see the file
+named COPYING.\n";
+        print "\n";
+        print "(c)2002 Michael Markstaller, Elaborated Networks GmbH\n";
+        print "\n";
+        print "\n";
+        exit $ERRORS{'UNKNOWN'};
+} 
+
+if ($opt_h) {
+        print_help();
+        exit $ERRORS{'UNKNOWN'};
+}
+
+#
+#              now get options the weired way and set the defaults
+#              if nothing else is provided
+#
+$opt_H = shift unless ($opt_H);
+print_usage() unless ($opt_H);
+
+#
+#              dont let us wait forever...
+#
+$SIG{'ALRM'} = sub {
+     print ("ERROR: No response from server (alarm)\n");
+     exit $ERRORS{"UNKNOWN"};
+};
+alarm($TIMEOUT);
+
+
+#
+#              now we set things up for the real work
+#              and fire up the request
+#
+
+########################################################################
+########
+my ($host) = ($opt_H);
+my ($color, $summary, $message ) = ( "green", "", "" );
+($opt_C) || ($opt_C = shift) || ($opt_C = "public");
+my ($community) = $opt_C;
+
+# We use some look up tables for checking some config options.
+my (@State) = ("Not Available", "Other", "OK", "Degraded", "Failed");
+
+my (@MIBName) = ("", "Std", "Unknown", "Array",
+	   "Netware", "SCSI", "Health","Unknown", 
+	   "Store", "SM2", "Thresh", "OS", "UPS", 
+	   "Unknown", "IDE", "Clusters", "Fibre", 
+	   "MIB", "NIC");
+
+# These are the positions within the table to actually look at.
+my (@MIBs) = (1, 2, 3, 5, 6, 10, 11, 14, 18);
+
+my ($oid) = "1.3.6.1.4.1.232.11.2.10.1.0";	# SysArray
+
+# Open the connection.
+my ($session, $error) = Net::SNMP->session(Hostname  => $host,
+				     Community => $community);
+
+# If we can't open a connection, just return red straight away.
+if (! defined $session) {
+    print ("ERROR: Unable to contact server '$opt_H'\n");
+    exit $ERRORS{"UNKNOWN"};
+}
+
+
+$session->translate;
+my ($response) = $session->get_request($oid);
+
+  if (!defined $response) {
+    # If there's no response, something screwy is going on, give up.
+    $summary = $session->error;
+    print ("ERROR: $summary\n");
+    exit $ERRORS{"UNKNOWN"};
+    $session->close;
+  } else {
+    $session->close;
+
+    # I'm not convinced that this is the easiest way to go about this,
+this is
+    # from some code which I've inherited and I've modified for use in
+here.
+    # Hi George!
+    %h = %$response;
+    my ($d) = $h{$oid};
+
+    my (@list) = ();
+	
+    # Gobble the first two char's.
+    $d = substr $d,2;
+
+    while (length($d) > 0) {
+      my ($v) = substr($d,0,2);
+      $v = hex($v);
+      $d = substr $d,2;
+      push @list, $v;
+    }
+
+    # Value in $MIBs[1] is the overall status of the machine...
+    my ($cond) = $MIBs[1];
+    $message .= "Status: $State[$cond] ";
+
+    foreach my $v (@MIBs) {
+      $cond = $list[($v*4)+1];  # A little bit of magic.
+
+      # We only bother printing the status out if it's actually
+available,
+      # as if it's N/A or Unknown then it's probably because the machine
+      # isn't available.
+      $message .= "$MIBName[$v]: $State[$cond] " if $cond > 1;
+      next if $cond < 2;
+
+      # What follows is some trickery to try and not to override a
+previous
+      # message at the same or lower color.
+      if ($cond == 4) {
+        if ($color ne 'red') {
+          $color = 'red';
+          $summary = "$MIBName[$v] is failed";
+        }
+      } elsif ($cond == 3) {
+        if ($color ne 'red') {
+          $color = 'yellow';
+          $summary = "$MIBName[$v] is degraded" if $summary eq "";
+        }
+      } elsif ($cond < 2) {
+        if ($color eq 'green') {
+          $color = 'yellow';
+          $summary = "$MIBName[$v] is unknown ($cond)" if $summary eq
+"";
+        }
+      }
+    }
+  }
+  
+  $summary = "Ok" if $summary eq "";
+
+#  return ($color, $summary, $message);
+
+if ($color eq 'red') {
+	print ("red Output: $message\n");
+	exit $ERRORS{"CRITICAL"};
+ } elsif ($color eq 'yellow') {
+	print ("$summary $message\n");
+	exit $ERRORS{"WARNING"};
+ } elsif ($color eq 'green') {
+	print ("$message\n");
+	exit $ERRORS{"OK"};
+}
+
+
+sub print_usage () {
+        print "Usage: $0 -H <host> -C <community> \n"; }
+ 
+sub print_help () {
+        print "\n";
+        print "\n";
+        print "check_insight nagios plugin version $version\n";
+        print "\n";
+        print "The nagios plugins come with ABSOLUTELY NO WARRANTY.  You
+may redistribute\n";
+        print "copies of the plugins under the terms of the GNU General
+Public License.\n";
+        print "For more information about these matters, see the file
+named COPYING.\n";
+        print "\n";
+        print "(c)2002 Michael Markstaller, Elaborated Networks GmbH\n";
+        print "\n";
+        print "\n";
+        print "This plugin checks the Compaq Insight Management agents
+system status via SNMP on the specified host.\n";
+        print "\n";
+        print "\n";
+        print_usage();
+        print "\n";
+        print "Options:\n";
+        print " -H, --hostname=ADDRESS\n";
+        print "     host name argument for server.\n";
+        print " -C, --community=STRING\n";
+	print "     SNMP Read-community string.\n";
+        print " -h, --help\n";
+	print "     print detailed help screen.\n";
+        print " -V, --version\n";
+	print "     print version information.\n";
+        print "\n";
+        print "\n";
+} 
+--- cut ---
+
+Michael
+
+
+-------------------------------------------------------
+This sf.net email is sponsored by: To learn the basics of securing 
+your web site with SSL, click here to get a FREE TRIAL of a Thawte 
+Server Certificate: http://www.gothawte.com/rd524.html
+_______________________________________________
+Nagiosplug-devel mailing list
+Nagiosplug-devel@lists.sourceforge.net
+https://lists.sourceforge.net/lists/listinfo/nagiosplug-devel

contrib/check_file_age.pl

@@ -0,0 +1,113 @@
+#!/bin/perl -w
+# $Id$
+
+# check_file.pl Copyright (C) 2003 Steven Grimm <koreth-nagios@midwinter.com>
+#
+# Checks a file's size and modification time to make sure it's not empty
+# and that it's sufficiently recent.
+#
+#
+# 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 (or with Nagios);  if not, write to the
+# Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+# Boston, MA 02111-1307, USA
+
+use strict;
+use English;
+use Getopt::Long;
+use File::stat;
+use vars qw($PROGNAME);
+use lib utils.pm;
+use utils qw (%ERRORS &print_revision &support);
+
+sub print_help ();
+sub print_usage ();
+
+my ($opt_c, $opt_f, $opt_w, $opt_C, $opt_W, $opt_h, $opt_V);
+my ($result, $message, $age, $size, $st);
+
+$PROGNAME="check_file";
+
+$opt_w = 240;
+$opt_c = 600;
+$opt_W = 0;
+$opt_C = 0;
+$opt_f = "";
+
+Getopt::Long::Configure('bundling');
+GetOptions(
+	"V"   => \$opt_V, "version"	=> \$opt_V,
+	"h"   => \$opt_h, "help"	=> \$opt_h,
+	"f=s" => \$opt_f, "file"	=> \$opt_f,
+	"w=f" => \$opt_w, "warning-age=f" => \$opt_w,
+	"W=f" => \$opt_W, "warning-size=f" => \$opt_W,
+	"c=f" => \$opt_c, "critical-age=f" => \$opt_c,
+	"C=f" => \$opt_C, "critical-size=f" => \$opt_C);
+
+if ($opt_V) {
+	print_revision($PROGNAME, '$Id$');
+	exit $ERRORS{'OK'};
+}
+
+if ($opt_h) {
+	print_help();
+	exit $ERRORS{'OK'};
+}
+
+$opt_f = shift unless ($opt_f);
+
+if (! $opt_f) {
+	print "No file specified\n";
+	exit $ERRORS{'UNKNOWN'};
+}
+
+# Examine the file.
+unless (-f $opt_f) {
+	print "$opt_f: File not found\n";
+	exit $ERRORS{'UNKNOWN'};
+}
+
+$st = File::stat::stat($opt_f);
+$age = time - $st->mtime;
+$size = $st->size;
+
+
+$result = 'OK';
+
+if (($opt_c and $age > $opt_c) or ($opt_C and $size < $opt_C)) {
+	$result = 'CRITICAL';
+}
+elsif (($opt_w and $age > $opt_w) or ($opt_W and $size < $opt_W)) {
+	$result = 'WARNING';
+}
+
+print "$result - $opt_f is $age seconds old and $size bytes\n";
+exit $ERRORS{$result};
+
+sub print_usage () {
+	print "Usage:\n";
+	print "  $PROGNAME [-w <secs>] [-c <secs>] [-W <size>] [-C <size>] -f <file>\n";
+	print "  $PROGNAME [-h | --help]\n";
+	print "  $PROGNAME [-V | --version]\n";
+}
+
+sub print_help () {
+	print_revision($PROGNAME, '$Id$');
+	print "Copyright (c) 2003 Steven Grimm\n\n";
+	print_usage();
+	print "\n";
+	print "  <secs>  File must be no more than this many seconds old\n";
+	print "  <size>  File must be at least this many bytes long\n";
+	print "\n";
+	support();
+}