From 7fa3918803901a0b31c2e7911ab1cf57e76ddc5a Mon Sep 17 00:00:00 2001
From: Matt Sergeant <matt@sergeant.org>
Date: Mon, 8 Oct 2007 18:24:35 +0000
Subject: [PATCH] Revert bad Event::Lib changes

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@808 958fd67b-6ff1-0310-b445-bb7760255be9
---
 lib/Qpsmtpd/PollServer.pm | 19 ++++++-------------
 1 file changed, 6 insertions(+), 13 deletions(-)

diff --git a/lib/Qpsmtpd/PollServer.pm b/lib/Qpsmtpd/PollServer.pm
index b274e34..8d1e2e3 100644
--- a/lib/Qpsmtpd/PollServer.pm
+++ b/lib/Qpsmtpd/PollServer.pm
@@ -2,8 +2,6 @@
 
 package Qpsmtpd::PollServer;
 
-use Event::Lib qw(:dns);
-
 use base ('Danga::Client', 'Qpsmtpd::SMTP');
 # use fields required to be a subclass of Danga::Client. Have to include
 # all fields used by Qpsmtpd.pm here too.
@@ -180,17 +178,12 @@ sub start_conversation {
     $conn->remote_port($port);
     $conn->remote_info("[$ip]");
     
-    event_resolve_reverse($ip, sub {
-        $conn->remote_info($conn->remote_host($_[3]));
-        $self->run_hooks('connect');
-    });
-    
-#    ParaDNS->new(
-#        finished   => sub { $self->run_hooks("connect") },
-#        # NB: Setting remote_info to the same as remote_host
-#        callback   => sub { $conn->remote_info($conn->remote_host($_[0])) },
-#        host       => $ip,
-#    );
+    ParaDNS->new(
+        finished   => sub { $self->run_hooks("connect") },
+        # NB: Setting remote_info to the same as remote_host
+        callback   => sub { $conn->remote_info($conn->remote_host($_[0])) },
+        host       => $ip,
+    );
     
     return;
 }