reject invalid branch specs

diff --git a/cgi-bin/pgstatus.pl b/cgi-bin/pgstatus.pl
index 373d4f6b755e96acccef7aa42aaf7f9440d90c3c..8cafc4c8e5c7f80764dbab6a908b746f723c2c8b 100755 (executable)
--- a/cgi-bin/pgstatus.pl
+++ b/cgi-bin/pgstatus.pl
@@ -62,6 +62,15 @@ unless ($animal && $ts && $stage && $sig)
        
 }
 
+unless ($branch =~ /^(HEAD|REL\d+_\d+_STABLE)$/)
+{
+        print
+            "Status: 492 bad branch parameter $branch\nContent-Type: text/plain\n\n",
+            "bad branch parameter $branch\n";
+        exit;
+
+}
+
 
 my $db = DBI->connect($dsn,$dbuser,$dbpass);