diff options
author | Alexey Shchepin <alexey@process-one.net> | 2007-06-10 18:13:37 +0000 |
---|---|---|
committer | Alexey Shchepin <alexey@process-one.net> | 2007-06-10 18:13:37 +0000 |
commit | 241c49dc3c7cee38d0d6e96eae0b50f9bb742e2c (patch) | |
tree | 3f0b7d58a85484288e4daeb1530c9c4cdda561b3 /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.erl | 13 |
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), |