dnsbl: process DNS queries immediately
rather than deferring until RCPT. This greatly improves efficiency, since most connections will get marked naughty much sooner, having run fewer tests.
This commit is contained in:
Matt Simerson
parent
0fe884209e
commit
b245d30e9e
129
plugins/dnsbl
129
plugins/dnsbl
@ -13,9 +13,23 @@ a configurable set of RBL services.
|
||||
|
||||
Add the following line to the config/plugins file:
|
||||
|
||||
dnsbl [ reject_type disconnect ] [loglevel -1]
|
||||
dnsbl
|
||||
|
||||
=head2 reject_type [ temp | perm ]
|
||||
The following options are also availble:
|
||||
|
||||
=head2 reject [ 0 | 1 | naughty ]
|
||||
|
||||
dnsbl reject 0 <- do not reject
|
||||
|
||||
dnsbl reject 1 <- reject
|
||||
|
||||
dnsbl reject naughty <- See perldoc plugins/naughty
|
||||
|
||||
Also, when I<reject naughty> is set, DNS queries are processed during connect.
|
||||
|
||||
=head2 reject_type [ temp | perm | disconnect ]
|
||||
|
||||
Default: perm
|
||||
|
||||
To immediately drop the connection (since some blacklisted servers attempt
|
||||
multiple sends per session), set I<reject_type disconnect>. In most cases,
|
||||
@ -23,14 +37,12 @@ an IP address that is listed should not be given the opportunity to begin a
|
||||
new transaction, since even the most volatile blacklists will return the same
|
||||
answer for a short period of time (the minimum DNS cache period).
|
||||
|
||||
Default: perm
|
||||
|
||||
=head2 loglevel
|
||||
|
||||
Adjust the quantity of logging for this plugin. See docs/logging.pod
|
||||
|
||||
dnsbl [loglevel -1]
|
||||
|
||||
Adjust the quantity of logging for this plugin. See docs/logging.pod
|
||||
|
||||
=head1 CONFIG FILES
|
||||
|
||||
This plugin uses the following configuration files. All are optional. Not
|
||||
@ -121,7 +133,7 @@ See: https://github.com/smtpd/qpsmtpd/commits/master/plugins/dnsbl
|
||||
=cut
|
||||
|
||||
sub register {
|
||||
my ($self, $qp) = shift, shift;
|
||||
my ($self, $qp) = (shift, shift);
|
||||
|
||||
if ( @_ % 2 ) {
|
||||
$self->{_args}{reject_type} = shift; # backwards compatibility
|
||||
@ -129,25 +141,54 @@ sub register {
|
||||
else {
|
||||
$self->{_args} = { @_ };
|
||||
};
|
||||
|
||||
# explicitly state legacy reject behavior
|
||||
if ( ! defined $self->{_args}{reject_type} ) {
|
||||
$self->{_args}{reject_type} = 'perm';
|
||||
};
|
||||
if ( ! defined $self->{_args}{reject} ) {
|
||||
$self->{_args}{reject} = 1;
|
||||
};
|
||||
}
|
||||
|
||||
sub hook_connect {
|
||||
my ($self, $transaction) = @_;
|
||||
|
||||
my $reject = $self->{_args}{reject};
|
||||
|
||||
# RBLSMTPD being non-empty means it contains the failure message to return
|
||||
if ( defined $ENV{'RBLSMTPD'} && $ENV{'RBLSMTPD'} ne '' ) {
|
||||
return $self->return_env_message() if $reject && $reject eq 'connect';
|
||||
};
|
||||
|
||||
return DECLINED if $self->is_immune();
|
||||
|
||||
# perform RBLSMTPD checks to mimic Dan Bernstein's rblsmtpd
|
||||
return DECLINED if $self->is_set_rblsmtpd();
|
||||
return DECLINED if $self->is_immune();
|
||||
return DECLINED if $self->ip_whitelisted();
|
||||
|
||||
my %dnsbl_zones = map { (split /:/, $_, 2)[0,1] } $self->qp->config('dnsbl_zones');
|
||||
if ( ! %dnsbl_zones ) {
|
||||
$self->log( LOGDEBUG, "skip: no list configured");
|
||||
$self->log( LOGDEBUG, "skip, no zones");
|
||||
return DECLINED;
|
||||
};
|
||||
|
||||
my $remote_ip = $self->qp->connection->remote_ip;
|
||||
my $reversed_ip = join('.', reverse(split(/\./, $remote_ip)));
|
||||
|
||||
$self->initiate_lookups( \%dnsbl_zones, $reversed_ip );
|
||||
|
||||
my $message = $self->process_sockets or do {
|
||||
$self->log(LOGINFO, 'pass');
|
||||
return DECLINED;
|
||||
};
|
||||
|
||||
return $self->get_reject( $message );
|
||||
};
|
||||
|
||||
sub initiate_lookups {
|
||||
my ($self, $zones, $reversed_ip) = @_;
|
||||
|
||||
# we queue these lookups in the background and fetch the
|
||||
# results in the first rcpt handler
|
||||
|
||||
@ -158,10 +199,10 @@ sub hook_connect {
|
||||
my $sel = IO::Select->new();
|
||||
|
||||
my $dom;
|
||||
for my $dnsbl (keys %dnsbl_zones) {
|
||||
for my $dnsbl (keys %$zones) {
|
||||
# fix to find A records, if the dnsbl_zones line has a second field 20/1/04 ++msp
|
||||
$dom->{"$reversed_ip.$dnsbl"} = 1;
|
||||
if (defined($dnsbl_zones{$dnsbl})) {
|
||||
if (defined($zones->{$dnsbl})) {
|
||||
$self->log(LOGDEBUG, "Checking $reversed_ip.$dnsbl for A record in the background");
|
||||
$sel->add($res->bgsend("$reversed_ip.$dnsbl"));
|
||||
}
|
||||
@ -173,9 +214,7 @@ sub hook_connect {
|
||||
|
||||
$self->connection->notes('dnsbl_sockets', $sel);
|
||||
$self->connection->notes('dnsbl_domains', $dom);
|
||||
|
||||
return DECLINED;
|
||||
}
|
||||
};
|
||||
|
||||
sub is_set_rblsmtpd {
|
||||
my $self = shift;
|
||||
@ -199,26 +238,37 @@ sub is_set_rblsmtpd {
|
||||
sub ip_whitelisted {
|
||||
my $self = shift;
|
||||
|
||||
my $remote_ip = shift || $self->qp->connection->remote_ip;
|
||||
my $remote_ip = $self->qp->connection->remote_ip;
|
||||
|
||||
return
|
||||
grep { s/\.?$/./; $_ eq substr($remote_ip . '.', 0, length $_) }
|
||||
return grep { s/\.?$/./;
|
||||
$_ eq substr($remote_ip . '.', 0, length $_)
|
||||
}
|
||||
$self->qp->config('dnsbl_allow');
|
||||
};
|
||||
|
||||
sub return_env_message {
|
||||
my $self = shift;
|
||||
my $result = $ENV{'RBLSMTPD'};
|
||||
my $remote_ip = $self->qp->connection->remote_ip;
|
||||
$result =~ s/%IP%/$remote_ip/g;
|
||||
my $msg = $self->qp->config('dnsbl_rejectmsg');
|
||||
$self->log(LOGINFO, "fail, $msg");
|
||||
return ( $self->get_reject_type(), join(' ', $msg, $result));
|
||||
}
|
||||
|
||||
sub process_sockets {
|
||||
my ($self) = @_;
|
||||
|
||||
my $conn = $self->connection;
|
||||
my $conn = $self->qp->connection;
|
||||
|
||||
return $conn->notes('dnsbl') if $conn->notes('dnsbl');
|
||||
|
||||
my %dnsbl_zones = map { (split /:/, $_, 2)[0,1] } $self->qp->config('dnsbl_zones');
|
||||
|
||||
my $sel = $conn->notes('dnsbl_sockets') or return '';
|
||||
my $dom = $conn->notes('dnsbl_domains');
|
||||
my $remote_ip = $self->qp->connection->remote_ip;
|
||||
|
||||
my %dnsbl_zones = map { (split /:/, $_, 2)[0,1] } $self->qp->config('dnsbl_zones');
|
||||
|
||||
my $result;
|
||||
my $res = new Net::DNS::Resolver;
|
||||
$res->tcp_timeout(30);
|
||||
@ -229,7 +279,7 @@ sub process_sockets {
|
||||
# don't wait more than 8 seconds here
|
||||
my @ready = $sel->can_read(8);
|
||||
|
||||
$self->log(LOGDEBUG, "DONE waiting for dnsbl dns, got ", scalar @ready, " answers ...");
|
||||
$self->log(LOGDEBUG, "done waiting for dnsbl dns, got ", scalar @ready, " answers ...");
|
||||
return '' unless @ready;
|
||||
|
||||
for my $socket (@ready) {
|
||||
@ -296,31 +346,14 @@ sub process_sockets {
|
||||
sub hook_rcpt {
|
||||
my ($self, $transaction, $rcpt, %param) = @_;
|
||||
|
||||
return DECLINED if $self->is_immune();
|
||||
|
||||
# RBLSMTPD being non-empty means it contains the failure message to return
|
||||
if (defined $ENV{'RBLSMTPD'} && $ENV{'RBLSMTPD'} ne '') {
|
||||
my $result = $ENV{'RBLSMTPD'};
|
||||
my $remote_ip = $self->qp->connection->remote_ip;
|
||||
$result =~ s/%IP%/$remote_ip/g;
|
||||
my $msg = $self->qp->config('dnsbl_rejectmsg');
|
||||
$self->log(LOGINFO, "fail: $msg");
|
||||
return ( $self->get_reject_type(), join(' ', $msg, $result));
|
||||
}
|
||||
|
||||
my $note = $self->process_sockets or return DECLINED;
|
||||
if ( $self->ip_whitelisted() ) {
|
||||
$self->log(LOGINFO, "skip: whitelisted");
|
||||
return DECLINED;
|
||||
};
|
||||
|
||||
if ( $rcpt->user =~ /^(?:postmaster|abuse|mailer-daemon|root)$/i ) {
|
||||
$self->log(LOGWARN, "skip: don't blacklist special account: ".$rcpt->user);
|
||||
return DECLINED;
|
||||
$self->log(LOGWARN, "skip, don't blacklist special account: ".$rcpt->user);
|
||||
|
||||
# clear the naughty connection note here, if desired.
|
||||
#$self->connection->notes('naughty', 0 );
|
||||
}
|
||||
|
||||
$self->log(LOGINFO, 'fail');
|
||||
return ( $self->get_reject_type(), $note);
|
||||
return DECLINED;
|
||||
}
|
||||
|
||||
sub hook_disconnect {
|
||||
@ -331,13 +364,3 @@ sub hook_disconnect {
|
||||
return DECLINED;
|
||||
}
|
||||
|
||||
sub get_reject_type {
|
||||
my $self = shift;
|
||||
my $default = shift || DENY;
|
||||
my $deny = $self->{_args}{reject_type} or return $default;
|
||||
|
||||
return $self->{_args}{reject_type} eq 'temp' ? DENYSOFT
|
||||
: $self->{_args}{reject_type} eq 'disconnect' ? DENY_DISCONNECT
|
||||
: $default;
|
||||
};
|
||||
|
||||
|
||||
@ -8,8 +8,7 @@ use Qpsmtpd::Constants;
|
||||
sub register_tests {
|
||||
my $self = shift;
|
||||
|
||||
$self->register_test('test_hook_connect', 2);
|
||||
$self->register_test('test_hook_rcpt', 2);
|
||||
$self->register_test('test_hook_connect', 1);
|
||||
$self->register_test('test_ip_whitelisted', 3);
|
||||
$self->register_test('test_is_set_rblsmtpd', 4);
|
||||
$self->register_test('test_hook_disconnect', 1);
|
||||
@ -54,21 +53,10 @@ sub test_hook_connect {
|
||||
$conn->relay_client(0); # other tests may leave it enabled
|
||||
$conn->remote_ip('127.0.0.2'); # standard dnsbl test value
|
||||
|
||||
cmp_ok( DECLINED, '==', $self->hook_connect($self->qp->transaction),
|
||||
"connect +");
|
||||
|
||||
ok($self->connection->notes('dnsbl_sockets'), "sockets +");
|
||||
ok($self->connection->notes('dnsbl_domains'), "domains +");
|
||||
my ($rc, $mess) = $self->hook_connect($self->qp->transaction);
|
||||
cmp_ok( $rc, '==', DENY, "connect +");
|
||||
}
|
||||
|
||||
sub test_hook_rcpt {
|
||||
my $self = shift;
|
||||
|
||||
my $address = Qpsmtpd::Address->parse('<rcpt@example.com>');
|
||||
my ($ret, $note) = $self->hook_rcpt($self->qp->transaction, $address);
|
||||
is($ret, DENY, "Check we got a DENY ($note)");
|
||||
#print("# dnsbl result: $note\n");
|
||||
}
|
||||
sub test_hook_disconnect {
|
||||
my $self = shift;
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user