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 >
Wrap
Text File
|
2017-09-21
|
399b
|
53 lines
#!/usr/bin/perl
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
$pair = $buffer;
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<!--(.|\n)*-->//g;
open (LOG, ">>opusfile");
print LOG $value;
print LOG "\n";
close (LOG);
print "Location: /Guests/Beethoven/opus.htm";
print "\n\n";