#!/usr/bin/perl -w =head1 NAME Munin plugin snmp__sentry is written to monitor the Sentry line of Power Distribution Units (PDU) offered by Server Technology. This plugin currently assumes a 3-phase PDU. =head1 AUTHOR Danny Howard This plugin was created on the behalf of Quantifind, Inc. http://www.quantifind.com =head1 LICENSE BSD =head1 MAGIC MARKERS #%# family=snmpauto #%# capabilities=snmpconf =head1 EXAMPLE MIB $ wget ftp://ftp.servertech.com/pub/SNMP/sentry3/Sentry3.mib $ snmpwalk -c public -v 2c -M +. -m +Sentry3-MIB 192.168.whatevs .1.3.6.1.4.1.1718.3.2.2 Sentry3-MIB::infeedID.1.1 = STRING: AA Sentry3-MIB::infeedID.1.2 = STRING: AB Sentry3-MIB::infeedID.1.3 = STRING: AC Sentry3-MIB::infeedName.1.1 = STRING: Master_X Sentry3-MIB::infeedName.1.2 = STRING: Master_Y Sentry3-MIB::infeedName.1.3 = STRING: Master_Z Sentry3-MIB::infeedCapabilities.1.1 = BITS: C6 00 onSense(0) loadSense(1) voltageSense(5) powerSense(6) Sentry3-MIB::infeedCapabilities.1.2 = BITS: C6 00 onSense(0) loadSense(1) voltageSense(5) powerSense(6) Sentry3-MIB::infeedCapabilities.1.3 = BITS: C6 00 onSense(0) loadSense(1) voltageSense(5) powerSense(6) Sentry3-MIB::infeedStatus.1.1 = INTEGER: on(1) Sentry3-MIB::infeedStatus.1.2 = INTEGER: on(1) Sentry3-MIB::infeedStatus.1.3 = INTEGER: on(1) Sentry3-MIB::infeedLoadStatus.1.1 = INTEGER: normal(0) Sentry3-MIB::infeedLoadStatus.1.2 = INTEGER: normal(0) Sentry3-MIB::infeedLoadStatus.1.3 = INTEGER: normal(0) Sentry3-MIB::infeedLoadValue.1.1 = INTEGER: 717 hundredth Amps Sentry3-MIB::infeedLoadValue.1.2 = INTEGER: 708 hundredth Amps Sentry3-MIB::infeedLoadValue.1.3 = INTEGER: 787 hundredth Amps Sentry3-MIB::infeedLoadHighThresh.1.1 = INTEGER: 16 Amps Sentry3-MIB::infeedLoadHighThresh.1.2 = INTEGER: 16 Amps Sentry3-MIB::infeedLoadHighThresh.1.3 = INTEGER: 16 Amps Sentry3-MIB::infeedOutletCount.1.1 = INTEGER: 10 Sentry3-MIB::infeedOutletCount.1.2 = INTEGER: 10 Sentry3-MIB::infeedOutletCount.1.3 = INTEGER: 10 Sentry3-MIB::infeedCapacity.1.1 = INTEGER: 20 Amps Sentry3-MIB::infeedCapacity.1.2 = INTEGER: 20 Amps Sentry3-MIB::infeedCapacity.1.3 = INTEGER: 20 Amps Sentry3-MIB::infeedVoltage.1.1 = INTEGER: 2055 tenth Volts Sentry3-MIB::infeedVoltage.1.2 = INTEGER: 2034 tenth Volts Sentry3-MIB::infeedVoltage.1.3 = INTEGER: 2052 tenth Volts Sentry3-MIB::infeedPower.1.1 = INTEGER: 726 Watts Sentry3-MIB::infeedPower.1.2 = INTEGER: 809 Watts Sentry3-MIB::infeedPower.1.3 = INTEGER: 874 Watts Sentry3-MIB::infeedApparentPower.1.1 = INTEGER: 793 Volt-Amps Sentry3-MIB::infeedApparentPower.1.2 = INTEGER: 876 Volt-Amps Sentry3-MIB::infeedApparentPower.1.3 = INTEGER: 941 Volt-Amps Sentry3-MIB::infeedPowerFactor.1.1 = INTEGER: 92 hundredths Sentry3-MIB::infeedPowerFactor.1.2 = INTEGER: 92 hundredths Sentry3-MIB::infeedPowerFactor.1.3 = INTEGER: 93 hundredths Sentry3-MIB::infeedCrestFactor.1.1 = INTEGER: 18 tenths Sentry3-MIB::infeedCrestFactor.1.2 = INTEGER: 17 tenths Sentry3-MIB::infeedCrestFactor.1.3 = INTEGER: 17 tenths Sentry3-MIB::infeedEnergy.1.1 = INTEGER: 762 tenth Kilowatt-Hours Sentry3-MIB::infeedEnergy.1.2 = INTEGER: 913 tenth Kilowatt-Hours Sentry3-MIB::infeedEnergy.1.3 = INTEGER: 928 tenth Kilowatt-Hours Sentry3-MIB::infeedReactance.1.1 = INTEGER: capacitive(1) Sentry3-MIB::infeedReactance.1.2 = INTEGER: capacitive(1) Sentry3-MIB::infeedReactance.1.3 = INTEGER: capacitive(1) Sentry3-MIB::infeedPhaseVoltage.1.1 = INTEGER: 2055 tenth Volts Sentry3-MIB::infeedPhaseVoltage.1.2 = INTEGER: 2034 tenth Volts Sentry3-MIB::infeedPhaseVoltage.1.3 = INTEGER: 2052 tenth Volts Sentry3-MIB::infeedPhaseCurrent.1.1 = INTEGER: 386 hundredth Amps Sentry3-MIB::infeedPhaseCurrent.1.2 = INTEGER: 431 hundredth Amps Sentry3-MIB::infeedPhaseCurrent.1.3 = INTEGER: 459 hundredth Amps Sentry3-MIB::infeedCapacityUsed.1.1 = INTEGER: 358 tenth percentage Sentry3-MIB::infeedCapacityUsed.1.2 = INTEGER: 354 tenth percentage Sentry3-MIB::infeedCapacityUsed.1.3 = INTEGER: 393 tenth percentage Sentry3-MIB::infeedLineID.1.1 = STRING: A:X Sentry3-MIB::infeedLineID.1.2 = STRING: A:Y Sentry3-MIB::infeedLineID.1.3 = STRING: A:Z Sentry3-MIB::infeedLineToLineID.1.1 = STRING: A:X-Y Sentry3-MIB::infeedLineToLineID.1.2 = STRING: A:Y-Z Sentry3-MIB::infeedLineToLineID.1.3 = STRING: A:Z-X Sentry3-MIB::infeedPhaseID.1.1 = STRING: A:X-Y Sentry3-MIB::infeedPhaseID.1.2 = STRING: A:Y-Z Sentry3-MIB::infeedPhaseID.1.3 = STRING: A:Z-X =cut use strict; use Munin::Plugin::SNMP; if (defined $ARGV[0] and $ARGV[0] eq "snmpconf") { print "require 1.3.6.1.4.1.1718.3.2.2.1\n"; exit 0; } my $session = Munin::Plugin::SNMP->session(-translate => [ -timeticks => 0x0 ]); my $sentry_h = $session->get_hash ( -baseoid => ".1.3.6.1.4.1.1718.3.2.2.1", -cols => { # maxcols 16 I guess # 2 => 'infeedID', 3 => 'infeedName', # 4 => 'infeedCapabilities', # 5 => 'infeedStatus', # 6 => 'infeedLoadStatus', 7 => 'infeedLoadValue', 8 => 'infeedLoadHighThresh', # 9 => 'infeedOutletCount', 10 => 'infeedCapacity', # 11 => 'infeedVoltage', # 12 => 'infeedPower', # 13 => 'infeedApparentPower', 14 => 'infeedPowerFactor', 15 => 'infeedCrestFactor', # 16 => 'infeedEnergy', # 17 => 'infeedReactance', # 18 => 'infeedPhaseVoltage', # 19 => 'infeedPhaseCurrent', # 20 => 'infeedCapacityUsed', # 21 => 'infeedLineID', # 22 => 'infeedLineToLineID', # 23 => 'infeedPhaseID', } ); if (defined $ARGV[0] and $ARGV[0] eq "config") { my ($host) = Munin::Plugin::SNMP->config_session(); print "host_name $host\n" unless $host eq 'localhost'; print " multigraph power_amps_drawn graph_title Power Draw in Amps graph_args --lower-limit 0 graph_vlabel Amps graph_category pdu graph_scale no graph_info This shows the amperage drawn on your PDU. Per NEC, a PDU should not sustain 80% of its maximum circuit capacity for more than three hours. "; foreach my $k ( keys %{$sentry_h} ) { my $infeedName = $sentry_h->{$k}->{'infeedName'}; my $critical = ($sentry_h->{$k}->{'infeedCapacity'})*.9; # 90% of capacity my $warning = $sentry_h->{$k}->{'infeedLoadHighThresh'}; # 80% of capacity print "$infeedName.critical $critical\n"; print "$infeedName.draw LINE1\n"; print "$infeedName.label $infeedName\n"; print "$infeedName.min 0\n"; print "$infeedName.type GAUGE\n"; print "$infeedName.warning $warning\n"; } print " multigraph power_power_factor graph_title Power Factor graph_args --lower-limit 0 graph_vlabel Power Factor graph_category pdu graph_scale no graph_info Power factor represents the efficiency of the components connected to the circuit. Power factor declines as components age, increasing the overall load on the circuit. "; foreach my $k ( keys %{$sentry_h} ) { my $infeedName = $sentry_h->{$k}->{'infeedName'}; print "$infeedName.draw LINE1\n"; print "$infeedName.label $infeedName\n"; print "$infeedName.type GAUGE\n"; } print " multigraph power_crest_factor graph_title Crest Factor graph_args --lower-limit 0 graph_vlabel Crest Factor graph_category pdu graph_scale no graph_info Crest factor relates the peak value of a signal to its root mean square value. For three-phase AC, a crest factor of 1.732 is expected. Low crest factor may indicate UPS overclipping and crest factors over 5 degrade monitoring accuracy. "; foreach my $k ( keys %{$sentry_h} ) { my $infeedName = $sentry_h->{$k}->{'infeedName'}; print "$infeedName.draw LINE1\n"; print "$infeedName.label $infeedName\n"; print "$infeedName.type GAUGE\n"; } exit 0; } print "multigraph power_amps_drawn\n"; foreach my $k ( keys %{$sentry_h} ) { my $infeedName = $sentry_h->{$k}->{'infeedName'}; my $amps = $sentry_h->{$k}->{'infeedLoadValue'}; if ( $amps ) { $amps = $amps * .01; } else { $amps = 'U'; } print "$infeedName.value $amps\n"; } print "multigraph power_power_factor\n"; foreach my $k ( keys %{$sentry_h} ) { my $infeedName = $sentry_h->{$k}->{'infeedName'}; my $pf = $sentry_h->{$k}->{'infeedPowerFactor'}; if ( $pf ) { $pf = $pf * .01; } else { $pf = 'U'; } print "$infeedName.value $pf\n"; } print "multigraph power_crest_factor\n"; foreach my $k ( keys %{$sentry_h} ) { my $infeedName = $sentry_h->{$k}->{'infeedName'}; my $crest = $sentry_h->{$k}->{'infeedCrestFactor'}; if ( $crest ) { $crest = $crest * .1; } else { $crest = 'U'; } print "$infeedName.value $crest\n"; }