From 804c32c1001a971b50553eaf7861c28b47b56278 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Micka=C3=ABl=20R=C3=A9mond?= Date: Sat, 4 Mar 2006 17:33:23 +0000 Subject: * src/ejabberd_logger_h.erl: reopen-log function now rename the log file if it has not been already renamed by a logrotate process. This change allow ejabberd administrators to rotate log files on Windows (EJAB-52). SVN Revision: 514 --- src/ejabberd_logger_h.erl | 15 +++++++++++++++ 1 file changed, 15 insertions(+) (limited to 'src') diff --git a/src/ejabberd_logger_h.erl b/src/ejabberd_logger_h.erl index 462f408d4..975a9b25f 100644 --- a/src/ejabberd_logger_h.erl +++ b/src/ejabberd_logger_h.erl @@ -66,6 +66,7 @@ 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}}; @@ -189,3 +190,17 @@ 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]). +%% Rename the log file if it the filename exists +%% 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. +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. + -- cgit v1.2.3