From 89a98be605370d75769485b4c7892ce586591aac Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Mon, 13 Sep 2010 17:49:55 +0200
Subject: Display priority, login time, pid and pid info in webadmin
 (EJAB-1300)

---
 src/ejabberd_c2s.erl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'src/ejabberd_c2s.erl')

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;
-- 
cgit v1.2.3