;
close(DB);
$header= "
こむぎさんは西原鳥に似ているかアンケート
恨ミシュランで西原りえこがメシがまずいときに鳥に変身して怒る姿は、こむぎさんにそっくりであるという情報が寄せられました。この問題に関して世論の動向を調査したいと思います。
投票結果
$all
$yes
$no
$mod
\n";
$footer="
\n";
if ($msg ne '') {&posttext;}
print "Content-type: text/html\n\n";
print $header;
print @lines;
print $footer;
open(DB,">$html");
eval 'flock(DB,2)';
print DB $header;
print DB @lines;
print DB $footer;
eval 'flock(DB,8);';
close(DB);
exit;
sub posttext{$host=$ENV{'REMOTE_HOST'};
$text= "$name :$date
";
$text = "$text
";
unshift (@lines ,"$text\n");
open(DB,">$log.log");
eval 'flock(DB,2);';
print DB @lines;
eval 'flock(DB,8);';
close(DB);}