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 / FukuiCompu / history.cgi < prev   
Text File  |  2017-09-21  |  2KB  |  72 lines
  1. #!/usr/local/bin/perl
  2.  
  3. @inputs = split(/&/, $ENV{'QUERY_STRING'});
  4.  
  5. foreach (@inputs)
  6. {
  7.     ($name, $value) = split(/=/);
  8.  
  9.     # Decoding each values
  10.     $value =~ tr/+/ /;
  11.     $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  12.     $value =~ s/~!/ ~!/g; 
  13.  
  14.     # Printing each values
  15.  
  16.     # For future use...
  17.     $INPUT{$name} = $value;
  18. }
  19.  
  20. # HTML
  21. print "Content-Type: text/html\n\n";
  22. print  <<EOF;
  23. <HTML>
  24. <HEAD>
  25. <TITLE>History of Cyber Architect</TITLE>
  26. </HEAD>
  27.  
  28. <FRAMESET COLS="*,*,*">
  29.  
  30.     <NOFRAME><CENTER><BLINK><FONT SIZE=+2>é╖é▌é▄é╣é±é¬üANetscape Navigator¬ 2.0 ê╚ì~é┼é╚éóé╞î⌐éτéΩé▄é╣é±üB</FONT></BLINK></CENTER>
  31.  
  32.     <FRAMESET ROWS="30,*">
  33.  
  34.         <FRAME name="head-evnt" SRC="../../../Japan/FukuiCompu/chronology/headevnt.html" MARGINWIDTH="1" MARGINHEIGHT="1"  SCROLLING="no">
  35.  
  36.         <FRAME name="body-evnt" SRC="data.cgi?year=
  37. EOF
  38. print $INPUT{'year'};
  39. print  <<EOF;
  40. &category=evnt" MARGINWIDTH="1" MARGINHEIGHT="1"  SCROLLING="auto">
  41.  
  42.     </FRAMESET>
  43.  
  44.     <FRAMESET ROWS="30,*">
  45.  
  46.         <FRAME name="head-arch" SRC="../../../Japan/FukuiCompu/chronology/headarch.html" MARGINWIDTH="1" MARGINHEIGHT="1"  SCROLLING="no">
  47.  
  48.         <FRAME name="body-arch" SRC="data.cgi?year=
  49. EOF
  50. print $INPUT{'year'};
  51. print  <<EOF;
  52. &category=arch" MARGINWIDTH="1" MARGINHEIGHT="1"  SCROLLING="auto">
  53.  
  54.     </FRAMESET>
  55.  
  56.     <FRAMESET ROWS="30,*">
  57.  
  58.         <FRAME name="head-info" SRC="../../../Japan/FukuiCompu/chronology/headinfo.html" MARGINWIDTH="1" MARGINHEIGHT="1"  SCROLLING="no">
  59.  
  60.         <FRAME name="body-info" SRC="data.cgi?year=
  61. EOF
  62. print $INPUT{'year'};
  63. print  <<EOF;
  64. &category=info" MARGINWIDTH="1" MARGINHEIGHT="1"  SCROLLING="auto">
  65.  
  66.     </FRAMESET>
  67.  
  68. </FRAMESET>
  69.  
  70. </HTML>
  71. EOF
  72.