> 2010/11/17 (水) 16:20:51 ◆ ▼ ◇ [qwerty]> インデックス、荒らし対策できなくて、ごめんなさいなんだよ。
> 何かよい方策があれば、メイルしておいて欲しいんだよ?
> 約1時間前 Twitter for iPhoneから
>
> コーラ吹き出した(;´Д`)
組み込み例 (某巨大掲示板 bbs.cgi)
#################################################################################################
#
#################################################################################################
sub checkProxyList
{
my $RADDR = $ENV{'REMOTE_ADDR'} ;
$RADDR =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/;
my $query_addr = "qwerty.on.arena.ne.jp";
my $addr = join('.', unpack('C*', gethostbyname($query_addr)));
if ($addr eq '127.0.0.2')
{
DispError("ERROR!","公開PROXYからの投稿は受け付けていません!!(1)");
}
return 0 ;
}
#################################################################################################
#
#################################################################################################
参考:2010/11/17(水)16時12分00秒