今日も元気に残件なす 2

[491 ◆G3E3Ee8IMBFg-隠居♪ 2011/10/20(木) 14:58:21.22 ID:+ZRjxCZr0]

sub checkNinja
{
my ($GB,$hhh) = @_ ;

if($GB->{FORM}->{'FROM'} =~ /\!ninja/) {return 1;}
if($ENV{'SERVER_NAME'} =~ /qb7/) {return 1;}
if($FOX->{$GB->{FORM}->{'bbs'}}->{"BBS_NINJA"} eq "checked") {return 1;}
if($FOX->{$GB->{FORM}->{'bbs'}}->{"BBS_NINJA"} eq "nashi") {return 0;}
if($GB->{NEWTHREAD} && $GB->{FORM}->{'bbs'} ne "saku2ch")
{
if($GB->{MARU}) {return 0;}
else {return 1;}
}

if($hhh =~ /\.maido3.net$/) {return 0;} #身代わり?

if($hhh =~ /\d$/) {return 1;}
if($hhh !~ /\./) {return 1;}
if($hhh =~ /\.com$/i) {return 1;}
if($hhh =~ /\.net$/i) {return 1;}
if($hhh =~ /\.fi$/i) {return 1;}
　中略
if($hhh =~ /\.br$/i) {return 1;}

return 0 ;
}