【荒らしお断り】 BBQを組み込んでる人【システム】 [sc](★0)
-
- 368
- 2009/04/15(水) 22:54:53
-
################################################################
#---------------BBQシステム (公開Proxy排除機能)----------------#
################################################################
sub checkProxyList {
my $RADDR = $ENV{'REMOTE_ADDR'};
$RADDR =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/;
my $query_addr = "$4.$3.$2.$1.niku.2ch.net";
my $addr = join('.', unpack('C*', gethostbyname($query_addr)));
if ($addr eq '127.0.0.2') { &error("Proxy感知！"); }
}
これでも作動するから平気だよね？
このページを共有する
おすすめワード