Welcome to mirror list, hosted at ThFree Co, Russian Federation.

github.com/processone/ejabberd.git - Unnamed repository; edit this file 'description' to name the repository.
summaryrefslogtreecommitdiff
path: root/src/ejabberd_logger_h.erl
diff options
context:
space:
mode:
Diffstat (limited to 'src/ejabberd_logger_h.erl')
-rw-r--r--src/ejabberd_logger_h.erl236
1 files changed, 0 insertions, 236 deletions
diff --git a/src/ejabberd_logger_h.erl b/src/ejabberd_logger_h.erl
deleted file mode 100644
index 6f3e0a6d8..000000000
--- a/src/ejabberd_logger_h.erl
+++ /dev/null
@@ -1,236 +0,0 @@
-%%%----------------------------------------------------------------------
-%%% File : ejabberd_logger_h.erl
-%%% Author : Alexey Shchepin <alexey@process-one.net>
-%%% Purpose : Manage Erlang logging.
-%%% Created : 23 Oct 2003 by Alexey Shchepin <alexey@process-one.net>
-%%%
-%%%
-%%% ejabberd, Copyright (C) 2002-2013 ProcessOne
-%%%
-%%% This program is free software; you can redistribute it and/or
-%%% modify it under the terms of the GNU General Public License as
-%%% published by the Free Software Foundation; either version 2 of the
-%%% License, or (at your option) any later version.
-%%%
-%%% This program is distributed in the hope that it will be useful,
-%%% but WITHOUT ANY WARRANTY; without even the implied warranty of
-%%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-%%% General Public License for more details.
-%%%
-%%% You should have received a copy of the GNU General Public License
-%%% along with this program; if not, write to the Free Software
-%%% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-%%% 02111-1307 USA
-%%%
-%%%----------------------------------------------------------------------
-
--module(ejabberd_logger_h).
--author('alexey@process-one.net').
-
--behaviour(gen_event).
-
-%% gen_event callbacks
--export([init/1, handle_event/2, handle_call/2, handle_info/2, terminate/2,
- code_change/3, reopen_log/0, rotate_log/1]).
-
--record(state, {fd, file}).
-
-%%%----------------------------------------------------------------------
-%%% Callback functions from gen_event
-%%%----------------------------------------------------------------------
-
-%%----------------------------------------------------------------------
-%% Func: init/1
-%% Returns: {ok, State} |
-%% Other
-%%----------------------------------------------------------------------
-init(File) ->
- case file:open(File, [append, raw]) of
- {ok, Fd} ->
- {ok, #state{fd = Fd, file = File}};
- Error ->
- Error
- end.
-
-%%----------------------------------------------------------------------
-%% Func: handle_event/2
-%% Returns: {ok, State} |
-%% {swap_handler, Args1, State1, Mod2, Args2} |
-%% remove_handler
-%%----------------------------------------------------------------------
-handle_event(Event, State) ->
- write_event(State#state.fd, {erlang:localtime(), Event}),
- {ok, State}.
-
-%%----------------------------------------------------------------------
-%% Func: handle_call/2
-%% Returns: {ok, Reply, State} |
-%% {swap_handler, Reply, Args1, State1, Mod2, Args2} |
-%% {remove_handler, Reply}
-%%----------------------------------------------------------------------
-handle_call(_Request, State) ->
- Reply = ok,
- {ok, Reply, State}.
-
-%%----------------------------------------------------------------------
-%% Func: handle_info/2
-%% Returns: {ok, State} |
-%% {swap_handler, Args1, State1, Mod2, Args2} |
-%% remove_handler
-%%----------------------------------------------------------------------
-handle_info({'EXIT', _Fd, _Reason}, _State) ->
- remove_handler;
-handle_info({emulator, _GL, reopen}, State) ->
- file:close(State#state.fd),
- rotate_log(State#state.file),
- case file:open(State#state.file, [append, raw]) of
- {ok, Fd} ->
- {ok, State#state{fd = Fd}};
- Error ->
- Error
- end;
-handle_info({emulator, GL, Chars}, State) ->
- write_event(State#state.fd, {erlang:localtime(), {emulator, GL, Chars}}),
- {ok, State};
-handle_info(_Info, State) ->
- {ok, State}.
-
-%%----------------------------------------------------------------------
-%% Func: terminate/2
-%% Purpose: Shutdown the server
-%% Returns: any
-%%----------------------------------------------------------------------
-terminate(_Reason, _State) ->
- ok.
-
-code_change(_OldVsn, State, _Extra) ->
- {ok, State}.
-
-reopen_log() ->
- error_logger ! {emulator, noproc, reopen}.
-
-%%%----------------------------------------------------------------------
-%%% Internal functions
-%%%----------------------------------------------------------------------
-
-% Copied from erlang_logger_file_h.erl
-write_event(Fd, {Time, {error, _GL, {Pid, Format, Args}}}) ->
- T = write_time(Time),
- case catch io_lib:format(add_node(Format,Pid), Args) of
- S when is_list(S) ->
- file:write(Fd, io_lib:format(T ++ S, []));
- _ ->
- F = add_node("ERROR: ~p - ~p~n", Pid),
- file:write(Fd, io_lib:format(T ++ F, [Format,Args]))
- end;
-write_event(Fd, {Time, {emulator, _GL, Chars}}) ->
- T = write_time(Time),
- case catch io_lib:format(Chars, []) of
- S when is_list(S) ->
- file:write(Fd, io_lib:format(T ++ S, []));
- _ ->
- file:write(Fd, io_lib:format(T ++ "ERROR: ~p ~n", [Chars]))
- end;
-write_event(Fd, {Time, {info, _GL, {Pid, Info, _}}}) ->
- T = write_time(Time),
- file:write(Fd, io_lib:format(T ++ add_node("~p~n",Pid), [Info]));
-write_event(Fd, {Time, {error_report, _GL, {Pid, std_error, Rep}}}) ->
- T = write_time(Time),
- S = format_report(Rep),
- file:write(Fd, io_lib:format(T ++ S ++ add_node("", Pid), []));
-write_event(Fd, {Time, {info_report, _GL, {Pid, std_info, Rep}}}) ->
- T = write_time(Time, "INFO REPORT"),
- S = format_report(Rep),
- file:write(Fd, io_lib:format(T ++ S ++ add_node("", Pid), []));
-write_event(Fd, {Time, {info_msg, _GL, {Pid, Format, Args}}}) ->
- T = write_time(Time, "INFO REPORT"),
- case catch io_lib:format(add_node(Format,Pid), Args) of
- S when is_list(S) ->
- file:write(Fd, io_lib:format(T ++ S, []));
- _ ->
- F = add_node("ERROR: ~p - ~p~n", Pid),
- file:write(Fd, io_lib:format(T ++ F, [Format,Args]))
- end;
-write_event(Fd, {Time, {warning_report, _GL, {Pid, std_warning, Rep}}}) ->
- T = write_time(Time, "WARNING REPORT"),
- S = format_report(Rep),
- file:write(Fd, io_lib:format(T ++ S ++ add_node("", Pid), []));
-write_event(Fd, {Time, {warning_msg, _GL, {Pid, Format, Args}}}) ->
- T = write_time(Time, "WARNING REPORT"),
- case catch io_lib:format(add_node(Format,Pid), Args) of
- S when is_list(S) ->
- file:write(Fd, io_lib:format(T ++ S, []));
- _ ->
- F = add_node("ERROR: ~p - ~p~n", Pid),
- file:write(Fd, io_lib:format(T ++ F, [Format,Args]))
- end;
-write_event(_, _) ->
- ok.
-
-format_report(Rep) when is_list(Rep) ->
- case string_p(Rep) of
- true ->
- io_lib:format("~s~n",[Rep]);
- _ ->
- format_rep(Rep)
- end;
-format_report(Rep) ->
- io_lib:format("~p~n",[Rep]).
-
-format_rep([{Tag,Data}|Rep]) ->
- io_lib:format(" ~p: ~p~n",[Tag,Data]) ++ format_rep(Rep);
-format_rep([Other|Rep]) ->
- io_lib:format(" ~p~n",[Other]) ++ format_rep(Rep);
-format_rep(_) ->
- [].
-
-add_node(X, Pid) when is_atom(X) ->
- add_node(atom_to_list(X), Pid);
-add_node(X, Pid) when node(Pid) /= node() ->
- lists:concat([X,"** at node ",node(Pid)," **~n"]);
-add_node(X, _) ->
- X.
-
-string_p([]) ->
- false;
-string_p(Term) ->
- string_p1(Term).
-
-string_p1([H|T]) when is_integer(H), H >= $\s, H < 255 ->
- string_p1(T);
-string_p1([$\n|T]) -> string_p1(T);
-string_p1([$\r|T]) -> string_p1(T);
-string_p1([$\t|T]) -> string_p1(T);
-string_p1([$\v|T]) -> string_p1(T);
-string_p1([$\b|T]) -> string_p1(T);
-string_p1([$\f|T]) -> string_p1(T);
-string_p1([$\e|T]) -> string_p1(T);
-string_p1([H|T]) when is_list(H) ->
- case string_p1(H) of
- true -> string_p1(T);
- _ -> false
- end;
-string_p1([]) -> true;
-string_p1(_) -> false.
-
-write_time(Time) -> write_time(Time, "ERROR REPORT").
-
-write_time({{Y,Mo,D},{H,Mi,S}}, Type) ->
- io_lib:format("~n=~s==== ~w-~.2.0w-~.2.0w ~.2.0w:~.2.0w:~.2.0w ===~n",
- [Type, Y, Mo, D, H, Mi, S]).
-
-%% @doc Rename the log file if exists, to "*-old.log".
-%% This is needed in systems when the file must be closed before rotation (Windows).
-%% On most Unix-like system, the file can be renamed from the command line and
-%% the log can directly be reopened.
-%% @spec (Filename::string()) -> ok
-rotate_log(Filename) ->
- case file:read_file_info(Filename) of
- {ok, _FileInfo} ->
- RotationName = filename:rootname(Filename),
- file:rename(Filename, [RotationName, "-old.log"]),
- ok;
- {error, _Reason} ->
- ok
- end.
-
generated by cgit v1.2.3 (git 2.25.1) at 2024-07-27 20:28:06 +0300