home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / cgi-bin / Japan / xdmredir < prev   
Text File  |  2017-09-21  |  426b  |  32 lines
  1. #!/usr/local/bin/perl
  2. #
  3. # streamworks server redirector
  4. #
  5.  
  6. $debug = 2 ;
  7.  
  8. print "Content-Type: text/plain\n\n" if $debug ;
  9.  
  10. if ($debug > 1) {
  11.     for (sort(keys %ENV)) {
  12.         print "$_ = $ENV{$_}\n";
  13.     }
  14. }
  15.  
  16. $mappath = $ENV{"PATH_TRANSLATED"} ;
  17.  
  18. print "mappath = $mappath\n" if $debug ;
  19.  
  20. open(MAPFILE, $mappath) ;
  21.  
  22. while (<MAPFILE>) {
  23.     print "$_\n" ;
  24. }
  25.  
  26. $raserver = "japan.park.org" ;
  27.  
  28.  
  29. print "pnm://$raserver$urlpath\n" ;
  30.  
  31. exit 0;
  32.