dsa-check-hpacucli add --ignore-transfer-speed option

diff --git a/dsa-nagios-checks/checks/dsa-check-hpacucli b/dsa-nagios-checks/checks/dsa-check-hpacucli
index 52e0ebb..bf2fb17 100755 (executable)
--- a/dsa-nagios-checks/checks/dsa-check-hpacucli
+++ b/dsa-nagios-checks/checks/dsa-check-hpacucli
@@ -27,6 +27,8 @@
 # WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 use strict;
+use English;
+use Getopt::Long;
 
 # nagios exit codes
 my %CODE = (
@@ -62,6 +64,20 @@ sub record($) {
        };
 }
 
+my $usage = "$PROGRAM_NAME: Usage: $PROGRAM_NAME [--ignore-transfer-speed=<pd> [--ignore-transfer-speed=<pd> ...]]\n";
+my $params;
+Getopt::Long::Configure('bundling');
+if (!GetOptions (
+       '--help'                      => \$params->{'help'},
+       '--ignore-transfer-speed=s@'  => \$params->{'ignore-transfer-speed'},
+       )) {
+       die ($usage);
+};
+if ($params->{'help'}) {
+       print $usage;
+       exit (0);
+};
+die ($usage) unless (scalar @ARGV == 0);
 
 my $ctrlallshow = runcmd("controller all show");
 my @controllers;
@@ -186,6 +202,12 @@ for my $slot (sort @controllers) {
                        next;
                }
 
+               if (exists $params->{'ignore-transfer-speed'}) {
+                       if (grep { $drive eq $_ } @{$params->{'ignore-transfer-speed'}}) {
+                               push @{$status{'ignored transfer speed'}}, $drive."(".$value{$key}.")";
+                       };
+                       next;
+               };
                if (!defined $value{$key}) {
                        record('WARNING');
                        push @{$status{'unknown transfer speed'}}, $drive;

diff --git a/dsa-nagios-checks/debian/changelog b/dsa-nagios-checks/debian/changelog
index f408120..a1e4699 100644 (file)
--- a/dsa-nagios-checks/debian/changelog
+++ b/dsa-nagios-checks/debian/changelog
@@ -2,8 +2,9 @@ dsa-nagios-checks (88) unstable; urgency=low
 
   * dsa-check-hpacucli: Also accept 'Unknown, 3.0GBPS' as a valid
     transfer speed in addition to '3.0GBPS, Unknown'.
+  * dsa-check-hpacucli add --ignore-transfer-speed option.
 
- -- Peter Palfrader <weasel@debian.org>  Thu, 12 Aug 2010 13:35:10 +0200
+ -- Peter Palfrader <weasel@debian.org>  Thu, 12 Aug 2010 13:46:22 +0200
 
 dsa-nagios-checks (87) unstable; urgency=low