From a21edc2f3a0f25dec8238732f23902e118d79913 Mon Sep 17 00:00:00 2001 From: Evgeniy Khramtsov Date: Wed, 9 Apr 2014 13:12:20 +0400 Subject: [PATCH] Pretty print accepted transport address --- src/ejabberd_listener.erl | 7 ++++--- 1 file 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,