You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
53 lines
1.6 KiB
53 lines
1.6 KiB
-module(rumMgrKiller).
|
|
|
|
-behavior(gen_event).
|
|
|
|
-export([init/1, handle_event/2, handle_call/2, handle_info/2, terminate/2, code_change/3]).
|
|
|
|
-export([kill_me/0]).
|
|
|
|
-include("eRum.hrl").
|
|
|
|
-record(state, {
|
|
killerHwm :: non_neg_integer(),
|
|
killerReTime :: non_neg_integer()
|
|
}).
|
|
|
|
kill_me() ->
|
|
gen_event:call(rumEvent, ?MODULE, kill_self).
|
|
|
|
init([KillerHWM, KillerReinstallAfter]) ->
|
|
{ok, #state{killerHwm = KillerHWM, killerReTime = KillerReinstallAfter}}.
|
|
|
|
handle_call(get_loglevel, State) ->
|
|
{ok, {mask, ?LOG_NONE}, State};
|
|
handle_call({set_loglevel, _Level}, State) ->
|
|
{ok, ok, State};
|
|
handle_call(get_settings, State = #state{killerHwm = KillerHWM, killerReTime = KillerReinstallAfter}) ->
|
|
{ok, [KillerHWM, KillerReinstallAfter], State};
|
|
handle_call(kill_self, #state{killerHwm = KillerHWM, killerReTime = KillerReinstallAfter}) ->
|
|
exit({kill_me, [KillerHWM, KillerReinstallAfter]});
|
|
handle_call(_Request, State) ->
|
|
{ok, ok, State}.
|
|
%% It's not the best idea in the world to check the queue length for every
|
|
%% log message. We can make this operation work on a poll timer in the
|
|
%% future.
|
|
handle_event({log, _Message}, State = #state{killerHwm = KillerHWM, killerReTime = KillerReinstallAfter}) ->
|
|
{message_queue_len, Len} = process_info(self(), message_queue_len),
|
|
case Len > KillerHWM of
|
|
true ->
|
|
exit({kill_me, [KillerHWM, KillerReinstallAfter]});
|
|
_ ->
|
|
{ok, State}
|
|
end;
|
|
handle_event(_Event, State) ->
|
|
{ok, State}.
|
|
|
|
handle_info(_Info, State) ->
|
|
{ok, State}.
|
|
|
|
terminate(_Reason, _State) ->
|
|
ok.
|
|
|
|
code_change(_OldVsn, State, _Extra) ->
|
|
{ok, State}.
|