remove source-dist branch
This commit is contained in:
Marc Haber
commit
2894b36c61
398 changed files with 126941 additions and 0 deletions
296
contrib/check_compaq_insight.pl
Normal file
296
contrib/check_compaq_insight.pl
Normal file
|
|
@ -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
|
||||
Loading…
Add table
Add a link
Reference in a new issue