Change some error messages.

SVN Revision: 2587
This commit is contained in:
Badlop 2009-09-07 14:28:08 +00:00
parent 860957d20c
commit d678a21f21
2 changed files with 5 additions and 3 deletions

View File

@ -1052,8 +1052,10 @@ srv_lookup(Server, Timeout, Retries) ->
{error, _Reason} ->
case inet_res:getbyname("_jabber._tcp." ++ Server, srv, Timeout) of
{error, timeout} ->
?ERROR_MSG("Couldn't resolve SRV records for ~p via nameservers ~p.",
[Server, inet_db:res_option(nameserver)]),
?ERROR_MSG("The DNS servers~n ~p~ntimed out on request"
" for ~p IN SRV."
" You should check your DNS configuration.",
[inet_db:res_option(nameserver), Server]),
srv_lookup(Server, Timeout, Retries - 1);
R -> R
end;

View File

@ -177,7 +177,7 @@ process_request(Data, IP) ->
{ok, {"", Rid, Attrs, Payload}} ->
case xml:get_attr_s("to",Attrs) of
"" ->
?ERROR_MSG("Session not created (Improper addressing)", []),
?INFO_MSG("Session not created (Improper addressing).~nAttributes: ~p", [Attrs]),
{200, ?HEADER, "<body type='terminate' "
"condition='improper-addressing' "
"xmlns='" ++ ?NS_HTTP_BIND ++ "'/>"};