throw:Throw ->
Throw;
E:R ->
- ?ERROR_MSG("Unknown ~p:~p, ~p", [E, R, erlang:get_stacktrace()]),
+ St = erlang:get_stacktrace(),
+ ?ERROR_MSG("Unknown ~p:~p, ~p", [E, R, St]),
{error, get_certificates}
end;
false ->
throw:Throw ->
Throw;
E:R ->
- ?ERROR_MSG("Unknown ~p:~p, ~p", [E, R, erlang:get_stacktrace()]),
+ St = erlang:get_stacktrace(),
+ ?ERROR_MSG("Unknown ~p:~p, ~p", [E, R, St]),
{error, DomainName, get_certificate}
end.
throw:Throw ->
Throw;
E:R ->
- ?ERROR_MSG("Unknown ~p:~p, ~p", [E, R, erlang:get_stacktrace()]),
+ St = erlang:get_stacktrace(),
+ ?ERROR_MSG("Unknown ~p:~p, ~p", [E, R, St]),
{error, get_certificates}
end.
throw:Throw ->
Throw;
E:R ->
- ?ERROR_MSG("Unknown ~p:~p, ~p", [E, R, erlang:get_stacktrace()]),
+ St = erlang:get_stacktrace(),
+ ?ERROR_MSG("Unknown ~p:~p, ~p", [E, R, St]),
{error, list_certificates}
end;
false ->
end
catch
E:R ->
- ?ERROR_MSG("Unknown ~p:~p, ~p", [E, R, erlang:get_stacktrace()]),
+ St = erlang:get_stacktrace(),
+ ?ERROR_MSG("Unknown ~p:~p, ~p", [E, R, St]),
fail_format_certificate(DomainName)
end.
throw:Throw ->
Throw;
E:R ->
- ?ERROR_MSG("Unknown ~p:~p, ~p", [E, R, erlang:get_stacktrace()]),
+ St = erlang:get_stacktrace(),
+ ?ERROR_MSG("Unknown ~p:~p, ~p", [E, R, St]),
{error, revoke_certificate}
end.
throw:Throw ->
Throw;
E:R ->
- ?ERROR_MSG("Unknown ~p:~p, ~p", [E, R, erlang:get_stacktrace()]),
+ St = erlang:get_stacktrace(),
+ ?ERROR_MSG("Unknown ~p:~p, ~p", [E, R, St]),
{error, DomainName, saving}
end.
apply(Module, Function, Args)
end
catch E:R when E /= exit; R /= normal ->
+ St = get_stacktrace(),
?ERROR_MSG("Hook ~p crashed when running ~p:~p/~p:~n"
"** Reason = ~p~n"
"** Arguments = ~p",
[Hook, Module, Function, length(Args),
- {E, R, get_stacktrace()}, Args]),
+ {E, R, St}, Args]),
'EXIT'
end.
route(Packet) ->
try do_route(Packet)
catch E:R ->
+ St = erlang:get_stacktrace(),
?ERROR_MSG("failed to route packet:~n~s~nReason = ~p",
- [xmpp:pp(Packet), {E, {R, erlang:get_stacktrace()}}])
+ [xmpp:pp(Packet), {E, {R, St}}])
end.
-spec route_iq(iq(), function()) -> ok.
route(Packet) ->
try do_route(Packet)
catch E:R ->
+ St = erlang:get_stacktrace(),
?ERROR_MSG("failed to route packet:~n~s~nReason = ~p",
- [xmpp:pp(Packet), {E, {R, erlang:get_stacktrace()}}])
+ [xmpp:pp(Packet), {E, {R, St}}])
end.
-spec route(jid(), jid(), xmlel() | stanza()) -> ok.
catch _:{bad_node, _} ->
[];
E:R ->
+ St = erlang:get_stacktrace(),
?ERROR_MSG("failed to decode row from 'route' table:~n"
"Row = ~p~n"
"Domain = ~s~n"
"Reason = ~p",
- [Row, Domain, {E, {R, erlang:get_stacktrace()}}]),
+ [Row, Domain, {E, {R, St}}]),
[]
end.
route(Packet) ->
try do_route(Packet)
catch E:R ->
+ St = erlang:get_stacktrace(),
?ERROR_MSG("failed to route packet:~n~s~nReason = ~p",
- [xmpp:pp(Packet), {E, {R, erlang:get_stacktrace()}}])
+ [xmpp:pp(Packet), {E, {R, St}}])
end.
clean_temporarily_blocked_table() ->
Packet1 ->
try do_route(Packet1), ok
catch E:R ->
+ St = erlang:get_stacktrace(),
?ERROR_MSG("failed to route packet:~n~s~nReason = ~p",
[xmpp:pp(Packet1),
- {E, {R, erlang:get_stacktrace()}}])
+ {E, {R, St}}])
end
end.
ignore ->
ok
catch E:R ->
+ St = erlang:get_stacktrace(),
?ERROR_MSG("failed to process iq:~n~s~nReason = ~p",
- [xmpp:pp(IQ), {E, {R, erlang:get_stacktrace()}}]),
+ [xmpp:pp(IQ), {E, {R, St}}]),
Txt = <<"Module failed to handle the query">>,
Err = xmpp:err_internal_server_error(Txt, IQ#iq.lang),
ejabberd_router:route_error(IQ, Err)
?DEBUG("Bad Request: ~p", [_Err]),
badrequest_response(<<"Invalid JSON input">>);
_:_Error ->
- ?DEBUG("Bad Request: ~p ~p", [_Error, erlang:get_stacktrace()]),
+ St = erlang:get_stacktrace(),
+ ?DEBUG("Bad Request: ~p ~p", [_Error, St]),
badrequest_response()
end;
process([Call], #request{method = 'GET', q = Data, ip = {IP, _}} = Req) ->
throw:{error, unknown_command} ->
json_format({404, 44, <<"Command not found.">>});
_:_Error ->
-
- ?DEBUG("Bad Request: ~p ~p", [_Error, erlang:get_stacktrace()]),
- badrequest_response()
+ St = erlang:get_stacktrace(),
+ ?DEBUG("Bad Request: ~p ~p", [_Error, St]),
+ badrequest_response()
end;
process([_Call], #request{method = 'OPTIONS', data = <<>>}) ->
{200, ?OPTIONS_HEADER, []};
throw:Msg when is_list(Msg); is_binary(Msg) ->
{400, iolist_to_binary(Msg)};
_Error ->
- ?ERROR_MSG("REST API Error: ~p ~p", [_Error, erlang:get_stacktrace()]),
+ St = erlang:get_stacktrace(),
+ ?ERROR_MSG("REST API Error: ~p ~p", [_Error, St]),
{500, <<"internal_error">>}
end;
{error, Msg} ->
undefined ->
<<"">>
end,
+ St = erlang:get_stacktrace(),
?ERROR_MSG("failed to set item ~p~s: ~p",
- [Item, FromSuffix,
- {E, {R, erlang:get_stacktrace()}}]),
+ [Item, FromSuffix, {E, {R, St}}]),
{error, xmpp:err_internal_server_error()}
end.
ver = Version}
end)
catch E:R ->
+ St = erlang:get_stacktrace(),
?ERROR_MSG("failed to process roster get for ~s: ~p",
- [jid:encode(To), {E, {R, erlang:get_stacktrace()}}]),
+ [jid:encode(To), {E, {R, St}}]),
Txt = <<"Roster module has failed">>,
xmpp:make_error(IQ, xmpp:err_internal_server_error(Txt, Lang))
end.