Question

我目前有一个OTP应用程序，我正在使用SASL错误日志记录。日志转到二进制编码文件，我必须使用rb库来读取。这是一个很大的痛苦，因为我真正想要的是能够将所有日志导出到纯文本并通过它们进行攻击。我在一个旧邮件列表上找到了一条评论，该列表提供了一些指向备用error_loggers的链接：

http://erlang.2086793.n4.nabble.com/Lots-of-questions-about-error-logger-td2109935.html

但是当我尝试编译它时，代码已经过时并且会引发大量错误。是否有更新的库可用于将SASL消息发送到纯文本文件？

Answer 1

你可以从basho人那里试试lager，这是一个很好的登录erlang的库。

问候。

Answer 2

您可以使用sasl事件框架来创建自己的事件处理程序。详细解释见书“Manning.Erlang和Otp in action，part 2 chapter 7，page 170（可能不同版本不同）”日志和事件处理erlang / otp方式

对于实际代码，请阅读couchdb的http://couchdb.apache.org/downloads.html源代码文件“couch_log.erl”和“couch_event_sup.erl”，第一个文件是事件处理程序，第二个文件是“couch_log”的gen_server包装模块。 / p>

以下代码引自“couch_log.erl”文件以获取解释

-behaviour(gen_event). %<======event handler OTP module behaviour
init([]) ->
    % read config and register for configuration changes

    % just stop if one of the config settings change. couch_server_sup
    % will restart us and then we will pick up the new settings.
    ok = couch_config:register(
        fun("log", "file") ->
            ?MODULE:stop();
        ("log", "level") ->
            ?MODULE:stop();
        ("log", "include_sasl") ->
            ?MODULE:stop()
        end),

    Filename = couch_config:get("log", "file", "couchdb.log"),
    Level = level_integer(list_to_atom(couch_config:get("log", "level", "info"))),
    Sasl = list_to_atom(couch_config:get("log", "include_sasl", "true")),

    case ets:info(?MODULE) of
    undefined -> ets:new(?MODULE, [named_table]);
    _ -> ok
    end,
    ets:insert(?MODULE, {level, Level}),

    case file:open(Filename, [append]) of %<<========open customzied file for logging
    {ok, Fd} ->
        {ok, {Fd, Level, Sasl}}; <<=========save the log file deviceIO into module state
    {error, eacces} ->
        {stop, {file_permission_error, Filename}};
    Error ->
        {stop, Error}
    end.

debug(Format, Args) ->
    {ConsoleMsg, FileMsg} = get_log_messages(self(), debug, Format, Args),
    gen_event:sync_notify(error_logger, {couch_debug, ConsoleMsg, FileMsg}). <=====generate customized logging message

handle_event({couch_debug, ConMsg, FileMsg}, {Fd, LogLevel, _Sasl}=State) <====handle the message
when LogLevel =< ?LEVEL_DEBUG ->
    log(Fd, ConMsg, FileMsg),
    {ok, State};

log(Fd, Pid, Level, Format, Args) ->
    Msg = io_lib:format(Format, Args),
    ok = io:format("[~s] [~p] ~s~n", [Level, Pid, Msg]), % dump to console too
    Msg2 = re:replace(lists:flatten(Msg),"\\r\\n|\\r|\\n", "\r\n",
        [global, {return, list}]),
    ok = io:format(Fd, "[~s] [~s] [~p] ~s\r~n", [httpd_util:rfc1123_date(), Level, Pid, Msg2]).

log(Fd, ConsoleMsg, FileMsg) ->
    ok = io:put_chars(ConsoleMsg),
    ok = io:put_chars(Fd, FileMsg).  <=====write the log into file

Answer 3

你可以尝试alogger为伟大的好！

以明文形式记录Erlang错误

3 个答案: