From 16db57b0d5eabfddda72405d5462012e35ee672e Mon Sep 17 00:00:00 2001 From: Andrew Dunstan Date: Fri, 15 Oct 2010 20:47:12 +0000 Subject: [PATCH] refuse snapshots older than 10 days --- cgi-bin/pgstatus.pl | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/cgi-bin/pgstatus.pl b/cgi-bin/pgstatus.pl index c1da0a9..f951aee 100755 --- a/cgi-bin/pgstatus.pl +++ b/cgi-bin/pgstatus.pl @@ -19,6 +19,7 @@ use DBD::Pg; use Data::Dumper; use Mail::Send; use Safe; +use Time::ParseDate; require "$ENV{BFConfDir}/BuildFarmWeb.pl"; @@ -150,6 +151,19 @@ if ($calc_sig ne $sig && $calc_sig2 ne $sig) map {tr/$@/+=/; $_ = decode_base64($_); } ($log, $conf,$changed_this_run,$changed_since_success,$log_archive); + +if ($log =~/Last file mtime in snapshot: (.*)/) +{ + my $snaptime = parsedate($1); + if ($snaptime < (time - (10 * 86400))) + { + print "Status: 493 snapshot too old: $1\nContent-Type: text/plain\n\n"; + print "snapshot to old: $1\n"; + $db->disconnect; + exit; + } +} + ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime($ts); $year += 1900; $mon +=1; my $dbdate= -- 2.30.2