home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Brochure / Spanish / push_pdf_spanish.cgi < prev    next >
Encoding:
Text File  |  2017-09-21  |  415 b   |  27 lines
  1. #!/usr/local/bin/perl
  2. $local_root = $ENV{'DOCUMENT_ROOT'} ;
  3. $cgi_name = '/cgi-bin' ;
  4. push(@INC, $local_root . $cgi_name  );
  5.  
  6.  
  7. $file = $ENV{'QUERY_STRING'};
  8.  
  9. print "Content-type: text/html\n\n" ;
  10.  
  11. print <<EoI;
  12.  
  13.  
  14. <HTML><HEAD><TITLE>
  15. The Fair Brochure
  16. </TITLE>
  17. </HEAD>
  18. <frameset rows="70,*">
  19. <frame src="bulbs_spanish.cgi?$file" name="menu">
  20. <frame src="$file" name="home">
  21. </frameset>
  22. </body>
  23. </HTML>
  24.  
  25. EoI
  26. exit (0) ;
  27.