From: Andrew Dunstan <andrew@dunslane.net>
Date: Wed, 14 Dec 2011 22:38:44 +0000 (-0800)
Subject: Use git snapshot instead of fixed 10 day timeout.
X-Git-Url: https://git.exim.org/buildfarm-server.git/commitdiff_plain/a8b5049e64f9cb08f8e165d0737139dab74e3bce

Use git snapshot instead of fixed 10 day timeout.

The sanity checks made sure that an animal wasn't submitting a
snapshot that was too old. But sometimes an old branch doesn't
get any changes for more than 10 days. So accept a snapshot that
is not more than 1 day older than the last known snapshot. Per
complaint from Stefan.
---

diff --git a/cgi-bin/pgstatus.pl b/cgi-bin/pgstatus.pl
index 742732a..57a60ed 100755
--- a/cgi-bin/pgstatus.pl
+++ b/cgi-bin/pgstatus.pl
@@ -14,7 +14,7 @@ use vars qw($dbhost $dbname $dbuser $dbpass $dbport
        $all_stat $fail_stat $change_stat $green_stat
        $server_time
 	   $min_script_version $min_web_script_version
-       $default_host
+       $default_host $local_git_clone
 );
 
 # force this before we do anything - even load modules
@@ -182,7 +182,10 @@ map {tr/$@/+=/; $_ = decode_base64($_); }
 if ($log =~/Last file mtime in snapshot: (.*)/)
 {
     my $snaptime = parsedate($1);
-    if ($snaptime < (time - (10 * 86400)))
+    my $brch = $branch eq 'HEAD' ? 'master' : $branch;
+    my $last_branch_time = time - (30 * 86400);
+    $last_branch_time = `TZ=UTC GIT_DIR=$local_git_clone git log -1 --pretty=format:\%ct  $brch`;
+    if ($snaptime < ($last_branch_time - 86400))
     {
 	print "Status: 493 snapshot too old: $1\nContent-Type: text/plain\n\n";
 	print "snapshot to old: $1\n";