【荒らしお断り】 BBQを組み込んでる人【システム】at PHP【荒らしお断り】 BBQを組み込んでる人【システム】 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト355:nobodyさん 09/01/01 13:09:08 >>351 ってかちゃんと動作しきれてない気が・・・ 356:nobodyさん 09/01/01 13:31:33 z0xGpUSQ >>351 # チェックお願いしますリスト。増やしたり減らしたり適当に my @DNSBL_list = qw|http.dnsbl.sorbs.net niku.2ch.net bbx.2ch.net all.rbl.jp zen.spamhaus.org b.barracudacentral.org|; my $RADDR = $ENV{'REMOTE_ADDR'}; foreach my $DNSBL_host (@DNSBL_list){ $RADDR =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/; my $query_addr = "$4.$3.$2.$1.$DNSBL_host"; my $result = join('.', unpack('C*', gethostbyname($query_addr))); if ($result =~ /^127\.0\.0\./){ # スパム判定に引っかかった時の処理 ※適当に変更 # 例 printf qq|%s =>%s listed<br>\n|, $DNSBL_host, $result =~ /^127\.0\.0\./ ? '' : ' yes'; } else { # スパム判定に引っかからなかった時の処理 ※適当に変更 # 例 printf qq|%s =>%s listed<br>\n|, $DNSBL_host, $result =~ /^127\.0\.0\./ ? '' : ' no'; } } これで動いたけどスパム判定に引っかかったときの処理が表示されない・・・ 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch