X-Git-Url: https://git.adam-barratt.org.uk/?a=blobdiff_plain;f=dsa-nagios-nrpe-config%2Fdsa-check-hpacucli;h=a34738897ac81903992fd2c34e983426310c4e95;hb=f8a07ee22a749cd23a0ae76447400d10f3d6c36f;hp=2bc260ae1651d83d128c595974b448c703d13bba;hpb=e58155ec3e7428265f8ba5bb223c33440ede356f;p=mirror%2Fdsa-nagios.git

diff --git a/dsa-nagios-nrpe-config/dsa-check-hpacucli b/dsa-nagios-nrpe-config/dsa-check-hpacucli
index 2bc260a..a347388 100755
--- a/dsa-nagios-nrpe-config/dsa-check-hpacucli
+++ b/dsa-nagios-nrpe-config/dsa-check-hpacucli
@@ -90,9 +90,12 @@ for my $slot (sort @controllers) {
 	for (@$pds) {
 		chomp;
 		next if /^$/;
-		next if /^ *array [A-Z]$/;
 		next if (/^\S.*in Slot $slot/);
-		if (/^Error: The specified controller does not have any physical drives on it.$/) {
+		next if /^ *array [A-Z]$/;
+		if (/^ *(array [A-Z]) \(Failed\)$/) {
+			record('CRITICAL');
+			push @{$status{'Failed'}}, $1;
+		} elsif (/^Error: The specified controller does not have any physical drives on it.$/) {
 			$nodrives = 1;
 		} elsif (/^ *physicaldrive (\S+) .* (OK|Predictive Failure|Failed|Rebuilding)(?:, spare)?\)$/) {
 			my $drive = $1;
@@ -116,6 +119,8 @@ for my $slot (sort @controllers) {
 	# Check that all drives have the proper transfer speed.
 	# sometimes stuff breaks and they fall back to 10mb/sec.
 	for my $drive (@drives) {
+		# skip drives that are known to have failed
+		next if (exists $status{'Failed'} && grep {$drive eq $_} @{$status{'Failed'}});
 		my $type;
 		if ($drive =~ /^[0-9]+:[0-9]+$/) { # scsi drives
 			$type = 'SCSI';
@@ -143,10 +148,26 @@ for my $slot (sort @controllers) {
 		my $expected;
 		if ($type eq 'SCSI') {
 			$key = 'Transfer Speed';
-			$expected = '320 MB/Sec';
+			if (!defined $value{'Transfer Mode'}) {
+				record('WARNING');
+				push @{$status{'unknown transfer mode'}}, $drive;
+				next;
+			} elsif ($value{'Transfer Mode'} eq 'Ultra 3 Wide') {
+				$expected = '160 MB/Sec';
+			} elsif ($value{'Transfer Mode'} eq 'Ultra 320 Wide') {
+				$expected = '320 MB/Sec';
+			} else {
+				record('WARNING');
+				push @{$status{'unknown transfer mode'}}, $drive."(".$value{'Transfer Mode'}.")";
+				next;
+			};
 		} elsif ($type eq 'SAS') {
 			$key = 'PHY Transfer Rate';
-			$expected = '3.0GBPS';
+			if ($value{'PHY Count'} eq '2') {
+				$expected = '3.0GBPS, Unknown';
+			} else {
+				$expected = '3.0GBPS';
+			}
 		} else {
 			warn "Should not be here.  Do not know what to do with type '$type'\n";
 			next;