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

handle_info({tcp,Socket,Data},State)-> io:format("client_session tcp data recived ~p~n",[Data]), %io:format("msg recived ~p~n",[Message]), case util_MessageParas:paraseDecode(Data) of {error,Reason}-> io:format("decode Data error ~p~n",[Reason]); {Message}-> %% we must replace "from" to avoid atack #clientinfo{id=Id}=State, NewMessage=Message#message{from=Id}, message_router:route(NewMessage) end, %NewMsg=#message{type=msg,from=State#clientinfo.id,content=Data}, %chat_room:broadCastMsg(NewMsg), {noreply,State}; 注意：在将原始json转成message后需要替换掉原来的from。

 

message_router.erl
%% Author: Administrator %% Created: 2012-2-28 %% Description: TODO: Add description to message_router -module(message_router). %% %% Include files %% -include("message.hrl"). %% %% Exported Functions %% -export([route/1]). %% %% API Functions %% %% %% Local Functions %% %process message %first we route by message type route(Message)when is_record(Message,message)-> #message{type=Type}=Message, case validateType(Type) of {error,Reason}-> io:format("validate message type error:~p~n",[Reason]); TheType-> #message{subject=Sub}=Message, case validateSubject(Sub) of {error,Reason}-> io:format("validate message subject error:~p~n",[Reason]); TheSub-> routeMessage(TheType,TheSub,Message) end end ; route(Els)-> io:format("message should be record:~p~n",[Els]) . %we should validate message type here validateType(Type)-> case Type of "msg"-> Type; "set"-> Type; "get"-> Type; _Els-> {error,"wrong message type"} end . validateSubject(Sub)-> case Sub of "chat"-> Sub; "uinfo"-> Sub; _Els-> {error,"wrong message subject"} end . %we will add a routing table and a call back modle later routeMessage(Type,Sub,Message)-> case Type of "msg"-> case Sub of "chat"-> chat_room:broadCastMsg(Message); _Els-> io:format("unkonw msssage subject:~p~n",[Sub]) end; "set"-> case Sub of "uinfo"-> chat_room:setUserInfo(Message); _Els-> io:format("unkonw msssage subject:~p~n",[Sub]) end; "get"-> ok; _Els-> {error,"wrong message type"} end . 注：这里只做简单的判断，后面可以考虑使用路由表的方式路由信息。

 

修改chat_room.erl中涉及到客户端信息操作的部分：

init([])-> id_generator:start_link(), %ets:new(clientinfo,[public, % ordered_set, % named_table, % {keypos,#clientinfo.id} % ]), client_manager:init(), {ok,#state{}} .
handle_call({remove_clientinfo,Ref},From,State)-> Key=Ref#clientinfo.id, %ets:delete(clientinfo, Key), client_manager:removeClient(Key), {reply,ok,State} ;
handle_call({sendmsg,Msg},From,State)-> %Key=ets:first(clientinfo), %io:format("feching talbe key is ~p~n",[Key]), %sendMsg(Key,Msg), sendMsg(Msg), {reply,ok,State} ;
handle_call({add_clientinfo,ClientInfo},From,State)-> %store clientinfo to ets %ets:insert(clientinfo, NewRec) client_manager:addClient(ClientInfo), {reply,ok,State} ; handle_call({set_clientinfo,Message},From,State)-> %we can send result message to client %or send a broadcast message to all client client_manager:updateClient(Message), {reply,ok,State} .

bindPid(Record,Socket)-> io:format("binding socket...~n"), case gen_tcp:controlling_process(Socket, Record#clientinfo.pid) of {error,Reason}-> io:format("binding socket...error~n"); ok -> NewRec =#clientinfo{id=Record#clientinfo.id,socket=Socket,pid=Record#clientinfo.pid}, gen_server:call(?MODULE, {add_clientinfo,NewRec}), %then we send info to clientSession to update it's State (Socket info) Pid=Record#clientinfo.pid, Pid!{bind,Socket}, io:format("clientBinded~n") end .
sendMsg(Msg)-> %case ets:lookup(clientinfo, Key)of % [Record]-> % io:format("Record found ~p~n",[Record]), % Pid=Record#clientinfo.pid, % %while send down we change msg type to dwmsg % io:format("send smg to client_session ~p~n",[Pid]), % Pid!{dwmsg,Msg}, % Next=ets:next(clientinfo, Key), % sendMsg(Next,Msg); % []-> % io:format("no clientinfo found~n") %end case client_manager:getNextClient([])of [Record]-> Next=Record#clientinfo.id, Pid=Record#clientinfo.pid, Pid!{dwmsg,Msg}, sendMsg(Msg); []-> ok end .
setUserInfo(Message)-> gen_server:call(?MODULE, {set_clientinfo,Message}) .
client_manager.erl

%% 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 here init()-> ets:new(clientinfo,[public, ordered_set, named_table, {keypos,#clientinfo.id} ]) . %% %% Local Functions %% %add new clientinfo addClient(ClientInfo)-> ets:insert(clientinfo, ClientInfo) . %update clientinfo updateClient(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 #clientinfo if 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"), false end . %remove clientinfo removeClient(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 的过程，等客户端实现后再处理，这里留个尾。