2007-04-12 07:31:53 +02:00
|
|
|
%%%-------------------------------------------------------------------
|
|
|
|
%%% File : ejabberd_system_monitor.erl
|
|
|
|
%%% Author : Alexey Shchepin <alexey@process-one.net>
|
|
|
|
%%% Description : Ejabberd watchdog
|
|
|
|
%%% Created : 21 Mar 2007 by Alexey Shchepin <alexey@process-one.net>
|
2007-12-24 12:41:41 +01:00
|
|
|
%%%
|
|
|
|
%%%
|
2018-01-05 21:18:58 +01:00
|
|
|
%%% ejabberd, Copyright (C) 2002-2018 ProcessOne
|
2007-12-24 12:41:41 +01:00
|
|
|
%%%
|
|
|
|
%%% 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.
|
2009-01-12 15:44:42 +01:00
|
|
|
%%%
|
2014-02-22 11:27:40 +01:00
|
|
|
%%% 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.,
|
|
|
|
%%% 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
2007-12-24 12:41:41 +01:00
|
|
|
%%%
|
2007-04-12 07:31:53 +02:00
|
|
|
%%%-------------------------------------------------------------------
|
|
|
|
|
|
|
|
-module(ejabberd_system_monitor).
|
2017-12-17 16:52:37 +01:00
|
|
|
-behaviour(gen_event).
|
2015-06-01 14:38:27 +02:00
|
|
|
-behaviour(ejabberd_config).
|
|
|
|
|
2007-04-12 07:31:53 +02:00
|
|
|
-author('alexey@process-one.net').
|
2017-12-17 16:52:37 +01:00
|
|
|
-author('ekhramtsov@process-one.net').
|
2007-04-12 07:31:53 +02:00
|
|
|
|
|
|
|
%% API
|
2017-12-17 16:52:37 +01:00
|
|
|
-export([start/0, opt_type/1]).
|
|
|
|
|
|
|
|
%% gen_event callbacks
|
|
|
|
-export([init/1, handle_event/2, handle_call/2,
|
|
|
|
handle_info/2, terminate/2, code_change/3]).
|
|
|
|
|
|
|
|
%% We don't use ejabberd logger because lager can be overloaded
|
|
|
|
%% too and alarm_handler may get stuck.
|
|
|
|
%%-include("logger.hrl").
|
|
|
|
|
|
|
|
-define(CHECK_INTERVAL, timer:seconds(30)).
|
2017-12-19 07:55:19 +01:00
|
|
|
|
2017-12-17 16:52:37 +01:00
|
|
|
-record(state, {tref :: reference(),
|
|
|
|
mref :: reference()}).
|
|
|
|
-record(proc_stat, {qlen :: non_neg_integer(),
|
|
|
|
memory :: non_neg_integer(),
|
|
|
|
initial_call :: mfa(),
|
|
|
|
current_function :: mfa(),
|
|
|
|
ancestors :: [pid() | atom()],
|
|
|
|
application :: pid() | atom(),
|
|
|
|
name :: pid() | atom()}).
|
|
|
|
-type state() :: #state{}.
|
|
|
|
-type proc_stat() :: #proc_stat{}.
|
|
|
|
|
|
|
|
%%%===================================================================
|
|
|
|
%%% API
|
|
|
|
%%%===================================================================
|
|
|
|
-spec start() -> ok.
|
|
|
|
start() ->
|
|
|
|
gen_event:add_handler(alarm_handler, ?MODULE, []),
|
2017-12-18 10:15:49 +01:00
|
|
|
gen_event:swap_handler(alarm_handler, {alarm_handler, swap}, {?MODULE, []}),
|
2017-12-17 16:52:37 +01:00
|
|
|
application:load(os_mon),
|
|
|
|
application:set_env(os_mon, start_cpu_sup, false),
|
|
|
|
application:set_env(os_mon, start_os_sup, false),
|
|
|
|
application:set_env(os_mon, start_memsup, true),
|
2018-04-24 11:12:48 +02:00
|
|
|
application:set_env(os_mon, start_disksup, false),
|
2017-12-17 16:52:37 +01:00
|
|
|
ejabberd:start_app(os_mon).
|
|
|
|
|
|
|
|
excluded_apps() ->
|
2017-12-17 19:03:40 +01:00
|
|
|
[os_mon, mnesia, sasl, stdlib, kernel].
|
2017-12-17 16:52:37 +01:00
|
|
|
|
|
|
|
%%%===================================================================
|
|
|
|
%%% gen_event callbacks
|
|
|
|
%%%===================================================================
|
|
|
|
init([]) ->
|
2007-04-12 07:31:53 +02:00
|
|
|
{ok, #state{}}.
|
|
|
|
|
2017-12-17 16:52:37 +01:00
|
|
|
handle_event({set_alarm, {system_memory_high_watermark, _}}, State) ->
|
2017-12-18 08:41:11 +01:00
|
|
|
handle_overload(State),
|
|
|
|
{ok, restart_timer(State)};
|
2017-12-17 16:52:37 +01:00
|
|
|
handle_event({clear_alarm, system_memory_high_watermark}, State) ->
|
|
|
|
cancel_timer(State#state.tref),
|
|
|
|
{ok, State#state{tref = undefined}};
|
2017-12-18 08:41:11 +01:00
|
|
|
handle_event({set_alarm, {process_memory_high_watermark, Pid}}, State) ->
|
|
|
|
case proc_stat(Pid, get_app_pids()) of
|
|
|
|
#proc_stat{name = Name} = ProcStat ->
|
|
|
|
error_logger:warning_msg(
|
|
|
|
"Process ~p consumes more than 5% of OS memory (~s)",
|
|
|
|
[Name, format_proc(ProcStat)]),
|
|
|
|
handle_overload(State),
|
|
|
|
{ok, State};
|
|
|
|
_ ->
|
|
|
|
{ok, State}
|
|
|
|
end;
|
|
|
|
handle_event({clear_alarm, process_memory_high_watermark}, State) ->
|
|
|
|
{ok, State};
|
2017-12-17 16:52:37 +01:00
|
|
|
handle_event(Event, State) ->
|
|
|
|
error_logger:warning_msg("unexpected event: ~p", [Event]),
|
|
|
|
{ok, State}.
|
|
|
|
|
|
|
|
handle_call(_Request, State) ->
|
|
|
|
{ok, {error, badarg}, State}.
|
|
|
|
|
|
|
|
handle_info({timeout, _TRef, handle_overload}, State) ->
|
2017-12-18 08:41:11 +01:00
|
|
|
handle_overload(State),
|
|
|
|
{ok, restart_timer(State)};
|
2017-12-17 16:52:37 +01:00
|
|
|
handle_info(Info, State) ->
|
|
|
|
error_logger:warning_msg("unexpected info: ~p", [Info]),
|
|
|
|
{ok, State}.
|
|
|
|
|
|
|
|
terminate(_Reason, _State) ->
|
|
|
|
ok.
|
2007-04-12 07:31:53 +02:00
|
|
|
|
2017-12-17 16:52:37 +01:00
|
|
|
code_change(_OldVsn, State, _Extra) ->
|
|
|
|
{ok, State}.
|
2007-04-12 07:31:53 +02:00
|
|
|
|
2017-12-17 16:52:37 +01:00
|
|
|
%%%===================================================================
|
2007-04-12 07:31:53 +02:00
|
|
|
%%% Internal functions
|
2017-12-17 16:52:37 +01:00
|
|
|
%%%===================================================================
|
2017-12-18 08:41:11 +01:00
|
|
|
-spec handle_overload(state()) -> ok.
|
2017-12-17 16:52:37 +01:00
|
|
|
handle_overload(State) ->
|
2017-12-18 08:41:11 +01:00
|
|
|
handle_overload(State, processes()).
|
|
|
|
|
|
|
|
-spec handle_overload(state(), [pid()]) -> ok.
|
|
|
|
handle_overload(_State, Procs) ->
|
2017-12-17 16:52:37 +01:00
|
|
|
AppPids = get_app_pids(),
|
2017-12-18 08:41:11 +01:00
|
|
|
{TotalMsgs, ProcsNum, Apps, Stats} = overloaded_procs(AppPids, Procs),
|
2017-12-17 16:52:37 +01:00
|
|
|
if TotalMsgs >= 10000 ->
|
|
|
|
SortedStats = lists:reverse(lists:keysort(#proc_stat.qlen, Stats)),
|
|
|
|
error_logger:warning_msg(
|
|
|
|
"The system is overloaded with ~b messages "
|
|
|
|
"queued by ~b process(es) (~b%) "
|
|
|
|
"from the following applications: ~s; "
|
|
|
|
"the top processes are:~n~s",
|
|
|
|
[TotalMsgs, ProcsNum,
|
2017-12-18 08:41:11 +01:00
|
|
|
round(ProcsNum*100/length(Procs)),
|
2017-12-17 16:52:37 +01:00
|
|
|
format_apps(Apps),
|
|
|
|
format_top_procs(SortedStats)]),
|
|
|
|
kill(SortedStats, round(TotalMsgs/ProcsNum));
|
|
|
|
true ->
|
|
|
|
ok
|
|
|
|
end,
|
2017-12-18 08:41:11 +01:00
|
|
|
lists:foreach(fun erlang:garbage_collect/1, Procs).
|
2017-12-17 16:52:37 +01:00
|
|
|
|
|
|
|
-spec get_app_pids() -> map().
|
|
|
|
get_app_pids() ->
|
|
|
|
try application:info() of
|
|
|
|
Info ->
|
|
|
|
case lists:keyfind(running, 1, Info) of
|
|
|
|
{_, Apps} ->
|
|
|
|
lists:foldl(
|
|
|
|
fun({Name, Pid}, M) when is_pid(Pid) ->
|
|
|
|
maps:put(Pid, Name, M);
|
|
|
|
(_, M) ->
|
|
|
|
M
|
|
|
|
end, #{}, Apps);
|
|
|
|
false ->
|
|
|
|
#{}
|
|
|
|
end
|
|
|
|
catch _:_ ->
|
|
|
|
#{}
|
2007-04-12 07:31:53 +02:00
|
|
|
end.
|
|
|
|
|
2017-12-17 16:52:37 +01:00
|
|
|
-spec overloaded_procs(map(), [pid()])
|
|
|
|
-> {non_neg_integer(), non_neg_integer(), dict:dict(), [proc_stat()]}.
|
|
|
|
overloaded_procs(AppPids, AllProcs) ->
|
|
|
|
lists:foldl(
|
|
|
|
fun(Pid, {TotalMsgs, ProcsNum, Apps, Stats}) ->
|
|
|
|
case proc_stat(Pid, AppPids) of
|
|
|
|
#proc_stat{qlen = QLen, application = App} = Stat
|
|
|
|
when QLen > 0 ->
|
|
|
|
{TotalMsgs + QLen, ProcsNum + 1,
|
|
|
|
dict:update_counter(App, QLen, Apps),
|
|
|
|
[Stat|Stats]};
|
|
|
|
_ ->
|
|
|
|
{TotalMsgs, ProcsNum, Apps, Stats}
|
|
|
|
end
|
|
|
|
end, {0, 0, dict:new(), []}, AllProcs).
|
|
|
|
|
|
|
|
-spec proc_stat(pid(), map()) -> proc_stat() | undefined.
|
|
|
|
proc_stat(Pid, AppPids) ->
|
|
|
|
case process_info(Pid, [message_queue_len,
|
|
|
|
memory,
|
|
|
|
initial_call,
|
|
|
|
current_function,
|
|
|
|
dictionary,
|
|
|
|
group_leader,
|
|
|
|
registered_name]) of
|
|
|
|
[{_, MsgLen}, {_, Mem}, {_, InitCall},
|
|
|
|
{_, CurrFun}, {_, Dict}, {_, GL}, {_, Name}] ->
|
|
|
|
IntLen = proplists:get_value('$internal_queue_len', Dict, 0),
|
|
|
|
TrueInitCall = proplists:get_value('$initial_call', Dict, InitCall),
|
|
|
|
Ancestors = proplists:get_value('$ancestors', Dict, []),
|
|
|
|
Len = IntLen + MsgLen,
|
|
|
|
App = maps:get(GL, AppPids, kernel),
|
|
|
|
RegName = case Name of
|
|
|
|
[] -> Pid;
|
|
|
|
_ -> Name
|
|
|
|
end,
|
|
|
|
#proc_stat{qlen = Len,
|
|
|
|
memory = Mem,
|
|
|
|
initial_call = TrueInitCall,
|
|
|
|
current_function = CurrFun,
|
|
|
|
ancestors = Ancestors,
|
|
|
|
application = App,
|
|
|
|
name = RegName};
|
|
|
|
_ ->
|
|
|
|
undefined
|
2007-04-12 07:31:53 +02:00
|
|
|
end.
|
|
|
|
|
2017-12-17 16:52:37 +01:00
|
|
|
-spec restart_timer(#state{}) -> #state{}.
|
|
|
|
restart_timer(State) ->
|
|
|
|
cancel_timer(State#state.tref),
|
|
|
|
TRef = erlang:start_timer(?CHECK_INTERVAL, self(), handle_overload),
|
|
|
|
State#state{tref = TRef}.
|
|
|
|
|
|
|
|
-spec cancel_timer(reference()) -> ok.
|
|
|
|
cancel_timer(undefined) ->
|
|
|
|
ok;
|
|
|
|
cancel_timer(TRef) ->
|
|
|
|
case erlang:cancel_timer(TRef) of
|
|
|
|
false ->
|
|
|
|
receive {timeout, TRef, _} -> ok
|
|
|
|
after 0 -> ok
|
|
|
|
end;
|
|
|
|
_ ->
|
|
|
|
ok
|
|
|
|
end.
|
2007-04-12 07:31:53 +02:00
|
|
|
|
2017-12-17 16:52:37 +01:00
|
|
|
-spec format_apps(dict:dict()) -> io:data().
|
|
|
|
format_apps(Apps) ->
|
|
|
|
AppList = lists:reverse(lists:keysort(2, dict:to_list(Apps))),
|
|
|
|
string:join(
|
|
|
|
[io_lib:format("~p (~b msgs)", [App, Msgs]) || {App, Msgs} <- AppList],
|
|
|
|
", ").
|
|
|
|
|
|
|
|
-spec format_top_procs([proc_stat()]) -> io:data().
|
|
|
|
format_top_procs(Stats) ->
|
|
|
|
Stats1 = lists:sublist(Stats, 5),
|
2017-12-18 08:41:11 +01:00
|
|
|
string:join(
|
|
|
|
lists:map(
|
|
|
|
fun(#proc_stat{name = Name} = Stat) ->
|
|
|
|
[io_lib:format("** ~w: ", [Name]), format_proc(Stat)]
|
|
|
|
end,Stats1),
|
|
|
|
io_lib:nl()).
|
2017-12-17 16:52:37 +01:00
|
|
|
|
|
|
|
-spec format_proc(proc_stat()) -> io:data().
|
|
|
|
format_proc(#proc_stat{qlen = Len, memory = Mem, initial_call = InitCall,
|
|
|
|
current_function = CurrFun, ancestors = Ancs,
|
2017-12-18 08:41:11 +01:00
|
|
|
application = App}) ->
|
2017-12-17 16:52:37 +01:00
|
|
|
io_lib:format(
|
2017-12-18 08:41:11 +01:00
|
|
|
"msgs = ~b, memory = ~b, initial_call = ~s, "
|
2017-12-17 16:52:37 +01:00
|
|
|
"current_function = ~s, ancestors = ~w, application = ~w",
|
2017-12-18 08:41:11 +01:00
|
|
|
[Len, Mem, format_mfa(InitCall), format_mfa(CurrFun), Ancs, App]).
|
2017-12-17 16:52:37 +01:00
|
|
|
|
|
|
|
-spec format_mfa(mfa()) -> io:data().
|
|
|
|
format_mfa({M, F, A}) when is_atom(M), is_atom(F), is_integer(A) ->
|
|
|
|
io_lib:format("~s:~s/~b", [M, F, A]);
|
|
|
|
format_mfa(WTF) ->
|
|
|
|
io_lib:format("~w", [WTF]).
|
|
|
|
|
|
|
|
-spec kill([proc_stat()], non_neg_integer()) -> ok.
|
|
|
|
kill(Stats, Threshold) ->
|
|
|
|
case ejabberd_config:get_option(oom_killer, true) of
|
|
|
|
true ->
|
|
|
|
do_kill(Stats, Threshold);
|
|
|
|
false ->
|
|
|
|
ok
|
|
|
|
end.
|
2007-04-12 07:31:53 +02:00
|
|
|
|
2017-12-17 16:52:37 +01:00
|
|
|
-spec do_kill([proc_stat()], non_neg_integer()) -> ok.
|
|
|
|
do_kill(Stats, Threshold) ->
|
|
|
|
Killed = lists:filtermap(
|
|
|
|
fun(#proc_stat{qlen = Len, name = Name, application = App})
|
|
|
|
when Len >= Threshold ->
|
|
|
|
case lists:member(App, excluded_apps()) of
|
|
|
|
true ->
|
|
|
|
error_logger:warning_msg(
|
|
|
|
"Unable to kill process ~p from whitelisted "
|
|
|
|
"application ~p", [Name, App]),
|
|
|
|
false;
|
|
|
|
false ->
|
|
|
|
case kill_proc(Name) of
|
2017-12-17 19:03:40 +01:00
|
|
|
false ->
|
|
|
|
false;
|
|
|
|
Pid ->
|
|
|
|
maybe_restart_app(App),
|
|
|
|
{true, Pid}
|
2017-12-17 16:52:37 +01:00
|
|
|
end
|
|
|
|
end;
|
|
|
|
(_) ->
|
|
|
|
false
|
|
|
|
end, Stats),
|
|
|
|
TotalKilled = length(Killed),
|
|
|
|
if TotalKilled > 0 ->
|
|
|
|
error_logger:error_msg(
|
|
|
|
"Killed ~b process(es) consuming more than ~b message(s) each",
|
|
|
|
[TotalKilled, Threshold]);
|
|
|
|
true ->
|
|
|
|
ok
|
|
|
|
end.
|
2007-04-12 07:31:53 +02:00
|
|
|
|
2017-12-17 16:52:37 +01:00
|
|
|
-spec kill_proc(pid() | atom()) -> false | pid().
|
|
|
|
kill_proc(undefined) ->
|
|
|
|
false;
|
|
|
|
kill_proc(Name) when is_atom(Name) ->
|
|
|
|
kill_proc(whereis(Name));
|
|
|
|
kill_proc(Pid) ->
|
|
|
|
exit(Pid, kill),
|
|
|
|
Pid.
|
2015-06-01 14:38:27 +02:00
|
|
|
|
2017-12-17 19:03:40 +01:00
|
|
|
-spec maybe_restart_app(atom()) -> any().
|
|
|
|
maybe_restart_app(lager) ->
|
|
|
|
ejabberd_logger:restart();
|
|
|
|
maybe_restart_app(_) ->
|
|
|
|
ok.
|
|
|
|
|
2017-12-17 16:52:37 +01:00
|
|
|
-spec opt_type(oom_killer) -> fun((boolean()) -> boolean());
|
2017-05-08 11:59:28 +02:00
|
|
|
(atom()) -> [atom()].
|
2017-12-17 16:52:37 +01:00
|
|
|
opt_type(oom_killer) ->
|
|
|
|
fun(B) when is_boolean(B) -> B end;
|
|
|
|
opt_type(_) -> [oom_killer].
|