sub checkNinja

##############################################################################
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'} =~ /hayabusa/)   {return 0;}
    if($ENV{'SERVER_NAME'} =~ /ipv6/)   {return 0;}

    if($hhh =~ /\.bmobile.ne.jp$/)      {return 1;}
    if($hhh =~ /\.fiberbit.net$/)       {return 1;}
    if($hhh =~ /\.yournet.ne.jp$/)      {return 1;}
    if($hhh =~ /\.iij4u.or.jp$/)        {return 1;}
    if($hhh =~ /\.cts.ne.jp$/)      {return 1;}
    if($hhh =~ /\.scn-net.ne.jp$/)      {return 1;}
    if($hhh =~ /\.au-net.ne.jp$/)       {return 1;}
    if($hhh =~ /\.aitai.ne.jp$/)        {return 1;}
    if($hhh =~ /\.oct-net.ne.jp$/)      {return 1;}
    if($hhh =~ /\.spmode.ne.jp$/)       {return 1;}
    if($hhh =~ /\.tnc.ne.jp$/)      {return 1;}
    if($hhh =~ /\.spacelan.ne.jp$/)     {return 1;}
    if($hhh =~ /\.au-net.ne.jp$/)       {return 1;}
    if($hhh =~ /\.megaegg.ne.jp$/)      {return 1;}
    if($hhh =~ /\.alpha-net.ne.jp$/)    {return 1;}
    if($hhh =~ /\.zaq.ne.jp$/)      {return 1;}
    if($hhh =~ /\.eaccess.ne.jp$/)      {return 1;}
    if($hhh =~ /\.tac-net.ne.jp$/)      {return 1;}
    if($hhh =~ /\.toshima.ne.jp$/)      {return 1;}
    if($hhh =~ /\.icntv.ne.jp$/)        {return 1;}
    if($hhh =~ /\.dti.ne.jp$/)      {return 1;}
    if($hhh =~ /\.uqwimax.jp$/)     {return 1;}
    if($hhh =~ /\.em-net.ne.jp$/)       {return 1;}
    if($hhh =~ /\.prin.ne.jp$/)     {return 1;}
    if($hhh =~ /\.e-mobile.ne.jp$/)     {return 1;}
    if($hhh =~ /\.emobile.ad.jp$/)      {return 1;}
    if($hhh =~ /\.panda-world.ne.jp$/)  {return 1;}
    if($hhh =~ /\.mopera.ne.jp$/)       {return 1;}
    if($hhh =~ /\.maido3.cc$/)      {return 1;}

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