HIDEさんも指摘しているように、泥板にスパムなのかなんなのかよくわからない外国からの書きこみが多いので細工。以下メモ。
#半角文字のみなら弾く $code = &jcode::getcode(\$in{'comment'}); if(!$code){ &error($code ." A message without multibyte-charactors is not accepted!"); }
コード判定に失敗した時の判定がよくわからずに試行錯誤した。if($code==undef)とか試したりした。
ひさしぶりのperlだったんでとまどいがあった。echoとかつい書いてしまう。