You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
17 lines
385 B
Perl
17 lines
385 B
Perl
#!/usr/bin/perl
|
|
# (c) Wolfram Schneider, Berlin. June 1996. Public domain.
|
|
#
|
|
# FreeBSD WWW mirror redirect
|
|
#
|
|
# $Id: mirror.cgi,v 1.1.1.1 1996-09-24 17:45:57 jfieber Exp $
|
|
|
|
$_ = $ENV{'QUERY_STRING'};
|
|
|
|
s/^[^=]+=//; # 'variable=value' -> 'value'
|
|
s/\+/ /g; # '+' -> space
|
|
s/%(..)/pack("c",hex($1))/ge; # '%ab' -> char ab
|
|
|
|
print "Location: $_\nContent-type: text/plain\n\n";
|
|
|
|
exit 0;
|