Clear Erlang SASL error logger.

my_system_utilities.erl

-module(my_system_utilities).

-export([clear_sasl_error_log/0]).

clear_sasl_error_log() ->
    case application:get_env(sasl,sasl_error_logger) of
        {ok, {file, SASLfile}} ->
            error_logger:delete_report_handler(sasl_report_file_h),
            error_logger:add_report_handler(sasl_report_file_h,
                                            {SASLfile,logger_type()});
        _ ->
            not_rotated
    end.

logger_type() ->
    case application:get_env (sasl, errlog_type) of
        {ok, error} -> error;
        {ok, progress} -> progress;
        {ok, all} -> all;
        {ok, Bad} -> exit ({bad_config, {sasl, {errlog_type, Bad}}});
        _ -> all
    end.