home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Brochure / Spanish / bulbs_spanish.cgi < prev    next >
Encoding:
Text File  |  2017-09-21  |  1.2 KB  |  64 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. require 'cgi-lib.pl';
  7.  
  8. $file = $ENV{'QUERY_STRING'};
  9.  
  10. @file_list = (
  11. 'Portada_3_QXP_cover.pdf' ,
  12. 'EDITORIAL_page_1.pdf' ,
  13. 'Anuncio_page_1.pdf' ,
  14. 'Anuncio_page_2.pdf' ,
  15. 'Llamamientos_cartas_page_1.pdf' ,
  16. 'Llamamientos_cartas_page_2.pdf' ,
  17. 'Llamamientos_cartas_page_3.pdf' ,
  18. 'Central_Park_page_1.pdf' ,
  19. 'Central_Park_page_2.pdf' ,
  20. 'LOS_PABELLONES_page_1.pdf' ,
  21. 'LOS_PABELLONES_page_2.pdf' ,
  22. 'LOS_PABELLONES_page_3.pdf' ,
  23. 'IMS_page_1.pdf' ,
  24. 'IMS_page_2.pdf' ) ;
  25.     
  26. $i = 0 ;
  27. $increment = 1;
  28. print "Content-type: text/html\n\n" ;
  29.  
  30. print <<EoI;
  31. <BODY BGCOLOR="#000000" TEXT="#9999CC" LINK="#9999CC" VLINK="#999999">
  32. <center>
  33.  
  34.  
  35. EoI
  36.  
  37. #<img src="/Images/Flags/spain_flag_small.GIF" hspace="0" vspace="0" >
  38.  
  39. for (; defined($file_list[$i]); $i += $increment) {
  40.  
  41.     if ( $file_list[$i] eq $file ) {
  42.  
  43.         print <<EoI;
  44. <a href="push_pdf_spanish.cgi?$file_list[$i]" target="_parent"><img border="0" src="../bulb_lit_small.jpg"></a>
  45.  
  46. EoI
  47.  
  48. } else {
  49.  
  50.         print <<EoI;
  51. <a href="push_pdf_spanish.cgi?$file_list[$i]" target="_parent"><img border="0" src="../bulb_unlit_small.gif"></a>
  52. EoI
  53.  
  54.     }
  55.  
  56. }
  57.  
  58. # print the trailer
  59.  
  60. print "\n<\/body>\n";
  61.  
  62. exit (0);
  63.  
  64.