Pretty print accepted transport address

diff --git a/src/ejabberd_listener.erl b/src/ejabberd_listener.erl
index b0d261ccb6c70c85d1eea571620a4bd54f731d5f..54563d73d858cc9ad9ea3994b217bc3792f19f30 100644 (file)
--- a/src/ejabberd_listener.erl
+++ b/src/ejabberd_listener.erl
@@ -285,9 +285,10 @@ accept(ListenSocket, Module, Opts) ->
     case gen_tcp:accept(ListenSocket) of
        {ok, Socket} ->
            case {inet:sockname(Socket), inet:peername(Socket)} of
-               {{ok, Addr}, {ok, PAddr}} ->
-                   ?INFO_MSG("(~w) Accepted connection ~w -> ~w",
-                             [Socket, PAddr, Addr]);
+               {{ok, {Addr, Port}}, {ok, {PAddr, PPort}}} ->
+                   ?INFO_MSG("(~w) Accepted connection ~s:~p -> ~s:~p",
+                             [Socket, inet_parse:ntoa(PAddr), PPort,
+                              inet_parse:ntoa(Addr), Port]);
                _ ->
                    ok
            end,