################################################################################################# # ################################################################################################# 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') { DispError("ERROR!","公開PROXYからの投稿は受け付けていません!!(1)"); } return 0; } ################################################################################################# # #################################################################################################