##############################################################################
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	;
}
##############################################################################