11/04/13 17:03:37.24 15GnaZme0
#############################################################################
# 公式p2のIPアドレスかどうかチェックする
#############################################################################
sub mumumuIsIP4P22ch
{
my ($raddr) = @_;
our %P22chIPAddrs;
BEGIN {
# IPアドレスに変化があったら、ここを編集する
%P22chIPAddrs = map +($_ => 1), qw(
210.135.98.43 210.135.99.5
210.135.99.6 210.135.100.132
);
}
if($P22chIPAddrs{$raddr}) {return 1;}
return 0;
}