07/10/29 22:48:05
今更だけど BBQを利用する:簡単設置
-------------------------------
Step1: bbs.cgi の一番下に下記を追加
#----------------------------------------
#BBQ あらしお断りシステム
#URLﾘﾝｸ(info.2ch.net)
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("ＥＲＲＯＲ！公開ＰＲＯＸＹからの投稿は受け付けていません");
}
}
#----------------------------------------
Step2: bbs.cgi の
Error('GETでの投稿は禁止です') if "\U$ENV{'REQUEST_METHOD'}\E" ne "POST";
の上に・・下記を追加（他の場所でもOK お好みで）
checkProxyList(); #20071001