if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/,$buffer);
$buffer= undef;
foreach (@pairs) {
($name, $value) = split(/=/);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack('H2',$1)/eg;
$value =~ s/</</g;
$value =~ s/>/>/g;
$value =~ s/"/"/g;
$value =~ s/\r\n|\r|\n/<br>/g;
$value =~ s/<br>/ <br> /g;
$buffer.=$value;
$FORM{$name} = $value;
}
if ($FORM{'title'} eq "") { $FORM{'title'} = "無題"; }
if ($FORM{'surl'} ne "") { $surl = "<a href=\"$FORM{'surl'}\">$FORM{'sname'}"; }
if ($FORM{'burl'} ne "") { $burl = "<br><img src=\"$FORM{'burl'}\">"; }
open MY, ">$FORM{'hname'}.html";
print MY <<END;
<html><head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=Shift_JIS">
<title>$FORM{'title'}</title>
</head><BODY><center>$FORM{'name'} さま
<br>$surl$burl</a>
</center></body></html>
END
close MY;
}