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 >
Perl Script  |  2017-09-21  |  346b  |  16 lines
  1. #!/usr/local/bin/perl
  2.  
  3. $highband_main = "main.html";
  4.  
  5. $referer = $ENV{'HTTP_REFERER'};
  6.  
  7. if ($referer =~ /^http:\/\/([^\/]*)\/main.text.html/) {
  8.    $result = substr($referer, 0, rindex($referer, '/') + 1);
  9.    $result = $result.$highband_main;
  10. }
  11. else {
  12.    $result = substr($referer, 0, rindex($referer, '/') + 1);
  13. }
  14.  
  15. print "Location: $result\n\n";
  16.