From 1f3669290d89e34640a423194b679b8343b822b6 Mon Sep 17 00:00:00 2001
From: Peter Palfrader <peter@palfrader.org>
Date: Thu, 12 Aug 2010 13:46:42 +0200
Subject: [PATCH] dsa-check-hpacucli add --ignore-transfer-speed option

---
 dsa-nagios-checks/checks/dsa-check-hpacucli | 22 +++++++++++++++++++++
 dsa-nagios-checks/debian/changelog          |  3 ++-
 2 files changed, 24 insertions(+), 1 deletion(-)

diff --git a/dsa-nagios-checks/checks/dsa-check-hpacucli b/dsa-nagios-checks/checks/dsa-check-hpacucli
index 52e0ebb..bf2fb17 100755
--- 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
--- 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
 
-- 
2.20.1