From 836e678e1b80dbe2c8b9edf49ba5621310f1a61d Mon Sep 17 00:00:00 2001
From: Hanno Hecker <vetinari@ankh-morp.org>
Date: Mon, 15 Dec 2008 20:48:42 +0000
Subject: [PATCH] async: add connection->local_ip, connection->local_port

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

diff --git a/lib/Qpsmtpd/PollServer.pm b/lib/Qpsmtpd/PollServer.pm
index 3bee02f..9d91af7 100644
--- a/lib/Qpsmtpd/PollServer.pm
+++ b/lib/Qpsmtpd/PollServer.pm
@@ -179,6 +179,9 @@ sub start_conversation {
     $conn->remote_ip($ip);
     $conn->remote_port($port);
     $conn->remote_info("[$ip]");
+    my ($lip,$lport) = split(':', $self->local_addr_string);
+    $conn->local_ip($lip);
+    $conn->local_port($lport);
     
     ParaDNS->new(
         finished   => sub { $self->continue_read(); $self->run_hooks("connect") },