projects
/
mirror
/
dsa-nagios.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ peter@palfrader.org-20090303201249-z9se72s4eumz3du1]
[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';
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,
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];
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;
if ($age < 0) {
problem('WARNING', 'future timestamp', $f);
next;