Erlang 聊天室程序(5) 设置客户端信息

Erlang 聊天室程序(五) 设置客户端信息

接下来实现设置客户端信息功能，使客户端可以设置自己的名称、性别、年龄、所做省份等信息。我们暂时不管客户端如何实现，先对服务器端代码进行调整。

这里需要做以下几件事：

1.修改client_session中handle_info({tcp,Socket,Data},State) 函数对接收到的消息包的处理，使其能支持“客户端信息设置消息”。

考虑到后面还会有更多种类的消息，在这里添加一个消息路由模块message_router.erl，主要负责验证收到的消息类型和主题，并最终路由到正确的消息处理模块中去。

2.将chat_room中的客户端信息管理代码独立为一个client_manager.erl，负责具体的客户端信息处理。

3.实现将message 中type=set、subject=clientinfo 的消息路由到client_manager中，并实现更新ets表中相应的字段信息，最终回复一个消息，或广播消息给所有在线用户。

代码如下：

client_session.erl

注意：在将原始json转成message后需要替换掉原来的from。</p><p>?</p><p>message_router.erl <br><textarea style="width: 658px; height: 1799px;" name="code" name="code" name="code" name="code" name="code" name="code" name="code" name="code" class="java">%% Author: Administrator%% Created: 2012-2-28%% Description: TODO: response for managing clientinfo-module(client_manager).%%%% Include files%%-include("clientinfo.hrl").-include("message.hrl").%%%% Exported Functions%%-export([init/0,addClient/1,updateClient/1,getNextClient/1,removeClient/1]).%%%% API Functions%%%%create clientinfo talbe hereinit()->ets:new(clientinfo,[public, ordered_set, named_table,{keypos,#clientinfo.id}]).%%%% Local Functions%%%add new clientinfoaddClient(ClientInfo)->ets:insert(clientinfo, ClientInfo).%update clientinfoupdateClient(Message)->#message{content=Info,from=Key}=Message,io:format("content of message is:~p~n",[Info]),%TODO:we should formart content from json to record #clientinfoif is_record(Info,clientinfo) -> #clientinfo{nick=Nick,sex=Sex,age=Age,province=Province, city=City,posx=Px,posy=Py}=Info, ets:update_element(clientinfo, Key, [#clientinfo.nick=Nick,#clientinfo.sex=Sex,#clientinfo.age=Age,#clientinfo.province=Province, #clientinfo.city=City,#clientinfo.posx=Px,#clientinfo.posy=Py]); true->io:format("wrong format of clientinfo"),falseend.%remove clientinforemoveClient(Key)->ets:delete(clientinfo, Key).getNextClient(Key)->case ets:next(clientinfo, Key) of'$end_of_table'->[];Next-> ets:lookup(clientinfo, Next)end;getNextClient([])-> case ets:first(clientinfo) of'$end_of_table'->[];Key->ets:lookup(clientinfo, Key)end.
注：上面的client_manager.erl代码中并未实现将 #message.content 转为#clientinfo 的过程，等客户端实现后再处理，这里留个尾。

?