home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Guests / Beethoven / opus.cgi < prev    next >
Text File  |  2017-09-21  |  399b  |  53 lines
  1. #!/usr/bin/perl
  2.  
  3.  
  4.  
  5.  
  6.  
  7. read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
  8.  
  9.  
  10.  
  11. $pair = $buffer;
  12.  
  13.  
  14.  
  15. ($name, $value) = split(/=/, $pair);
  16.  
  17.  
  18.  
  19. $value =~ tr/+/ /;
  20.  
  21.  
  22.  
  23. $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  24.  
  25.  
  26.  
  27. $value =~ s/<!--(.|\n)*-->//g;
  28.  
  29.  
  30.  
  31. open (LOG, ">>opusfile");
  32.  
  33.  
  34.  
  35. print LOG $value;
  36.  
  37.  
  38.  
  39. print LOG "\n";
  40.  
  41.  
  42.  
  43. close (LOG);
  44.  
  45.  
  46.  
  47. print "Location: /Guests/Beethoven/opus.htm";
  48.  
  49.  
  50.  
  51. print "\n\n";
  52.  
  53.