git: 8f102841b8 - main - remove stale /cgi/mirror.cgi script PR: 268826

The branch main has been updated by wosch:

URL: https://cgit.FreeBSD.org/doc/commit/?id=8f102841b88bb6d4b8c3ede972e9677b2466823e

commit 8f102841b88bb6d4b8c3ede972e9677b2466823e
Author:     Wolfram Schneider <wosch@FreeBSD.org>
AuthorDate: 2023-01-26 15:58:29 +0000
Commit:     Wolfram Schneider <wosch@FreeBSD.org>
CommitDate: 2023-01-26 15:58:29 +0000

    remove stale /cgi/mirror.cgi script
    PR:             268826
---
 website/content/en/cgi/mirror.cgi | 32 --------------------------------
 1 file changed, 32 deletions(-)

diff --git a/website/content/en/cgi/mirror.cgi b/website/content/en/cgi/mirror.cgi
deleted file mode 100755
index 43bfd38ea6..0000000000
--- a/website/content/en/cgi/mirror.cgi
+++ /dev/null
@@ -1,32 +0,0 @@
-#!/usr/bin/perl -T
-# (c) 1996-2011 Wolfram Schneider. Public domain.
-#
-# FreeBSD WWW mirror redirect
-#
-# $FreeBSD$
-
-use CGI;
-use strict;
-use warnings;
-
-my $debug      = 1;
-my $master_url = 'https://www.freebsd.org/';
-
-my $q = new CGI;
-my $url = $q->param('goto') || "";
-
-if (   $url =~ m,^http://[a-z0-9\.]+\.freebsd\.org/?$,i
-    || $url =~ m,^http://[a-z0-9\.]+\.freebsd\.org/www\.FreeBSD\.org/(data)?$,i
-    || $url =~ m,^http://(freebsd\.unixtech\.be|www\.gufi\.org/mirrors/www.freebsd.org/data)/$,i
-  )
-{
-    # ok
-}
-
-else {
-    warn "Ignore illegal redirect URL: $url\n" if $debug;
-    $url = $master_url;
-}
-
-print $q->redirect($url);
-