ぜろちゃんねるスクリプト総合質問スレ Part7

838 ：uuuss ◆uuussBh4TI ：2006/07/07(金) 17:09:04 ID:???0

>>836
http://www.vipper.net/vip55830.txt.html

>>837 参考までに俺の、串チェックの後に入れるといいよ
my $RADDR = $ENV{'REMOTE_ADDR'};
$RADDR =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/;
my $query_addr = "$4.$3.$2.$1.niku.2ch.net"; # BBQ用
# my $query_addr = "$4.$3.$2.$1.bbx.2ch.net"; # BBX用
# my $query_addr = "$4.$3.$2.$1.list.dsbl.org"; # DSBL用
my $addr = join('.', unpack('C*', gethostbyname($query_addr)));
if ($addr eq '127.0.0.2')
{
return 997;
}