use strict;
use English;
use Getopt::Long;
-use POSIX qw(uname);
# nagios exit codes
my %CODE = (
my $EXITCODE = 'OK';
$SIG{'__DIE__'} = sub {
- print STDERR @_;
+ print @_;
exit $CODE{'UNKNOWN'};
};
sub runcmd($) {
my ($cmd) = @_;
- my ($os, $host, $kernel, $date, $arch) = uname();
- if ($kernel =~ m/^3(.*)/) {
- $cmd = "sudo setarch x86_64 --uname-2.6 hpacucli $cmd";
- } else {
- $cmd = "sudo hpacucli $cmd";
- }
+ $cmd = "sudo hpacucli $cmd";
open(FH, $cmd."|") or die ("Cannot run $cmd: $!");
my @lines = <FH>;
close FH;
record('WARNING');
push @{$status{'unknown transfer speed'}}, $drive;
} elsif (ref($expected) eq 'ARRAY') {
- if (scalar(grep { $value{$key} eq $_ } @$expected) == 0) {
+ if (scalar(grep { uc($value{$key}) eq uc($_) } @$expected) == 0) {
record('WARNING');
push @{$status{'bad transfer speed'}}, $drive."(".$value{$key}.")";
};
- } elsif ($value{$key} ne $expected) {
+ } elsif (uc($value{$key}) ne uc($expected)) {
record('WARNING');
push @{$status{'bad transfer speed'}}, $drive."(".$value{$key}.")";
};