■ BBS_4WORLD=　2ｃｈ国際化計画

13 ：ピロリ：2008/05/07(水) 19:41:38 ID:gSL6yrzk0

現在
my $a = $GB->{FORM}->{'MESSAGE'} . $GB->{FORM}->{'mail'} . $GB->{FORM}->{'FROM'} . $GB->{FORM}->{'subject'} ;
if($a =~ /[^a-zA-Z0-9\.\, #_<>\(\)\?\/\&\;\!\:\=\'\+\-\*\~\%\@\"\[\]\+]/) {&DispError2($GB,"ＥＲＲＯＲ！","日本語は受け付けていません"); }