【荒らしお断り】 BBQを組み込んでる人【システム】at PHP【荒らしお断り】 BBQを組み込んでる人【システム】 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト350:nobodyさん 08/12/31 12:34:29 UdoD6YhC >>347 凄いな・・・。 誰かperl版作って下さい＞＜ 351: ◆TWARamEjuA 08/12/31 13:56:28 # チェックお願いしますリスト。増やしたり減らしたり適当に my @DNSBL_list = qw|niku.2ch.net http.dnsbl.sorbs.net bbx.2ch.net all.rbl.jp zen.spamhaus.org b.barracudacentral.org|; foreach my $DNSBL_host (@DNSBL_list){ my $result = gethostbyname join ".", reverse (split '.', $ENV{HTTP_REMOTE_ADDR}) , $DNSBL_host; if ($result =~ /^127./){ # スパム判定に引っかかった時の処理 ※適当に変更 } else { # スパム判定に引っかからなかった時の処理 ※適当に変更 } # 例 printf qq|%s =>%s listedn|, $ENV{HTTP_REMOTE_ADDR}, $result =~ /^127./ ? '' : ' no'; } 動作確認はしていません♪ 352:nobodyさん 08/12/31 22:57:42 UdoD6YhC printf qq|%s =>%s listedn|, $ENV{HTTP_REMOTE_ADDR}, $result =~ /^127./ ? '' : ' no'; が上手く動いてないんだが・・・ 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch