From 6db489e4f923d6e58666ab360d16df0ba255d825 Mon Sep 17 00:00:00 2001
From: Radu Greab <radu@yx.ro>
Date: Mon, 2 Jun 2008 16:48:57 +0000
Subject: [PATCH] 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
---
 Changes                   | 3 +++
 lib/Qpsmtpd/PollServer.pm | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/Changes b/Changes
index bda873c..e6d5f50 100644
--- a/Changes
+++ b/Changes
@@ -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
diff --git a/lib/Qpsmtpd/PollServer.pm b/lib/Qpsmtpd/PollServer.pm
index 566bf04..62a6de7 100644
--- a/lib/Qpsmtpd/PollServer.pm
+++ b/lib/Qpsmtpd/PollServer.pm
@@ -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,
     );