Signed-off-by: Mike Rylander <mrylander@gmail.com>
my $c = $$login{id};
if ($$login{success}) {
- $active_connections{$c}{config} = $config;
-
- $active_connections{$c}{id} = $$login{id};
- $active_connections{$c}{transport} = $$login{transport};
-
for my $p (keys %{ $$login{net_server_parts} }) {
$active_connections{$c}{net_server}{$p} =
$$login{net_server_parts}{$p};
freeze({
id => $conn_id,
success => $success,
- transport => $transport,
net_server_parts => {
map { ($_ => $$self{$_}) } qw/ils state institution account/
}