#!/usr/bin/perl
$F='log.dat';$p='del';use CGI":all";*Q=*param;open F;@d[1..25]=<F>;$_=substr Q(
2),0,500;$a=m/url|href/i?0:substr Q(1),0,40;if($a&&$_){@t=localtime;if($a eq$p)
{$d[$_]=''}else{$_=++$t[4]."/$t[3] $t[2]:".sprintf("%02d",$t[1])."] $a‚³‚ñ$/$_"
;s/["&<>;']/&#${\ord$&};/g;s/(\r\n|\n|\r)+/<br>/g;$d[0]=hr."[$_$/"}open F,">$F"
;eval{flock(F,2)};print F @d}Q(2,'');print header(-Charset=>'Shift_JIS',-lang=>
'ja-JP'),'** BBS **',startform('POST','bbs.cgi'),'–¼‘O:',textfield(1,'',25,40),
br,textarea(2,'',4,32),br,submit,endform,@d,hr;close F