my $EXITCODE = 'OK';
$SIG{'__DIE__'} = sub {
- print STDERR @_;
+ print @_;
exit $CODE{'UNKNOWN'};
};
};
}
-my $usage = "$PROGRAM_NAME: Usage: $PROGRAM_NAME [--ignore-transfer-speed=<pd> [--ignore-transfer-speed=<pd> ...]]\n";
+my $usage = "$PROGRAM_NAME: Usage: $PROGRAM_NAME [--no-battery] [--ignore-transfer-speed=<pd> [--ignore-transfer-speed=<pd> ...]]\n";
my $params;
Getopt::Long::Configure('bundling');
if (!GetOptions (
'--help' => \$params->{'help'},
+ '--no-battery' => \$params->{'no-battery'},
'--ignore-transfer-speed=s@' => \$params->{'ignore-transfer-speed'},
)) {
die ($usage);
my $status = $2;
push @{$status{$status}}, $system;
if ($status ne 'OK') {
+ next if ($params->{'no-battery'} && $system eq 'Cache');
+ next if ($params->{'no-battery'} && $system eq 'Battery/Capacitor');
record('WARNING');
};
} else {