Эта программа тестирует Интернет-хосты и пытается направить через них специальным образом сформированное письмо-жалобу на автоматическую систему Distributed Server Boycott List. Если тест успешен, то есть хост является открытым релеем, то ip-адрес этого хоста заносится в "черные списки" DSBL, которые могут быть использованы для автоматической фильтрации, например, входящего почтового траффика.
Программа dsbl.pl
читает конфигурационный файл dsbl.conf
,
если таковой имеется в том же каталоге, ищет во входном потоке подстроки,
которые могут быть интерпретированы, как ip-адреса, и применяет к хостам
по каждому адресу набор
тестов. Результат тестирования отсылается на адрес электронной почты,
взятый из переменной окружения SENDER. Таким образом, программу
удобно использовать в виде почтового фильтра, снабдив конвейер к ней псевдонимом
в почтовой системе.
$cc = undef
$recipient_user = 'listme'
$recipient_domain = 'listme.dsbl.org'
$dsbl_user = undef
$dsbl_pwd = undef
@trusted = ()
%timeout = ()
@http_ports = ()
'http'
%DEBUG = ()
'smtp'
'http'
Всё (исполнимые файлы и файлы конфигурации) написано на Perl и распространяется под лицензией
GNU General Public License.
Для удовлетворения зависимостей необходимы некоторые популярные модули, доступные в CPAN.
Net::Netmask
Net::SMTP
Net::DNS
Net::HTTP