diff options
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | src/web/ejabberd_web_admin.erl | 13 |
2 files changed, 17 insertions, 1 deletions
@@ -1,3 +1,8 @@ +2007-06-10 Alexey Shchepin <alexey@sevcom.net> + + * src/web/ejabberd_web_admin.erl: Show IP address of connected + resources on user info page (thanks to Oleg Palij) + 2007-06-07 Alexey Shchepin <alexey@sevcom.net> * src/ejabberd_config.erl: Fixed "language" option processing 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), |