From 0e634e481377a5cd866b13bd96494fc608949f2b Mon Sep 17 00:00:00 2001 From: Daniel Howard Date: Mon, 25 Aug 2014 11:13:40 -0700 Subject: [PATCH 1/2] Initial commit of snmp__sentry. --- plugins/snmp/snmp__sentry | 240 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 240 insertions(+) create mode 100755 plugins/snmp/snmp__sentry diff --git a/plugins/snmp/snmp__sentry b/plugins/snmp/snmp__sentry new file mode 100755 index 00000000..a8f19f43 --- /dev/null +++ b/plugins/snmp/snmp__sentry @@ -0,0 +1,240 @@ +#!/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 power +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 power +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 power +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"; +} From cde66ba4994fa45572db6ff8c11658c94b2ae95e Mon Sep 17 00:00:00 2001 From: Daniel Howard Date: Mon, 25 Aug 2014 13:25:39 -0700 Subject: [PATCH 2/2] Fix whitespace. --- plugins/snmp/snmp__sentry | 58 +++++++++++++++++++-------------------- 1 file changed, 29 insertions(+), 29 deletions(-) diff --git a/plugins/snmp/snmp__sentry b/plugins/snmp/snmp__sentry index a8f19f43..b19331f9 100755 --- a/plugins/snmp/snmp__sentry +++ b/plugins/snmp/snmp__sentry @@ -137,8 +137,8 @@ my $sentry_h = $session->get_hash ( 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 " + 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 @@ -149,18 +149,18 @@ graph_info This shows the amperage drawn on your PDU. Per NEC, a PDU should not "; -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"; -} + 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 @@ -173,13 +173,13 @@ graph_info Power factor represents the efficiency of the components connected to "; -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"; -} + 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 @@ -192,15 +192,15 @@ graph_info Crest factor relates the peak value of a signal to its root mean squa "; -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"; -} + 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; + exit 0; } print "multigraph power_amps_drawn\n";