aboutsummaryrefslogtreecommitdiff
path: root/contrib/check_apc_ups.pl
diff options
context:
space:
mode:
authorGravatar Holger Weiss <holger@zedat.fu-berlin.de> 2013-09-02 13:16:24 +0200
committerGravatar Holger Weiss <holger@zedat.fu-berlin.de> 2013-09-02 13:16:24 +0200
commitb15adb7762b6caaecaa83637abfcf5fdb4802092 (patch)
tree64eddbe2aa1a7f98a140be0f7973f05d7a781ae0 /contrib/check_apc_ups.pl
parentc4d5882b9e1d07c7b61091062b7d085fa5f00284 (diff)
downloadmonitoring-plugins-b15adb7762b6caaecaa83637abfcf5fdb4802092.tar.gz
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.
Diffstat (limited to 'contrib/check_apc_ups.pl')
-rw-r--r--contrib/check_apc_ups.pl307
1 files changed, 0 insertions, 307 deletions
diff --git a/contrib/check_apc_ups.pl b/contrib/check_apc_ups.pl
deleted file mode 100644
index 6bf17662..00000000
--- a/contrib/check_apc_ups.pl
+++ /dev/null
@@ -1,307 +0,0 @@
-#! /usr/bin/perl -wT
-#
-# Check_apc_ups - Check APC UPS status via SNMP
-# Shamelessly copied from check_breeze.pl
-#
-# To do:
-# - Send SNMP queries directly, instead of forking `snmpget`.
-# - Make the status less verbose. Maybe we can send an "onLine, time
-# remaining: hh:mm:ss" if all is well, and a list of specific problems
-# if something is broken.
-
-use strict;
-use Getopt::Long;
-use vars qw($opt_V $opt_h $opt_H $opt_T $opt_t $opt_R $opt_r
- $opt_L $opt_l $PROGNAME);
-use lib "/usr/local/nagios/libexec";
-use utils qw(%ERRORS &print_revision &support &usage);
-
-sub print_help ();
-sub print_usage ();
-sub get_snmp_int_val ($);
-sub escalate_exitval ($);
-
-$ENV{'PATH'}='';
-$ENV{'BASH_ENV'}='';
-$ENV{'ENV'}='';
-
-Getopt::Long::Configure('bundling');
-GetOptions
- ("V" => \$opt_V, "version" => \$opt_V,
- "h" => \$opt_h, "help" => \$opt_h,
- "T=s" => \$opt_T, "temp-critical" => \$opt_T,
- "t=s" => \$opt_t, "temp-warning" => \$opt_t,
- "R=s" => \$opt_R, "runtime-critical" => \$opt_R,
- "r=s" => \$opt_r, "runtime-warning" => \$opt_r,
- "L=s" => \$opt_L, "load-critical" => \$opt_L,
- "l=s" => \$opt_l, "load-warning" => \$opt_l,
- "H=s" => \$opt_H, "hostname=s" => \$opt_H);
-
-if ($opt_V) {
- print_revision($PROGNAME,'$Revision: 1771 $');
- exit $ERRORS{'OK'};
-}
-
-if ($opt_h) {print_help(); exit $ERRORS{'OK'};}
-
-($opt_H) || ($opt_H = shift) || usage("Host name/address not specified\n");
-my $host = $1 if ($opt_H =~ /([-.A-Za-z0-9]+)/);
-($host) || usage("Invalid host: $opt_H\n");
-
-# Defaults
-
-$opt_R *= 60 * 100 if (defined $opt_R); # Convert minutes to secs/100
-$opt_r *= 60 * 100 if (defined $opt_R);
-
-my $tempcrit = $opt_T || 60;
-my $tempwarn = $opt_t || 40;
-my $runtimecrit = $opt_R || 30 * 60 * 100; # Secs / 100
-my $runtimewarn = $opt_r || 60 * 60 * 100;
-my $loadcrit = $opt_L || 85;
-my $loadwarn = $opt_l || 50;
-
-if ($tempcrit !~ /\d+/) { usage ("Invalid critical temperature threshold.\n"); }
-if ($tempwarn !~ /\d+/) { usage ("Invalid critical temperature threshold.\n"); }
-
-if ($runtimecrit !~ /\d+/) {
- usage ("Invalid critical run time threshold.\n");
-}
-if ($runtimewarn !~ /\d+/) {
- usage ("Invalid warning run time threshold.\n");
-}
-
-if ($loadcrit !~ /\d+/ || $loadcrit < 0 || $loadcrit > 100) {
- usage ("Invalid critical load threshold.\n");
-}
-if ($loadwarn !~ /\d+/ || $loadwarn < 0 || $loadwarn > 100) {
- usage ("Invalid warning load threshold.\n");
-}
-
-
-# APC UPS OIDs
-# APC MIBs are available at ftp://ftp.apcftp.com/software/pnetmib/mib
-my $upsBasicOutputStatus = ".1.3.6.1.4.1.318.1.1.1.4.1.1.0";
-my $upsBasicBatteryStatus = ".1.3.6.1.4.1.318.1.1.1.2.1.1.0";
-my $upsAdvInputLineFailCause = ".1.3.6.1.4.1.318.1.1.1.3.2.5.0";
-my $upsAdvBatteryTemperature = ".1.3.6.1.4.1.318.1.1.1.2.2.2.0";
-my $upsAdvBatteryRunTimeRemaining = ".1.3.6.1.4.1.318.1.1.1.2.2.3.0";
-my $upsAdvBatteryReplaceIndicator = ".1.3.6.1.4.1.318.1.1.1.2.2.4.0";
-my $upsAdvOutputLoad = ".1.3.6.1.4.1.318.1.1.1.4.2.3.0";
-my $upsAdvTestDiagnosticsResults = ".1.3.6.1.4.1.318.1.1.1.7.2.3.0";
-
-my @outputStatVals = (
- [ undef, undef ], # pad 0
- [ undef, undef ], # pad 1
- [ "onLine", $ERRORS{'OK'} ], # 2
- [ "onBattery", $ERRORS{'WARNING'} ], # 3
- [ "onSmartBoost", $ERRORS{'WARNING'} ], # 4
- [ "timedSleeping", $ERRORS{'WARNING'} ], # 5
- [ "softwareBypass", $ERRORS{'WARNING'} ], # 6
- [ "off", $ERRORS{'CRITICAL'} ], # 7
- [ "rebooting", $ERRORS{'WARNING'} ], # 8
- [ "switchedBypass", $ERRORS{'WARNING'} ], # 9
- [ "hardwareFailureBypass", $ERRORS{'CRITICAL'} ], # 10
- [ "sleepingUntilPowerReturn", $ERRORS{'CRITICAL'} ], # 11
- [ "onSmartTrim", $ERRORS{'WARNING'} ], # 12
-);
-
-my @failCauseVals = (
- undef,
- "noTransfer",
- "highLineVoltage",
- "brownout",
- "blackout",
- "smallMomentarySag",
- "deepMomentarySag",
- "smallMomentarySpike",
- "largeMomentarySpike",
- "selfTest",
- "rateOfVoltageChnage",
-);
-
-my @battStatVals = (
- [ undef, undef ], # pad 0
- [ undef, undef ], # pad 1
- [ "batteryNormal", $ERRORS{'OK'} ], # 2
- [ "batteryLow", $ERRORS{'CRITICAL'} ], # 3
-);
-
-my @battReplVals = (
- [ undef, undef ], # pad 0
- [ "noBatteryNeedsReplacing", $ERRORS{'OK'} ], # 1
- [ "batteryNeedsReplacing", $ERRORS{'CRITICAL'} ], # 2
-);
-
-my @diagnosticsResultsVals = (
- [ undef, undef ], # pad 0
- [ "OK", $ERRORS{'OK'} ], # 1
- [ "failed", $ERRORS{'CRITICAL'} ], # 2
- [ "invalidTest", $ERRORS{'CRITICAL'} ], # 3
- [ "testInProgress", $ERRORS{'OK'} ], # 4
-);
-
-my $exitval = $ERRORS{'UNKNOWN'};
-my $data;
-my $onbattery = 3;
-
-$data = get_snmp_int_val( $upsBasicOutputStatus );
-
-print "Output status: ";
-if (defined ($data) && defined ($outputStatVals[$data][0])) {
- print "$outputStatVals[$data][0] | ";
- escalate_exitval($outputStatVals[$data][1]);
-} else {
- print "unknown | ";
-}
-
-$data = get_snmp_int_val( $upsAdvBatteryRunTimeRemaining );
-
-print "Rem time: ";
-if (defined ($data)) {
- my $hrs = int($data / (60 * 60 * 100)); # Data is hundredths of a second
- my $mins = int($data / (60 * 100)) % 60;
- my $secs = ($data % 100) / 100;
- printf "%d:%02d:%05.2f | ", $hrs, $mins, $secs;
- if ($data <= $runtimecrit) {
- escalate_exitval($ERRORS{'CRITICAL'});
- } elsif ($data <= $runtimewarn) {
- escalate_exitval($ERRORS{'WARNING'});
- } else {
- escalate_exitval($ERRORS{'OK'});
- }
-} else {
- print "unknown | ";
-}
-
-$data = get_snmp_int_val( $upsBasicBatteryStatus );
-
-print "Battery status: ";
-if (defined ($data) && defined ($battStatVals[$data][0])) {
- my $failcause = "unknown";
- my $fc = get_snmp_int_val( $upsAdvInputLineFailCause );
- if ($data == $onbattery) {
- if (defined ($failCauseVals[$fc])) { $failcause = $failCauseVals[$fc]; }
- print "$battStatVals[$data][0] ($failcause) | ";
- } else {
- print "$battStatVals[$data][0] | ";
- }
- escalate_exitval($battStatVals[$data][1]);
-} else {
- print "unknown | ";
-}
-
-$data = get_snmp_int_val( $upsAdvBatteryTemperature );
-
-print "Battery temp(C): ";
-if (defined ($data)) {
- print "$data | ";
- if ($data >= $tempcrit) {
- escalate_exitval($ERRORS{'CRITICAL'});
- } elsif ($data >= $tempwarn) {
- escalate_exitval($ERRORS{'WARNING'});
- } else {
- escalate_exitval($ERRORS{'OK'});
- }
-} else {
- print "unknown | ";
-}
-
-$data = get_snmp_int_val( $upsAdvBatteryReplaceIndicator );
-
-print "Battery repl: ";
-if (defined ($data) && defined ($battReplVals[$data][0])) {
- print "$battReplVals[$data][0] | ";
- escalate_exitval($battReplVals[$data][1]);
-} else {
- print "unknown | ";
-}
-
-$data = get_snmp_int_val( $upsAdvOutputLoad );
-
-print "Output load (%): ";
-if (defined ($data)) {
- print "$data | ";
- if ($data >= $loadcrit) {
- escalate_exitval($ERRORS{'CRITICAL'});
- } elsif ($data >= $loadwarn) {
- escalate_exitval($ERRORS{'WARNING'});
- } else {
- escalate_exitval($ERRORS{'OK'});
- }
-} else {
- print "unknown | ";
-}
-
-$data = get_snmp_int_val( $upsAdvTestDiagnosticsResults );
-
-print "Diag result: ";
-if (defined ($data) && defined ($diagnosticsResultsVals[$data][0])) {
- print "$diagnosticsResultsVals[$data][0]\n";
- escalate_exitval($diagnosticsResultsVals[$data][1]);
-} else {
- print "unknown\n";
-}
-
-
-exit $exitval;
-
-
-sub print_usage () {
- print "Usage: $PROGNAME -H <host> -T temp -t temp -R minutes -r minutes\n";
- print " -L percent -l percent\n";
-}
-
-sub print_help () {
- print_revision($PROGNAME,'$Revision: 1771 $');
- print "Copyright (c) 2001 Gerald Combs/Jeffrey Blank/Karl DeBisschop
-
-This plugin reports the status of an APC UPS equipped with an SNMP management
-module.
-
-";
- print_usage();
- print "
--H, --hostname=HOST
- Name or IP address of host to check
--T --temp-critical
- Battery degrees C above which a CRITICAL status will result (default: 60)
--t --temp-warning
- Battery degrees C above which a WARNING status will result (default: 40)
--R --runtime-critical
- Minutes remaining below which a CRITICAL status will result (default: 30)
--r --runtime-warning
- Minutes remaining below which a WARNING status will result (default: 60)
--L --load-critical
- Output load pct above which a CRITICAL status will result (default: 85
--l --load-warning
- Output load pct above which a WARNING status will result (default: 50
-
-";
- support();
-}
-
-sub get_snmp_int_val ($) {
- my $val=0;
- my $oid = shift(@_);
-
- $val = `/usr/bin/snmpget $host public $oid 2> /dev/null`;
- my @test = split(/ /,$val,3);
-
- return undef unless (defined ($test[2]));
-
- if ($test[2] =~ /\(\d+\)/) { # Later versions of UCD SNMP
- ($val) = ($test[2] =~ /\((\d+)\)/);
- } elsif ($test[2] =~ /: \d+/) {
- ($val) = ($test[2] =~ /: (\d+)/);
- } else {
- $val = $test[2];
- }
-
- return $val;
-}
-
-sub escalate_exitval ($) {
- my $newval = shift(@_);
-
- if ($newval > $exitval) { $exitval = $newval; }
-}