Erlang 聊天室程序(二) 客户端的退出

接着上一篇Erlang 聊天室程序(一) 。客户端退出会导致服务器端异常退出。

异常信息如下：

client sockt closed ** exception exit: {bad_return_value,true}
显然已经在client_session的 handle_info({tcp_closed,Socket},State) 中捕捉到了Socket断链信息。

handle_info({tcp_closed,Socket},State)-> io:format("client sockt closed ~n"), chat_room:logout(State), {noreply,State}; 再向chat_room:logout(Ref)中加入打印代码进行测试：

logout(Ref)-> io:format("ref info:~p~n",[Ref]), gen_server:call(?MODULE, {remove_clientinfo,Ref}), ok.
错误信息如下：

client sockt closed ref info:{clientinfo,[1], undefined,#Port<0.1778>,undefined,undefined,undefined, undefined,undefined,undefined,undefined} ** exception exit: {bad_return_value,true}
改变位置：

gen_server:call(?MODULE, {remove_clientinfo,Ref}), io:format("ref info:~p~n",[Ref])
错误信息如下：

client sockt closed ** exception exit: {bad_return_value,true}
看来错误是出在gen_server:call里面的。

handle_call({remove_clientinfo,Ref},From,State)-> Key=Ref#clientinfo.id, ets:delete(clientinfo, Key), ;

的确如此，加上返回值{reply,ok,State} 再进行测试。

client sockt closed ref info:{clientinfo,[1], undefined,#Port<0.1778>,undefined,undefined,undefined, undefined,undefined,undefined,undefined}
已经没有错误信息了。