119 lines
3.0 KiB
Perl
Executable File
119 lines
3.0 KiB
Perl
Executable File
#!/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"}
|
|
graph_args --base 1000 -l 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
|
|
}
|
|
|
|
unless ( $ENV{MUNIN_CAP_DIRTYCONFIG} == 1 ) {
|
|
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";
|
|
}
|