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}

已经没有错误信息了。