diff options
Diffstat (limited to 'p11p-daemon/src/p11p_manager.erl')
| -rw-r--r-- | p11p-daemon/src/p11p_manager.erl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/p11p-daemon/src/p11p_manager.erl b/p11p-daemon/src/p11p_manager.erl index 2dbdf6c..209d08e 100644 --- a/p11p-daemon/src/p11p_manager.erl +++ b/p11p-daemon/src/p11p_manager.erl @@ -126,9 +126,7 @@ handle_cast({server_event, server_gone, TokNameIn}, S = #state{vtokens = Tokens} Token = TokenIn#vtoken{clients = Clients, server = undefined}, {noreply, S#state{vtokens = Tokens#{TokNameIn := Token}}}; -%% Client reporting that a token has timed out -- mark current client -%% not running, inform server, rotate client list and start new -%% client. +%% Client reporting that a token has timed out. handle_cast({client_event, timeout, TokName}, State) -> #{TokName := VToken} = State#state.vtokens, client_timeout(TokName, VToken, State); @@ -225,6 +223,8 @@ next_client(VToken = #vtoken{clients = Clients}) -> gen_server:cast(self(), {start_client, OldC#client.tokname}), VToken#vtoken{clients = NewClients}. +%% Mark current client not running, inform its server, rotate client +%% list and start a new client. client_timeout(TokName, VToken = #vtoken{retries = Retries}, State = #state{vtokens = VTokens}) @@ -240,7 +240,7 @@ client_timeout(TokName, State) -> lager:debug("~p: ~s: token timed out, disconnecting app", [self(), TokName]), p11p_server:token_gone(VToken#vtoken.server, true), - {stop, State}. + {stop, normal, State}. start_client(Client, Server, Timeout) -> {ok, Pid} = p11p_client:start_link(Client#client.servid, |