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";