diff options
| author | Badlop <badlop@process-one.net> | 2010-09-13 19:49:55 +0400 |
|---|---|---|
| committer | Badlop <badlop@process-one.net> | 2010-09-13 19:49:55 +0400 |
| commit | 89a98be605370d75769485b4c7892ce586591aac (patch) | |
| tree | 2864edc46d153f3bc007d61ca5f942bc54829ecc /src/ejabberd_c2s.erl | |
| parent | 813022aec1a9ac999cc4ee548c8683ce0bc34ccd (diff) | |
Display priority, login time, pid and pid info in webadmin (EJAB-1300)
Diffstat (limited to 'src/ejabberd_c2s.erl')
| -rw-r--r-- | src/ejabberd_c2s.erl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/ejabberd_c2s.erl b/src/ejabberd_c2s.erl index 309287721..c21263d10 100644 --- a/src/ejabberd_c2s.erl +++ b/src/ejabberd_c2s.erl @@ -71,6 +71,9 @@ -include("ejabberd.hrl"). -include("mod_privacy.hrl"). +%% Copied from ejabberd_socket.erl +-record(socket_state, {sockmod, socket, receiver}). + -define(SETS, gb_sets). -define(DICT, dict). @@ -527,6 +530,7 @@ wait_for_auth({xmlstreamelement, El}, StateData) -> "(~w) Accepted legacy authentication for ~s by ~s", [StateData#state.socket, exmpp_jid:to_binary(JID), AuthModule]), + erlang:link((StateData#state.socket)#socket_state.receiver), SID = {now(), self()}, Conn = get_conn_type(StateData), %% Info = [{ip, StateData#state.ip}, {conn, Conn}, @@ -1594,9 +1598,6 @@ get_auth_tags([_ | L], U, P, D, R) -> get_auth_tags([], U, P, D, R) -> {U, P, D, R}. -%% Copied from ejabberd_socket.erl --record(socket_state, {sockmod, socket, receiver}). - get_conn_type(StateData) -> case (StateData#state.sockmod):get_sockmod(StateData#state.socket) of gen_tcp -> c2s; |