🚀 go-pugleaf

W dniu 25.04.2020 o 09:19, Bartosz 'briest' Stepien pisze:
> Mistrz Lemat rzekł:
>> a wymienisz jeden MTA, który to potrafi?
> 
> Tak z głowy, bez testowania, to w Eximie byłoby
> 
> deny dnslists = jakis.rbl/$sender_address

Jak już, to lepiej DEFER. Można się podroczyć ze spamerem :)

> 
> pomijając sensowność, chociaż może to być wygodna forma wspólnego źródła
> informacji dla kilku maszyn.
> 
Tak, dokładnie taki jest główny cel tego rozwiązania.

Dla EXIM zrobiłem to tak (exim musi mieć wkompilowany embedded perl):

#pokazanie eximowi własnego perlowego kodu, albo dopisanie n/w sub'a do
już istniejącego
perl_startup = do '/etc/exim/emailbanfilter-bemails.pl'

#ACL w którym wołamy funkcję perl
acl_smtp_rcpt:
defer   message		= Private e-mail BlackList in progress ... Bye bye dear
spammer :)
	!authenticated	= *
	condition	= ${perl{sub_odpytujacy_rbl}}
	logwrite	= Sender: $sender_address is blacklisted.

i perlowy kodzik:

use Socket;
use Net::DNS;

sub jakis_odpytujacy_rbl
{
    my $usr = Exim::expand_string('$sender_address_local_part');
    my $dmn = Exim::expand_string('$sender_address_domain');
    my $rbl = 'RBL-LISTUJACY-BLACK-EMAILS.tld';
    my $que = "$usr\@$dmn.$rbl";
    my $res = Net::DNS::Resolver->new;
    my $odp = $res->search($que, "A");

    if ($odp)
    {
    foreach my $rr($odp->answer)
        {
    		next unless $rr->type eq "A";
    		Exim::log_write("PRV_EMAIL_BL: YES $usr\@$dmn LISTED on RBL: $rbl
!!! (" . $rr->address . ")");
		return "yes";
        }
    }
    else
        {

        	return "no"
        }
}