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 / raredir < prev    next >
Text File  |  2017-09-21  |  364b  |  25 lines
  1. #!/usr/local/bin/perl
  2. #
  3. # Real audio server redirector
  4. #
  5.  
  6. $debug = 0 ;
  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. $raurlpath = $ENV{"PATH_INFO"} ;
  17.  
  18. print "Content-Type: audio/x-pn-realaudio\n\n" ;
  19.  
  20. $raserver = "japan.park.org" ;
  21.  
  22. print "pnm://$raserver$raurlpath\n" ;
  23.  
  24. exit 0;
  25.