Set connection remote_host only when the reverse DNS lookup is successful.

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@923 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Radu Greab 2008-06-02 16:48:57 +00:00 committed by Ask Bjørn Hansen
parent b03dddcb48
commit 6db489e4f9
2 changed files with 4 additions and 1 deletions

View File

@ -1,3 +1,6 @@
async: Set connection remote_host only when the reverse DNS lookup is
successful
Create async version of dns_whitelist_soft, rhsbl and uribl plugins.
async: added pre- and post-connection hooks

View File

@ -183,7 +183,7 @@ sub start_conversation {
ParaDNS->new(
finished => sub { $self->continue_read(); $self->run_hooks("connect") },
# NB: Setting remote_info to the same as remote_host
callback => sub { $conn->remote_info($conn->remote_host($_[0])) },
callback => sub { $conn->remote_info($conn->remote_host($_[0])) if $_[0] !~ /^[A-Z]+$/ },
host => $ip,
);