From b15adb7762b6caaecaa83637abfcf5fdb4802092 Mon Sep 17 00:00:00 2001 From: Holger Weiss Date: Mon, 2 Sep 2013 13:16:24 +0200 Subject: Remove "contrib" plugins These days, sites such as "Nagios Exchange" are a much better place for publishing plugins not maintained by the Plugins Development Team. --- contrib/check_compaq_insight.pl | 296 ---------------------------------------- 1 file changed, 296 deletions(-) delete mode 100644 contrib/check_compaq_insight.pl (limited to 'contrib/check_compaq_insight.pl') diff --git a/contrib/check_compaq_insight.pl b/contrib/check_compaq_insight.pl deleted file mode 100644 index dfb04402..00000000 --- a/contrib/check_compaq_insight.pl +++ /dev/null @@ -1,296 +0,0 @@ -From mm@elabnet.de Mon Nov 18 09:59:04 2002 -Date: Mon, 18 Nov 2002 12:19:04 +0100 -From: Michael Markstaller -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 -# -# 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 -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 -C \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 -- cgit v1.2.3