############################################################################## sub checkNinja { my ($GB,$hhh) = @_ ; # madakanaで>指定されているISP等は忍法帖強制適用 my @PIP = @FOX_NINJA ; foreach(@PIP) { chomp; if($_ =~ /^>(.+)/) { if(eval { $hhh =~ /$1/ }) {return 1;} } } # 名前欄で!ninjaをしたら適用 if($GB->{FORM}->{'FROM'} =~ /\!ninja/) {return 1;} #板の設定に従う SETTING.TXT 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 =~ /\.tr$/i) {return 1;} if($hhh =~ /\.za$/i) {return 1;} if($hhh =~ /\.ph$/i) {return 1;} if($hhh =~ /\.my$/i) {return 1;} if($hhh =~ /\.tt$/i) {return 1;} if($hhh =~ /\.sa$/i) {return 1;} if($hhh =~ /\.au$/i) {return 1;} if($hhh =~ /\.vn$/i) {return 1;} if($hhh =~ /\.ee$/i) {return 1;} if($hhh =~ /\.ge$/i) {return 1;} if($hhh =~ /\.dk$/i) {return 1;} if($hhh =~ /\.cy$/i) {return 1;} if($hhh =~ /\.uk$/i) {return 1;} if($hhh =~ /\.de$/i) {return 1;} if($hhh =~ /\.do$/i) {return 1;} if($hhh =~ /\.lt$/i) {return 1;} if($hhh =~ /\.br$/i) {return 1;} return 0 ; } ##############################################################################