18 lines
422 B
Perl
Executable file
18 lines
422 B
Perl
Executable file
#!/usr/bin/perl
|
|
# (c) Wolfram Schneider, Berlin. June 1996. Public domain.
|
|
#
|
|
# FreeBSD WWW mirror redirect
|
|
#
|
|
# $Id: mirror.cgi,v 1.2 1996-10-01 18:59:10 jfieber Exp $
|
|
|
|
$_ = $ENV{'QUERY_STRING'};
|
|
|
|
s/^[^=]+=//; # 'variable=value' -> 'value'
|
|
s/\+/ /g; # '+' -> space
|
|
s/%(..)/pack("c",hex($1))/ge; # '%ab' -> char ab
|
|
|
|
print "Window-target: _top\n";
|
|
print "Location: $_\n";
|
|
print "Content-type: text/plain\n\n";
|
|
|
|
exit 0;
|