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 / data.cgi next >
Text File  |  2017-09-21  |  686b  |  43 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. <BODY BGCOLOR="#ffffbf">
  28. <FONT SIZE=-1>
  29. <UL>
  30. EOF
  31.  
  32. $DATA = "../../../Japan/FukuiCompu/chronology/data/$INPUT{'year'}$INPUT{'category'}.html";
  33. print `cat $DATA`;
  34.  
  35. print  <<EOF;
  36. </UL>
  37. </FONT>
  38. </BODY>
  39. </HTML>
  40. EOF
  41.  
  42.  
  43.