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';