★三　【スクリプト改造工房 PART 8 】　★三

★三　【スクリプト� ..

502:500
04/10/23 21:46:31
>>501
了解です。

こんな感じにしてみましたが、両方ともうまく機能してないみたいです。よろしくお願いします。

# dsbl 問い合わせ。
if ($dsbl) {
gethostbyname(sprintf qq|%s.%s.%s.%s.list.dsbl.org.|, reverse split /\./, $ENV{'REMOTE_ADDR'}) and &error("アクセスを許可されていません (dsbl listed.)");
}

# BBQ 問い合わせ。
if ($bbq) {
gethostbyname(sprintf qq|%s.%s.%s.%s.niku.2ch.net.|, reverse split /\./, $ENV{'REMOTE_ADDR'}) and &error("アクセスを許可されていません (BBQ listed.)");
}

$bbq ='1';

$dsbl ='1';

次ページ