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

Oops, got the wrong end of the socket for the IP address!

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@190 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Matt Sergeant 2003-11-03 08:22:24 +00:00
parent ba12debf5f
commit eff5e69d39
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lib/Qpsmtpd/SelectServer.pm
View File

@ -46,17 +46,14 @@ sub main {
my $client_addr;
$client = $server->accept();
next unless $client;
my $ip = $client->sockhost;
#my $revip = join('.', reverse(split(/\./, $ip)));
#print "Looking up: $revip.in-addr.arpa\n";
#my $bgsock = $res->bgsend("$revip.in-addr.arpa", 'PTR');
my $ip = $client->peerhost;
my $bgsock = $res->bgsend($ip);
$select->add($bgsock);
$lookup{$bgsock} = $client;
}
elsif (my $qpclient = $lookup{$client}) {
my $packet = $res->bgread($client);
my $ip = $qpclient->sockhost;
my $ip = $qpclient->peerhost;
my $hostname = $ip;
if ($packet) {
foreach my $rr ($packet->answer) {