31 lines
628 B
Perl
Executable file
31 lines
628 B
Perl
Executable file
#!/usr/bin/perl -T
|
|
# (c) 1996-2010 Wolfram Schneider. Public domain.
|
|
#
|
|
# FreeBSD WWW mirror redirect
|
|
#
|
|
|
|
use CGI;
|
|
use strict;
|
|
use warnings;
|
|
|
|
my $debug = 1;
|
|
my $master_url = 'http://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);
|
|
|