aboutsummaryrefslogtreecommitdiff
path: root/src/web/ejabberd_web_admin.erl
diff options
context:
space:
mode:
authorAlexey Shchepin <alexey@process-one.net>2007-06-10 18:13:37 +0000
committerAlexey Shchepin <alexey@process-one.net>2007-06-10 18:13:37 +0000
commit241c49dc3c7cee38d0d6e96eae0b50f9bb742e2c (patch)
tree3f0b7d58a85484288e4daeb1530c9c4cdda561b3 /src/web/ejabberd_web_admin.erl
parent* src/ejabberd_config.erl: Fixed "language" option processing (diff)
* src/web/ejabberd_web_admin.erl: Show IP address of connected
resources on user info page (thanks to Oleg Palij) SVN Revision: 781
Diffstat (limited to 'src/web/ejabberd_web_admin.erl')
-rw-r--r--src/web/ejabberd_web_admin.erl13
1 files changed, 12 insertions, 1 deletions
diff --git a/src/web/ejabberd_web_admin.erl b/src/web/ejabberd_web_admin.erl
index cd054a62f..58b0ecb12 100644
--- a/src/web/ejabberd_web_admin.erl
+++ b/src/web/ejabberd_web_admin.erl
@@ -1493,7 +1493,18 @@ user_info(User, Server, Query, Lang) ->
_ ->
[?XE("ul",
lists:map(fun(R) ->
- ?LI([?C(R)])
+ FIP = case ejabberd_sm:get_user_ip(
+ User, Server, R) of
+ undefined ->
+ "";
+ {IP, Port} ->
+ " (" ++
+ inet_parse:ntoa(IP) ++
+ ":" ++
+ integer_to_list(Port)
+ ++ ")"
+ end,
+ ?LI([?C(R ++ FIP)])
end, lists:sort(Resources)))]
end,
Password = ejabberd_auth:get_password_s(User, Server),