home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Internet 1996 World Exposition
/
park.org.s3.amazonaws.com.7z
/
park.org.s3.amazonaws.com
/
cgi-bin
/
switch_high.pl
< prev
next >
Wrap
Perl Script
|
2017-09-21
|
346b
|
16 lines
#!/usr/local/bin/perl
$highband_main = "main.html";
$referer = $ENV{'HTTP_REFERER'};
if ($referer =~ /^http:\/\/([^\/]*)\/main.text.html/) {
$result = substr($referer, 0, rindex($referer, '/') + 1);
$result = $result.$highband_main;
}
else {
$result = substr($referer, 0, rindex($referer, '/') + 1);
}
print "Location: $result\n\n";