2
0
mirror of https://github.com/munin-monitoring/contrib.git synced 2018-11-08 00:59:34 +01:00
contrib-munin/plugins/snmp/snmp__apc_pdu

116 lines
2.9 KiB
Plaintext
Raw Normal View History

#!/usr/bin/perl -w
# -*- cperl -*-
=head1 NAME
snmp__apc - SNMP plugin to monitor APC metered and managed PDUs.
=head1 APPLICABLE SYSTEMS
This has been tested with AP7830 metered PDUs, but should work with
most other PDUs that follow the PowerNet-MIB published by APC.
=head1 CONFIGURATION
Most likely you want to use SNMP version 3 to connect to the PDUs, as
they don't support version 2 (only 1 or 3). This can be achieved by
using:
[snmp_*_apc]
env.version 3
Please see 'perldoc Munin::Plugin::SNMP' for further configuration
information.
=head1 MIB INFORMATION
This plugin requires the PowerNet-MIB from APC.
=head1 MAGIC MARKERS
#%# family=snmpauto
#%# capabilities=snmpconf
=head1 BUGS
None known.
=head1 AUTHOR
Copyright (C) 2012 Diego Elio Pettenò.
=head1 LICENSE
GPLv2
=cut
use strict;
use Munin::Plugin;
use Munin::Plugin::SNMP;
# This corresponds to PowerNet-MIB::rPDU
my $oidBase = '1.3.6.1.4.1.318.1.1.12';
# PowerNet-MIB::rPDUIdentModelNumber
my $oidModelNo = "$oidBase.1.5";
# PowerNet-MIB::rPDUIdentSerialNumber
my $oidSerialNo = "$oidBase.1.6";
# PowerNet-MIB::rPDULoadDevNumPhases
my $oidNumPhases = "$oidBase.2.1.2";
# PowerNet-MIB::rPDULoadPhaseConfigEntry
# .3 -> PowerNet-MIB::rPDULoadPhaseConfigNearOverloadThreshold
# .4 -> PowerNet-MIB::rPDULoadPhaseConfigOverloadThreshold
my $oidConfigBase = "$oidBase.2.2.1.1";
# PowerNet-MIB::rPDULoadStatusLoad (+)
my $oidPhaseLoad = "$oidBase.2.3.1.1.2";
if (defined $ARGV[0] and $ARGV[0] eq "snmpconf") {
print "require $oidBase.2.3.1.1.2.[1-9]";
exit 0;
}
# SNMP needed for both config and fetch.
my $session = Munin::Plugin::SNMP->session();
my $data = $session->get_entries(-columns => [$oidNumPhases,
$oidModelNo,
$oidSerialNo]);
if ($ARGV[0] and $ARGV[0] eq "config") {
my ($host) = Munin::Plugin::SNMP->config_session();
print <<END;
host_name $host
graph_title PDU Current Drain
graph_vlabel Ampere
graph_category sensors
graph_info This graph if for $data->{"$oidModelNo.0"} serial $data->{"$oidSerialNo.0"}
END
my $phaseData = $session->get_hash(-baseoid => "$oidConfigBase",
-cols => { 3 => 'nearOverloadThreshold',
4 => 'overloadThreshold' }
);
my $phaseIndex;
for( $phaseIndex = 1; $phaseIndex <= $data->{"$oidNumPhases.0"}; $phaseIndex++ ) {
print <<END;
phase$phaseIndex.label Phase $phaseIndex load
phase$phaseIndex.min 0
phase$phaseIndex.warning $phaseData->{$phaseIndex}->{'nearOverloadThreshold'}
phase$phaseIndex.critical $phaseData->{$phaseIndex}->{'overloadThreshold'}
END
}
exit 0;
}
my $phasesLoad = $session->get_entries(-columns => [$oidPhaseLoad]);
my $phaseIndex;
for( $phaseIndex = 1; $phaseIndex <= $data->{"$oidNumPhases.0"}; $phaseIndex++ ) {
# the phaseLoad value is defined in dA — we might as well convert to full Amperes
my $phaseLoad = $phasesLoad->{"$oidPhaseLoad.$phaseIndex"} / 10.0;
print "phase$phaseIndex.value $phaseLoad\n";
}