Verify that the given cvsroot is actually in our repository list.

Bug #261616 r=timeless

webtools/bonsai/cvsquery.cgi

@@ -48,6 +48,8 @@ require 'CGI.pl';
 
 $::CVS_ROOT = $::FORM{'cvsroot'};
 $::CVS_ROOT = pickDefaultRepository() unless $::CVS_ROOT;
+&validateRepository($::CVS_ROOT);
+
 $::TreeID = $::FORM{'module'} 
      if (!exists($::FORM{'treeid'}) && 
          exists($::FORM{'module'}) &&

webtools/bonsai/cvsqueryform.cgi

@@ -34,6 +34,8 @@ print "Content-type: text/html\n\n";
 LoadTreeConfig();
 $::CVS_ROOT = $::FORM{'cvsroot'};
 $::CVS_ROOT = pickDefaultRepository() unless $::CVS_ROOT;
+&validateRepository($::CVS_ROOT);
+
 if (exists $::FORM{'module'}) {
     if (exists($::TreeInfo{$::FORM{'module'}}{'repository'})) {
         $::TreeID = $::FORM{'module'} 

webtools/bonsai/cvsview2.cgi

@@ -177,6 +177,7 @@ $rcsdiff .= ' -w' if ($opt_whitespace_mode eq 'ignore');
 my $root = $opt_root;
 if (defined $root && $root ne '') {
     $root =~ s|/$||;
+    &validateRepository($root);
     if (-d $root) {
         unshift(@SRCROOTS, $root);
     } else {

webtools/bonsai/moduleanalyse.cgi

@@ -43,6 +43,7 @@ print "Content-type: text/html\n\n";
 
 my $CVS_ROOT = $::FORM{'cvsroot'};
 $CVS_ROOT = pickDefaultRepository() unless $CVS_ROOT;
+&validateRepository($CVS_ROOT);
 
 PutsHeader("CVS Module Analyzer", $CVS_ROOT);
 

webtools/bonsai/modules.pl

@@ -31,6 +31,7 @@ $::modules = {};
 if( $::CVS_ROOT eq "" ){
     $::CVS_ROOT = pickDefaultRepository();
 }
+&validateRepository($::CVS_ROOT);
 
 my $CVS_MODULES;
 

webtools/bonsai/multidiff.cgi

@@ -60,6 +60,7 @@ if( $form{"cvsroot"} ){
 else {
     $cvsroot = pickDefaultRepository();
 }
+&validateRespository($cvsroot);
 
 if( $form{"allchanges"} ){
     @revs = split(/,/, $form{"allchanges"} );

webtools/bonsai/rview.cgi

@@ -42,6 +42,7 @@ $|=1;
 
 my $CVS_ROOT = $::FORM{"cvsroot"};
 $CVS_ROOT = pickDefaultRepository() unless $CVS_ROOT;
+&validateRepository($CVS_ROOT);
 
 LoadTreeConfig();
 $::TreeID = $::FORM{'module'} 
@@ -75,13 +76,6 @@ my $script_str;
 &setup_script;
 $::Setup_String = $script_str;
 
-
-if( $CVS_ROOT eq ""  ){
-    $CVS_ROOT = pickDefaultRepository();
-}
-
-validateRepository($CVS_ROOT);
-
 my $s = "";
 
 if ($rev) {