38df6f51c6
Yes, this is supposed to be a new top level in the repository. For the moment any changes to this area must be cleared by myself or Jordan. Once the kinks are worked out, the policy will probably be relaxed.
16 lines
385 B
Perl
Executable file
16 lines
385 B
Perl
Executable file
#!/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;
|