( pepelopez | 2014. 05. 02., p – 09:47 )

én perl scripetel oldottam meg

accept
local_parts = *
hosts = !127.0.0.1:*
condition = ${if eq{${perl{checkMx}{$domain}}}{$domain}}
endpass

ha van a szerverre mutató domain akkor elfogadja ha nincs akkor nem

perl script zanzásítva:

use Socket;
use Net::DNS;

my $dns = Net::DNS::Resolver->new(nameservers => [qw(127.0.0.1)]);

sub checkMx
{
my @params = @_;
for my $domain( $params[0] ) {
my $mx = $dns->query( $domain, 'MX' );
if (defined $mx)
{
foreach my $rr ($mx->answer)
{
if ($rr->exchange eq 'az.en.hostom.neve')
{
return $domain;
}
}
}
}
return "no";
}