#書き換えてすらないし当然テストなんてしてない
それぞれ追記な
270行あたり
print "<form ...
のあとに
print "<input type=hidden name=\"res\" value=\"" . $#LOG . "\">\n";

362行あたり
&dataread ...
のあとに
if ($FORM{'res'} != $#LOG){
my $ppp=$FORM{'comment'};
$ppp .= "<br>新規出演者: " . $FORM{'newactor'} if($FORM{'newactor'});
&error("ログが更新されている・・あとはてめえで考えろ<br>投稿内容:<br>$ppp") ;
}