rsync now adds thousands separator on its numbers

[mirror/dsa-nagios.git] / dsa-nagios-checks / checks / dsa-check-dabackup

diff --git a/dsa-nagios-checks/checks/dsa-check-dabackup b/dsa-nagios-checks/checks/dsa-check-dabackup
index 6ce30b2..8bc56f5 100755 (executable)
--- a/dsa-nagios-checks/checks/dsa-check-dabackup
+++ b/dsa-nagios-checks/checks/dsa-check-dabackup
@@ -69,8 +69,8 @@ my $params = {};
 Getopt::Long::config('bundling');
 if (!GetOptions (
        'h|help'        =>  \$params->{'help'},
-        'f|fresh=i'    =>  \$TOO_FRESH,
-        'm|maxage=i'    =>  \$MAX_AGE,
+       'f|fresh=i'     =>  \$TOO_FRESH,
+       'm|maxage=i'    =>  \$MAX_AGE,
        )) {
        die ("$PROGRAM_NAME: Usage: $PROGRAM_NAME [-fwhv]\n");
 };
@@ -165,7 +165,7 @@ for my $f (sort {$a cmp $b} keys %logfiles) {
        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;