Also count info
authorPeter Palfrader <peter@palfrader.org>
Wed, 16 Dec 2009 14:30:33 +0000 (15:30 +0100)
committerPeter Palfrader <peter@palfrader.org>
Wed, 16 Dec 2009 14:30:33 +0000 (15:30 +0100)
dsa-nagios-checks/checks/dsa-check-msa-eventlog

index dff9648..9e9589f 100755 (executable)
@@ -119,12 +119,13 @@ for my $key (keys %$r) {
 
 my $exit = 0;
 my $res = '';
-my %num = ('warn' => 0, 'error' => 0);
+my %num = ('warn' => 0, 'error' => 0, 'info' => 0);
 
 for my $idx (sort {$a <=> $b} keys %{$data{'severity'}}) {
        my $sev = $snmp_severity{$data{'severity'}->{$idx}};
        die("Unexpected severity $data{'severity'}->{$idx}\n") unless $sev;
        my $sevint = $severity_int{$sev};
+       $num{$sev}++;
        if ($sevint > 0) {
                my $msg = $data{'message'}->{$idx};
                next if grep {$_ eq $msg} @ignores;
@@ -136,12 +137,10 @@ for my $idx (sort {$a <=> $b} keys %{$data{'severity'}}) {
                        $idx,
                        $data{'timestamp'}->{$idx},
                        $msg;
-
-               $num{$sev}++;
        };
 };
 
-printf "Event Log: %d warnings, %d errors\n", $num{'warn'}, $num{'error'};
+printf "Event Log: %d info, %d warnings, %d errors\n", $num{'info'}, $num{'warn'}, $num{'error'};
 print $res;
 exit $exit;