Erlang 聊天室程序(8) 主题房间-supervisor 的使用

Erlang 聊天室程序(八) 主题房间---supervisor 的使用

之前实现的功能相当于一个大厅，这里我们为这个聊天室程序添加“主题房间的功能”。客户端登陆后处于大厅中，然后获取目前所有的主题房间，再发送消息进入到某个房间内。同一房间的成员可见，发送的消息也只限本房间可见。

为了管理这些房间，Erlang Opt中的监控树是最合适的。

新建一个模块room_manager.erl 其行为遵守gen_supervisor，子进程为chat_room

</p><p> 修改chat_room.erl</p><p><textarea name="code" style="width: 657px; height: 57px;" style="width: 658px; height: 44px;" style="width: 658px; height: 336px;" style="width: 654px; height: 38px;" style="width: 653px; height: 364px;" style="width: 657px; height: 2364px;" style="width: 656px; height: 1717px;" has change nickname:" ++ Nick}, NewMessage=#message{id="0", from=Id, to="", content=Content, type="msg", subject="chat", time=Message#message.time}, io:format("Notice Message is:~p~n",[NewMessage]), sendMsg(Table,NewMessage,[]); {false,Rec}-> ok end, {reply,ok,State}.sendMsg(Table,Msg,Key)-> io:format("broading casting msg~p~n",[Key]), case client_manager:getNextClient(Table,Key)of [Record]-> Next=Record#clientinfo.id, Pid=Record#clientinfo.pid, Pid!{dwmsg,Msg}, sendMsg(Table,Msg,[Next]); []-> ok end.getClient(Table,Key,UList)-> case client_manager:getNextClient(Key) of [Record]-> Next=Record#clientinfo.id, io:format("record is:~p~n",[Record]), Json=util_SetInfoParas:deparaElement(Record), io:format("clientSession found:~p~n",[Record]), NewUList=[Json|UList], getClient(Table,[Next],NewUList); []-> UList end.

如此即可。注：client_manager有一个getNick/1 函数，负责返回对应ID用户的昵称。如何从正确的表格中找出用户的昵称？这个问题将留在用户消息路由部分去处理。

暂时到这。

?

?

?

?