diff options
| author | Evgeniy Khramtsov <ekhramtsov@process-one.net> | 2013-08-27 17:43:50 +1000 |
|---|---|---|
| committer | Evgeniy Khramtsov <ekhramtsov@process-one.net> | 2013-08-27 17:45:07 +1000 |
| commit | e3483ef9e1cef5a1b275aee182b0ec7b28b975cb (patch) | |
| tree | 21351656b2bcba786160a294bfc6f70360a953a0 /src | |
| parent | Fix ejabberdctl config name (diff) | |
Do not rely on p1_logger_h module when lager is enabled
Diffstat (limited to 'src')
| -rw-r--r-- | src/ejabberd_logger.erl | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/src/ejabberd_logger.erl b/src/ejabberd_logger.erl index bc3767f3b..92eefcff3 100644 --- a/src/ejabberd_logger.erl +++ b/src/ejabberd_logger.erl @@ -155,13 +155,22 @@ reopen_sasl_log() -> case application:get_env(sasl,sasl_error_logger) of {ok, {file, SASLfile}} -> error_logger:delete_report_handler(sasl_report_file_h), - p1_logger_h:rotate_log(SASLfile), + rotate_sasl_log(SASLfile), error_logger:add_report_handler(sasl_report_file_h, {SASLfile, get_sasl_error_logger_type()}); _ -> false end, ok. +rotate_sasl_log(Filename) -> + case file:read_file_info(Filename) of + {ok, _FileInfo} -> + file:rename(Filename, [Filename, ".0"]), + ok; + {error, _Reason} -> + ok + end. + %% Function copied from Erlang/OTP lib/sasl/src/sasl.erl which doesn't export it get_sasl_error_logger_type () -> case application:get_env (sasl, errlog_type) of |