Fix and extend the tree validation code at entry of web_paths().

Michael

git-svn-id: file:///home/svn/build-farm/trunk@700 1e5ffdc8-eadd-0310-9daa-9cb4117fe24b

diff --git a/web/history.pm b/web/history.pm
index 4449d905d5da0ba42c74d96c18c01c7184cfa7fb..f66a0e2046c195e021194553112362833258ba0e 100644 (file)
--- a/web/history.pm
+++ b/web/history.pm
@@ -242,7 +242,7 @@ sub diff($$$$$)
     my ($author, $date, $tree, $revision, $text_html) = @_;
 
     # validate the tree
-    util::InArray($tree, [keys %cvs_trees, keys %svn_trees, keys %bzr_trees]);
+    util::InArray($tree, [keys %cvs_trees, keys %svn_trees, keys %bzr_trees, keys %git_trees]) || fatal("unknown tree");
 
     chdir("$unpacked_dir/$tree") || fatal("no tree $unpacked_dir/$tree available");