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

	if($GB->{FORM}->{'FROM'} =~ /\!ninja/)	{return 1;}
	if($ENV{'SERVER_NAME'} =~ /qb7/)	{return 1;}
	if($GB->{FORM}->{'bbs'} eq "sato")	{return 1;}
	if($GB->{FORM}->{'bbs'} eq "yama")	{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")
						{return 1;}
	if($hhh =~ /\.plala.or.jp$/)		{return 0;}
	if($hhh =~ /\.ocn.ne.jp$/)		{return 0;}

#return 0;
	if($GB->{FORM}->{'bbs'} eq "opensesame"){return 0;}
	if($GB->{FORM}->{'bbs'} eq "erobbs")	{return 0;}
	if($GB->{FORM}->{'bbs'} eq "ccc")	{return 0;}
	if($GB->{FORM}->{'bbs'} eq "pinknanmin"){return 0;}
	if($GB->{FORM}->{'bbs'} eq "operate")	{return 0;}
	if($GB->{FORM}->{'bbs'} eq "accuse")	{return 0;}
	if($GB->{KEITAI} eq 1)			{return 1;}	#docomo
	if($GB->{KEITAI} eq 2)			{return 0;}	#au
	if($GB->{KEITAI} eq 3)			{return 0;}	#sb
	if($hhh =~ /\.maido3.net$/)		{return 0;}

	if($hhh =~ /\.mesh.ad.jp$/)		{return 1;}
	if($hhh =~ /\.dion.ne.jp$/)		{return 1;}
	if($hhh =~ /\.t-com.ne.jp$/)		{return 1;}

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

	if($hhh =~ /\.so-net.ne.jp$/)		{return 1;}
	if($hhh =~ /\.ztv.ne.jp$/)		{return 1;}

	if($ENV{'SERVER_NAME'} =~ /ipv6/)	{return 0;}

	if($hhh =~ /\.ac.jp$/)			{return 0;}
	if($hhh =~ /\.go.jp$/)			{return 0;}
	if($hhh =~ /\.or.jp$/)			{return 0;}
	if($hhh =~ /\.ne.jp$/)			{return 0;}
	if($hhh =~ /\.ad.jp$/)			{return 0;}
	if($hhh =~ /\.ed.jp$/)			{return 0;}
	if($hhh =~ /\.lg.jp$/)			{return 0;}
	if($hhh =~ /\.jp$/)			{return 1;}

	return 0	;
}
##############################################################################