diff --git a/src/errLogger/lgErrLoggerH.erl b/src/errLogger/lgErrLoggerH.erl index 0673cd9..4b749a9 100644 --- a/src/errLogger/lgErrLoggerH.erl +++ b/src/errLogger/lgErrLoggerH.erl @@ -43,12 +43,14 @@ -define(LOGMSG(Sink, Severity, PidOrMd, Msg), case ?LgShouldLog(Sink, Severity) of true -> - case is_pid(PidOrMd) of - true -> + if + is_pid(PidOrMd) -> eLog:doLogImpl(Severity, PidOrMd, 'Undef', 'Undef', 'Undef', 0, [], Msg, [], 0, Sink, safe); - _ -> + is_list(PidOrMd) -> {_, LogPid} = lists:keyfind(pid, 1, PidOrMd), - eLog:doLogImpl(Severity, LogPid, 'Undef', 'Undef', 'Undef', 0, lists:keydelete(pid, 1, PidOrMd), Msg, [], 0, Sink, safe) + eLog:doLogImpl(Severity, LogPid, 'Undef', 'Undef', 'Undef', 0, lists:keydelete(pid, 1, PidOrMd), Msg, [], 0, Sink, safe); + true -> + eLog:doLogImpl(Severity, list_to_pid("<0.0.0>"), 'Undef', 'Undef', 'Undef', 0, [], Msg, [{tag, PidOrMd}], 0, Sink, safe) end, logged; _ -> no_log @@ -59,12 +61,14 @@ -define(LOGFMT(Sink, Severity, PidOrMd, Fmt, Args), case ?LgShouldLog(Sink, Severity) of true -> - case is_pid(PidOrMd) of - true -> + if + is_pid(PidOrMd) -> eLog:doLogImpl(Severity, PidOrMd, 'Undef', 'Undef', 'Undef', 0, [], Fmt, Args, 0, Sink, safe); - _ -> + is_list(PidOrMd) -> {_, LogPid} = lists:keyfind(pid, 1, PidOrMd), - eLog:doLogImpl(Severity, LogPid, 'Undef', 'Undef', 'Undef', 0, lists:keydelete(pid, 1, PidOrMd), Fmt, Args, 0, Sink, safe) + eLog:doLogImpl(Severity, LogPid, 'Undef', 'Undef', 'Undef', 0, lists:keydelete(pid, 1, PidOrMd), Fmt, Args, 0, Sink, safe); + true -> + eLog:doLogImpl(Severity, list_to_pid("<0.0.0>"), 'Undef', 'Undef', 'Undef', 0, [{tag, PidOrMd}], Fmt, Args, 0, Sink, safe) end, logged; _ -> no_log