From 21b177d5d9f7664c78ba030eaec6d33bf22f5a20 Mon Sep 17 00:00:00 2001
From: Mike Rylander <mrylander@gmail.com>
Date: Thu, 14 Aug 2014 13:58:23 -0400
Subject: [PATCH] Follow up: also clean up using addr/port

Signed-off-by: Mike Rylander <mrylander@gmail.com>
Signed-off-by: Bill Erickson <berick@esilibrary.com>
---
 SIPServer.pm | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/SIPServer.pm b/SIPServer.pm
index 07b54bc..f0837d7 100755
--- a/SIPServer.pm
+++ b/SIPServer.pm
@@ -459,8 +459,15 @@ sub mux_input {
 # client disconnected, remove the active connection
 sub mux_close {
     my ($self, $mux, $fh) = @_;
-    delete $active_connections{''.$fh};
-    syslog("LOG_DEBUG", "multi: mux_close cleaning up child: $fh; ". 
+    my ($peeraddr, $peerport) = (
+        $self->{net_server}->{server}->{peeraddr},
+        $self->{net_server}->{server}->{peerport}
+    );
+
+    my $conn_id = "$peeraddr:$peerport";
+
+    delete $active_connections{$conn_id};
+    syslog("LOG_DEBUG", "multi: mux_close cleaning up child: $conn_id; ". 
         scalar(keys %active_connections)." remain");
 }
 
-- 
2.11.0