[project @ steve@lobefin.net-20090220020630-8k0anuy6jox1goe6]

[mirror/dsa-nagios.git] / dsa-nagios-nrpe-config / dsa-check-dabackup

diff --git a/dsa-nagios-nrpe-config/dsa-check-dabackup b/dsa-nagios-nrpe-config/dsa-check-dabackup
index 98d2d9e..f400023 100755 (executable)
--- a/dsa-nagios-nrpe-config/dsa-check-dabackup
+++ b/dsa-nagios-nrpe-config/dsa-check-dabackup
@@ -30,7 +30,8 @@ use Getopt::Long;
 use Fcntl qw(:seek);
 
 my $DABACKUP_CONF = '/etc/da-backup.conf';
-my $MAX_AGE = 24*60*60;
+my $MAX_AGE = 30*60*60;
+my $TOO_FRESH = 5*60;
 my %CODE = (
        'UNDEF'         => -1,
        'OK'            => 0,
@@ -132,6 +133,15 @@ for my $f (sort {$a cmp $b} keys %logfiles) {
 
        my @stat = stat("$logdir/$f") or die ("Cannot stat $logdir/$f: $!\n");
        my $age = time - $stat[10];
+
+       if ($age < $TOO_FRESH) { # File is too new, let's use the old one
+               if (-e "$logdir/$f.0") {
+                       $f .= ".0";
+                       my @stat = stat("$logdir/$f") or die ("Cannot stat $logdir/$f: $!\n");
+                       $age = time - $stat[10];
+               };
+       };
+
        if ($age < 0) {
                problem('WARNING', 'future timestamp', $f);
                next;