浏览代码

trace_file don't work, if env "log_root" is set.

pull/258/head
MaximMinin 10 年前
父节点
当前提交
b7da929f69
共有 1 个文件被更改,包括 6 次插入5 次删除
  1. +6
    -5
      src/lager.erl

+ 6
- 5
src/lager.erl 查看文件

@ -150,24 +150,25 @@ trace_file(File, Filter, Options) when is_list(Options) ->
trace_file(File, Filter, debug, Options). trace_file(File, Filter, debug, Options).
trace_file(File, Filter, Level, Options) -> trace_file(File, Filter, Level, Options) ->
Trace0 = {Filter, Level, {lager_file_backend, File}},
FileName = lager_util:expand_path(File),
Trace0 = {Filter, Level, {lager_file_backend, FileName}},
case lager_util:validate_trace(Trace0) of case lager_util:validate_trace(Trace0) of
{ok, Trace} -> {ok, Trace} ->
Handlers = gen_event:which_handlers(lager_event), Handlers = gen_event:which_handlers(lager_event),
%% check if this file backend is already installed %% check if this file backend is already installed
Res = case lists:member({lager_file_backend, File}, Handlers) of
Res = case lists:member({lager_file_backend, FileName}, Handlers) of
false -> false ->
%% install the handler %% install the handler
LogFileConfig = lists:keystore(level, 1, lists:keystore(file, 1, Options, {file, File}), {level, none}),
LogFileConfig = lists:keystore(level, 1, lists:keystore(file, 1, Options, {file, FileName}), {level, none}),
supervisor:start_child(lager_handler_watcher_sup, supervisor:start_child(lager_handler_watcher_sup,
[lager_event, {lager_file_backend, File}, LogFileConfig]);
[lager_event, {lager_file_backend, FileName}, LogFileConfig]);
_ -> _ ->
{ok, exists} {ok, exists}
end, end,
case Res of case Res of
{ok, _} -> {ok, _} ->
add_trace_to_loglevel_config(Trace), add_trace_to_loglevel_config(Trace),
{ok, {{lager_file_backend, File}, Filter, Level}};
{ok, {{lager_file_backend, FileName}, Filter, Level}};
{error, _} = E -> {error, _} = E ->
E E
end; end;

正在加载...
取消
保存