os/doc
3
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Make calling this script obliterate any existing frames in Netscrape.

Browse source
This commit is contained in:
John Fieber 1996-10-01 18:59:10 +00:00
parent b92ea61da2
commit a1e7f7b814
Notes: svn2git 2020-12-08 03:00:23 +00:00 
svn path=/www/; revision=567
2 changed files with 8 additions and 4 deletions
data/cgi
mirror.cgi
en/cgi
mirror.cgi

6
data/cgi/mirror.cgi
View file

@ -3,7 +3,7 @@
#
# FreeBSD WWW mirror redirect
#
# $Id: mirror.cgi,v 1.1.1.1 1996-09-24 17:45:57 jfieber Exp $
# $Id: mirror.cgi,v 1.2 1996-10-01 18:59:10 jfieber Exp $
$_ = $ENV{'QUERY_STRING'};
@ -11,6 +11,8 @@ s/^[^=]+=//; # 'variable=value' -> 'value'
s/\+/ /g; # '+' -> space
s/%(..)/pack("c",hex($1))/ge; # '%ab' -> char ab
print "Location: $_\nContent-type: text/plain\n\n";
print "Window-target: _top\n";
print "Location: $_\n";
print "Content-type: text/plain\n\n";
exit 0;

6
en/cgi/mirror.cgi
View file

@ -3,7 +3,7 @@
#
# FreeBSD WWW mirror redirect
#
# $Id: mirror.cgi,v 1.1.1.1 1996-09-24 17:45:57 jfieber Exp $
# $Id: mirror.cgi,v 1.2 1996-10-01 18:59:10 jfieber Exp $
$_ = $ENV{'QUERY_STRING'};
@ -11,6 +11,8 @@ s/^[^=]+=//; # 'variable=value' -> 'value'
s/\+/ /g; # '+' -> space
s/%(..)/pack("c",hex($1))/ge; # '%ab' -> char ab
print "Location: $_\nContent-type: text/plain\n\n";
print "Window-target: _top\n";
print "Location: $_\n";
print "Content-type: text/plain\n\n";
exit 0;