byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Revert bad Event::Lib changes

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@808 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Matt Sergeant 2007-10-08 18:24:35 +00:00
parent c636c9ab92
commit 7fa3918803
1 changed files with 6 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lib/Qpsmtpd/PollServer.pm
View File

@ -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;
}