> 2010/11/17 (水) 16:22:41 ◆ ▼ ◇ [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時20分51秒