diff options
author | Evgeniy Khramtsov <ekhramtsov@process-one.net> | 2018-09-01 19:37:26 +0300 |
---|---|---|
committer | Evgeniy Khramtsov <ekhramtsov@process-one.net> | 2018-09-01 19:37:26 +0300 |
commit | 88d0b71d58cba45cdbf051f80e2c7c1940f96c75 (patch) | |
tree | dc2856b1b053c29e8cbf9a3b98dbdcf7091bcb36 /src/ejabberd_acme.erl | |
parent | Don't set termination reason into presence-unavailable status (diff) |
Get stacktrace out of lager context
Calling erlang:get_stacktrace() inside lager functions produces
stacktraces of the logging function itself, not the function which has failed.
Diffstat (limited to '')
-rw-r--r-- | src/ejabberd_acme.erl | 21 |
1 files changed, 14 insertions, 7 deletions
diff --git a/src/ejabberd_acme.erl b/src/ejabberd_acme.erl index 14c0ad9ad..6c503f205 100644 --- a/src/ejabberd_acme.erl +++ b/src/ejabberd_acme.erl @@ -151,7 +151,8 @@ get_certificates(Domains) -> 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 -> @@ -243,7 +244,8 @@ get_certificate(CAUrl, DomainName, PrivateKey) -> 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. @@ -382,7 +384,8 @@ renew_certificates() -> 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. @@ -447,7 +450,8 @@ list_certificates(Verbose) -> 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 -> @@ -489,7 +493,8 @@ format_certificate(DataCert, Verbose) -> 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. @@ -614,7 +619,8 @@ revoke_certificates(DomainOrFile) -> 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. @@ -1118,7 +1124,8 @@ save_certificate({ok, DomainName, Cert}) -> 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. |