diff options
| author | Wolfram Schneider <wosch@FreeBSD.org> | 2023-01-26 15:58:29 +0000 |
|---|---|---|
| committer | Wolfram Schneider <wosch@FreeBSD.org> | 2023-01-26 15:58:29 +0000 |
| commit | 8f102841b88bb6d4b8c3ede972e9677b2466823e (patch) | |
| tree | a1c23a33def8d6c95a255daf03f86a373e19981b | |
| parent | 895e8124e600edcf46e8368d62d186efde044338 (diff) | |
| download | doc-8f102841b88bb6d4b8c3ede972e9677b2466823e.tar.gz doc-8f102841b88bb6d4b8c3ede972e9677b2466823e.zip | |
remove stale /cgi/mirror.cgi script
PR: 268826
| -rwxr-xr-x | website/content/en/cgi/mirror.cgi | 32 |
1 files changed, 0 insertions, 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); - |