munin: Fix fan speed limits of hpasmcli2 plugin.
[matthijs/servers/drsnuggles.git] / etc / munin / plugins / hpasmcli2_fans
index c768cb7a715e3e5c1863c42bdcebc156c405a5cd..8ac45b019f9a4964de129548ab9f28b40ef3c984 100755 (executable)
@@ -131,6 +131,7 @@ if (defined($show_target) and $show_target eq 'temp') {
             $line =~ s/^\s//g;
             my ($fan, $loc, $present, $speed, $rate, $redundant, $partner, $pluggable) = split(/\s/, $line);
             next if ($present ne "Yes");
+            next if ($rate eq "N/A");
             $loc =~ s/\/|#//g;
             $rate =~ s/\%//g;
             my $threshold = '100';
@@ -150,8 +151,8 @@ if (defined($show_target) and $show_target eq 'temp') {
         print "graph_info This graph shows the info of fans as reported by hpasmcli.\n";
         foreach my $key (sort keys %output) {
             print "fan$key.label FAN$key $output{$key}->{'location'}\n";
-            print "fan$key.warning " . ($output{$key}->{'threshold'} * 0.75) . "\n";
-            print "fan$key.critical $output{$key}->{'threshold'}\n";
+            print "fan$key.warning " . ($output{$key}->{'threshold'} * 0.75) .  ":\n";
+            print "fan$key.critical " . ($output{$key}->{'threshold'} * 0.5) .  ":\n";
         }
     } else {
         foreach my $key (sort keys %output) {