From c74f234135970d9bd63f88ebd6feb31c8e0d9ef5 Mon Sep 17 00:00:00 2001 From: Mike Rylander Date: Fri, 25 Jul 2014 15:47:01 -0400 Subject: [PATCH] pull just what we need, merge it later Signed-off-by: Mike Rylander --- SIPServer.pm | 21 ++++++++++++++++++--- 1 file changed, 18 insertions(+), 3 deletions(-) diff --git a/SIPServer.pm b/SIPServer.pm index 071a3ad..272e27d 100644 --- a/SIPServer.pm +++ b/SIPServer.pm @@ -193,10 +193,23 @@ my %active_connections; sub PERMAFROST { while (my $login = $mp_fifo->deq) { $login = thaw($login); + + my $c = $$login{id}; if ($$login{success}) { - $active_connections{$$login{id}} = $login; + $active_connections{$c}{config} = $config; + + $active_connections{$c}{id} = $$login{id}; + $active_connections{$c}{transport} = $$login{transport}; + + $active_connections{$c}{net_server} = bless( + { # Last wins + %{ $active_connections{$c}{net_server} }, + %{ $$login{net_server_parts} } + }, + ref($active_connections{$c}{net_server}) + ); } else { - delete $active_connections{$$login{id}}; + delete $active_connections{$c}; } } } @@ -293,7 +306,9 @@ sub mux_input { id => $conn_id, success => $success, transport => $transport, - net_server => bless({%$self}, ref($self)) + net_server_parts => { + %$self{ wq/service ils state institution account/ } + } }) ); -- 2.11.0