【祟り】番犬 ★が管理人に笑われちゃうスレッド【炎上】17

[350 残飯マン ★ 2008/05/06(火) 19:47:21 ID:???0]

現在

if($GB->{FORM}->{bbs} ne 'campus') {return 0;}

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