X-Git-Url: https://git.adam-barratt.org.uk/?a=blobdiff_plain;ds=sidebyside;f=dsa-nagios-nrpe-config%2Fdsa-check-dabackup;h=f400023b11dc83ba1ba6e350d328f0b563001ca0;hb=3a428f4d446804f303f626fb1ce25265a960f6e5;hp=98d2d9eb8a2f8bf866bfedb4f608648b3fbad946;hpb=02f5bd5b8b1cac546feda2cb2542400449173dbd;p=mirror%2Fdsa-nagios.git

diff --git a/dsa-nagios-nrpe-config/dsa-check-dabackup b/dsa-nagios-nrpe-config/dsa-check-dabackup
index 98d2d9e..f400023 100755
--- 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;