>>823
1465行目あたりにあるsub datacheck{の下の行に
if ($msg !~ /[\x80-\xff]/) {push(@errors,"投稿は日本語でお願いします。");}
これ追加するだけ。
エラーメッセージは自由に変えて