/
custom_error_report.erl
60 lines (49 loc) · 1.85 KB
/
custom_error_report.erl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
-module(custom_error_report).
-behaviour(gen_event).
%% API
-export([register_with_logger/0]).
-export([init/1, handle_event/2, handle_call/2,
handle_info/2, terminate/2, code_change/3]).
-record(state, {}).
register_with_logger() ->
error_logger:add_report_handler(?MODULE).
init([]) ->
{ok, #state{}}.
handle_event({error, _Gleader, {Pid,Format,Data}}, State) ->
io:fwrite("ERROR <~p> ~s", [Pid, io_lib:format(Format, Data)]),
{ok, State};
handle_event({error_report, _Gleader, {Pid, std_error, Report}}, State) ->
io:fwrite("ERROR <~p> ~p", [Pid, Report]),
{ok, State};
handle_event({error_report, _Gleader, {Pid, Type, Report}}, State) ->
io:fwrite("ERROR <~p> ~p ~p", [Pid, Type, Report]),
{ok, State};
handle_event({warning_msg, _Gleader, {Pid, Format, Data}}, State) ->
io:fwrite("WARNING <~p> ~s", [Pid, io_lib:format(Format, Data)]),
{ok, State};
handle_event({warning_report,_Gleader,{Pid,std_warning,Report}}, State) ->
io:fwrite("WARNING <~p> ~p", [Pid, Report]),
{ok, State};
handle_event({warning_report,_Gleader,{Pid, Type, Report}}, State) ->
io:fwrite("WARNING <~p> ~p ~p", [Pid, Type, Report]),
{ok, State};
handle_event({info_msg, _Gleader, {Pid, Format, Data}}, State) ->
io:fwrite("INFO <~p> ~s", [Pid, io_lib:format(Format, Data)]),
{ok, State};
handle_event({info_report, _Gleader, {Pid, std_info, Report}}, State) ->
io:fwrite("INFO <~p> ~p", [Pid, Report]),
{ok, State};
handle_event({info_report, _Gleader, {Pid, Type, Report}}, State) ->
io:fwrite("INFO <~p> ~p ~p", [Pid, Type, Report]),
{ok, State};
handle_event(_Event, State) ->
{ok, State}.
handle_call(_Request, State) ->
Reply = ok,
{ok, Reply, State}.
handle_info(_Info, State) ->
{ok, State}.
terminate(_Reason, _State) ->
ok.
code_change(_OldVsn, State, _Extra) ->
{ok, State}.