===================================================================
RCS file: /cvs/cvsweb/cvsweb.cgi,v
retrieving revision 4.26
retrieving revision 4.27
diff -u -p -r4.26 -r4.27
--- cvsweb/cvsweb.cgi	2019/11/26 12:04:55	4.26
+++ cvsweb/cvsweb.cgi	2019/11/26 12:09:02	4.27
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: cvsweb.cgi,v 4.26 2019/11/26 12:04:55 schwarze Exp $
+# $Id: cvsweb.cgi,v 4.27 2019/11/26 12:09:02 schwarze Exp $
 # $knu: cvsweb.cgi,v 1.299 2010/11/13 16:37:18 simon
 #
 # cvsweb - a CGI interface to CVS trees.
@@ -57,7 +57,7 @@ use vars qw (
   $VERSION $CheckoutMagic $MimeTypes $DEBUG
   $config $allow_version_select
   @CVSrepositories @CVSROOT %CVSROOT %CVSROOTdescr
-  %MIRRORS %DEFAULTVALUE %ICONS %MTYPES
+  %DEFAULTVALUE %ICONS %MTYPES
   %DIFF_COMMANDS @DIFFTYPES %DIFFTYPES @LOGSORTKEYS %LOGSORTKEYS
   %alltags %fileinfo %tags @branchnames %nameprinted
   %symrev %revsym @allrevisions %date %author @revdisplayorder
@@ -167,7 +167,6 @@ sub plural_write($$);
 sub readableTime($$);
 sub clickablePath($$);
 sub chooseCVSRoot();
-sub chooseMirror();
 sub fileSortCmp();
 sub download_url($$;$);
 sub download_link($$$;$);
@@ -195,7 +194,7 @@ $config = '/conf/cvsweb/cvsweb.conf';
 
 ######## Configuration parameters #########
 
-@CVSrepositories = @CVSROOT = %CVSROOT = %MIRRORS = %DEFAULTVALUE = %ICONS =
+@CVSrepositories = @CVSROOT = %CVSROOT = %DEFAULTVALUE = %ICONS =
   %MTYPES = %tags = %alltags = %fileinfo = %DIFF_COMMANDS = ();
 
 $logo = $defaulttitle =
@@ -788,9 +787,7 @@ if (-d $fullname) {
 
   # give direct access to dirs
   if ($where eq '/') {
-    chooseMirror();
     chooseCVSRoot();
-
   } else {
     print '<p>Current directory: <b>', clickablePath($where, 0), '</b>';
     print "</p>\n";
@@ -3479,27 +3476,6 @@ Module path or alias:
 </p>
 </form>
 EOF
-}
-
-
-sub chooseMirror()
-{
-  # This code comes from the original BSD-cvsweb
-  # and may not be useful for your site; If you don't
-  # set %MIRRORS this won't show up, anyway.
-  scalar(%MIRRORS) or return;
-
-  # Should perhaps exclude the current site somehow...
-  print "\n<p>\nThis CVSweb is mirrored in\n";
-
-  my @tmp = map(&link(htmlquote($_), $MIRRORS{$_}), sort keys %MIRRORS);
-  my $tmp = pop (@tmp);
-
-  if (scalar(@tmp)) {
-    print join (', ', @tmp), ' and ';
-  }
-
-  print "$tmp.\n</p>\n";
 }