0

我目前正在尝试在 muc_filter_message 挂钩内的自定义 Ejabberd 模块中获取房间的居住者，但所有获取房间状态的尝试都超时。

错误：

2016-07-25 10:43:04.802 [error] <0.13909.0>@ejabberd_hooks:run_fold1:368 {timeout,{gen_fsm,sync_send_all_state_event,[<0.13909.0>,get_state]}}

进口+钩子功能（削减）

-behaviour(gen_mod).

-include("ejabberd.hrl").
-include("logger.hrl").
-include("jlib.hrl").
-include("mod_muc_room.hrl").
-include("mod_muc.hrl").
-include("ejabberd_http.hrl").
-include("ejabberd_web_admin.hrl").
-include("ejabberd_commands.hrl").

muc_message_sent(Stanza, MUCState, RoomJID, FromJID, FromNick) ->

  {_, RoomName, Host, _, _, _, _} = RoomJID,
  OccuList = get_room_occupants(RoomName, Host),
  ?INFO_MSG("muc_message_sent OccuList ~p~n", [OccuList]),
Stanza.

房间占用者检索代码：

get_room_occupants(Room, Host) ->
case get_room_pid(Room, Host) of
  room_not_found ->
  ?INFO_MSG("muc_message_sent get_room_occ ~p~n", [room]);
  Pid -> get_room_occupants(Pid)
end.

get_room_occupants(Pid) ->
  ?INFO_MSG("muc_message_sent get_room_pstate ~p~n", [Pid]),
  S = get_room_state(Pid),
  ?INFO_MSG("muc_message_sent get_room_state S ~p~n", [S]),
  lists:map(
    fun({_LJID, Info}) ->
      {jid:to_string(Info#user.jid),
       Info#user.nick,
       atom_to_list(Info#user.role)}
    end,
  dict:to_list(S#state.users)).

%% @doc Get the Pid of an existing MUC room, or 'room_not_found'.
get_room_pid(Name, Service) ->
  case mnesia:dirty_read(muc_online_room, {Name, Service}) of
      [] ->
        ?INFO_MSG("muc_message_sent get_room_pid ~p~n", [failed]),
        room_not_found;
      [Room] ->
        ?INFO_MSG("muc_message_sent get_room_pid ~p~n", [pid]),
          Room#muc_online_room.pid
end.


get_room_state(Room_pid) ->
  {ok, R} = gen_fsm:sync_send_all_state_event(Room_pid, get_state),
  R.

get_room_occupants 代码是直接从 mod_muc_admin 中提取的，它可以正常工作（但我找不到直接使用该模块中的函数的方法）。现在已经坚持了一段时间，所以任何想法都会受到赞赏。

4

0 回答 0