my ($exitcode, $fd) = @_;
version ($fd, 0);
print $fd "Usage: $PROGRAM_NAME --help\n";
- print $fd "Usage: $PROGRAM_NAME";
+ print $fd "Usage: $PROGRAM_NAME [--fresh <minseconds>] [--maxage <seconds>]";
exit $exitcode
};
Getopt::Long::config('bundling');
if (!GetOptions (
'h|help' => \$params->{'help'},
+ 'f|fresh=i' => \$TOO_FRESH,
+ 'm|maxage=i' => \$MAX_AGE,
)) {
die ("$PROGRAM_NAME: Usage: $PROGRAM_NAME [-fwhv]\n");
};
my $last = '';
while (<FH>) {
chomp;
- if (/^sent\s+\d+\s+bytes\s+received\s+\d+\s+bytes\s+[\d\.]+\s+bytes\/sec$/) {
+ if (/^sent\s+[\d,]+\s+bytes\s+received\s+[\d,]+\s+bytes\s+[\d,\.]+\s+bytes\/sec$/) {
problem('OK', 'probably ok', $f);
close(FH);
next FILE;