--- contrib/check_compaq_insight.pl 2003-02-09 15:20:30.000000000 +0100 +++ contrib/check_compaq_insight.pl.oden 2006-09-03 11:51:48.000000000 +0200 @@ -1,28 +1,3 @@ -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 @@ -47,8 +22,7 @@ # 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 +# http://spong.sourceforge.net/downloads/plugins/spong-network/check_insight # # Usage: # check_insight -H <host> -C community @@ -88,12 +62,9 @@ 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 "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"; @@ -172,10 +143,8 @@ } 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. + # 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}; @@ -199,15 +168,13 @@ 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, + # 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 + # 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') { @@ -222,8 +189,7 @@ } elsif ($cond < 2) { if ($color eq 'green') { $color = 'yellow'; - $summary = "$MIBName[$v] is unknown ($cond)" if $summary eq -""; + $summary = "$MIBName[$v] is unknown ($cond)" if $summary eq ""; } } } @@ -253,18 +219,14 @@ 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 "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 "This plugin checks the Compaq Insight Management agents system status via SNMP on the specified host.\n"; print "\n"; print "\n"; print_usage(); @@ -281,16 +243,3 @@ 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