diff options
| author | Evgeniy Khramtsov <ekhramtsov@process-one.net> | 2014-04-09 13:12:20 +0400 |
|---|---|---|
| committer | Christophe Romain <christophe.romain@process-one.net> | 2014-04-11 12:30:58 +0200 |
| commit | a21edc2f3a0f25dec8238732f23902e118d79913 (patch) | |
| tree | ac47e83deee7040801752827bdb0bac42e8d3744 | |
| parent | Update Hebrew translation (thanks to Isratine Citizen) (diff) | |
Pretty print accepted transport address
Diffstat (limited to '')
| -rw-r--r-- | src/ejabberd_listener.erl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/ejabberd_listener.erl b/src/ejabberd_listener.erl index b0d261ccb..54563d73d 100644 --- 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, |