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