【実験】只今シベリアで「とも子」「リモホ表示」実験中。。。

sub UseTomoko
{
#if($FORM{'bbs'} eq 'news'){return 1;}
if($ENV{'SERVER_NAME'} =~ /society/){return 1;}
if($ENV{'SERVER_NAME'} =~ /tv/){return 1;}
if($ENV{'SERVER_NAME'} =~ /ex/){return 1;}
if($ENV{'SERVER_NAME'} =~ /love/){return 1;}
if($ENV{'SERVER_NAME'} =~ /hobby/){return 1;}
return 0;
}