| 1 |
|
-module(mongoose_metrics_api). |
| 2 |
|
-export([get_metrics/1, |
| 3 |
|
get_metrics_as_dicts/2, |
| 4 |
|
get_cluster_metrics_as_dicts/3]). |
| 5 |
|
|
| 6 |
|
-include("mongoose_logger.hrl"). |
| 7 |
|
-include("mongoose.hrl"). |
| 8 |
|
|
| 9 |
|
-type name() :: [atom() | integer()]. |
| 10 |
|
-type key() :: atom(). |
| 11 |
|
-type metric_result() :: |
| 12 |
|
{ok, #{binary() => binary() | non_neg_integer()}}. |
| 13 |
|
-type dict_result() :: #{binary() => binary() | non_neg_integer()}. |
| 14 |
|
-type metric_dict_result() :: |
| 15 |
|
{ok, #{binary() => binary() | [dict_result()]}}. |
| 16 |
|
-type metric_node_dict_result() :: |
| 17 |
|
{ok, #{binary() => binary() | [metric_dict_result()]}} |
| 18 |
|
| {error, binary()}. |
| 19 |
|
|
| 20 |
|
-spec get_metrics(Name :: name()) -> {ok, [metric_result()]}. |
| 21 |
|
get_metrics(Name) -> |
| 22 |
:-( |
PrepName = prepare_host_types(Name), |
| 23 |
:-( |
Values = mongoose_metrics:get_metric_values(PrepName), |
| 24 |
:-( |
{ok, lists:map(fun make_metric_result/1, Values)}. |
| 25 |
|
|
| 26 |
|
-spec get_metrics_as_dicts(Name :: name(), Keys :: [key()]) -> |
| 27 |
|
{ok, [metric_dict_result()]}. |
| 28 |
|
get_metrics_as_dicts(Name, Keys) -> |
| 29 |
:-( |
PrepName = prepare_host_types(Name), |
| 30 |
:-( |
Values = mongoose_metrics:get_metric_values(PrepName), |
| 31 |
:-( |
{ok, [make_metric_dict_result(V, Keys) || V <- Values]}. |
| 32 |
|
|
| 33 |
|
-spec get_cluster_metrics_as_dicts(Name :: name(), Keys :: [key()], |
| 34 |
|
Nodes :: [node()]) -> |
| 35 |
|
{ok, [metric_node_dict_result()]}. |
| 36 |
|
get_cluster_metrics_as_dicts(Name, Keys, Nodes) -> |
| 37 |
:-( |
PrepName = prepare_host_types(Name), |
| 38 |
:-( |
Nodes2 = prepare_nodes_arg(Nodes), |
| 39 |
:-( |
F = fun(Node) -> |
| 40 |
:-( |
case rpc:call(Node, mongoose_metrics, get_metric_values, [PrepName]) of |
| 41 |
|
{badrpc, Reason} -> |
| 42 |
:-( |
[{[error, Reason], []}]; |
| 43 |
|
Result -> |
| 44 |
:-( |
Result |
| 45 |
|
end |
| 46 |
|
end, |
| 47 |
:-( |
Results = mongoose_lib:pmap(F, Nodes2), |
| 48 |
:-( |
{ok, [make_node_result(Node, Result, Keys) |
| 49 |
:-( |
|| {Node, Result} <- lists:zip(Nodes2, Results)]}. |
| 50 |
|
|
| 51 |
|
make_node_result(Node, {ok, Values}, Keys) -> |
| 52 |
:-( |
{ok, #{<<"node">> => Node, |
| 53 |
:-( |
<<"result">> => [make_metric_dict_result(V, Keys) || V <- Values]}}; |
| 54 |
|
make_node_result(Node, Other, _Keys) -> |
| 55 |
:-( |
?LOG_ERROR(#{what => metric_get_failed, |
| 56 |
:-( |
remote_node => Node, reason => Other}), |
| 57 |
:-( |
{error, <<"Failed to get metrics">>}. |
| 58 |
|
|
| 59 |
|
filter_keys(Dict, []) -> |
| 60 |
:-( |
Dict; |
| 61 |
|
filter_keys(Dict, Keys) -> |
| 62 |
:-( |
[KV || KV = {Key, _} <- Dict, lists:member(Key, Keys)]. |
| 63 |
|
|
| 64 |
|
prepare_nodes_arg([]) -> |
| 65 |
:-( |
[node()|nodes()]; |
| 66 |
|
prepare_nodes_arg(Nodes) -> |
| 67 |
:-( |
Nodes. |
| 68 |
|
|
| 69 |
|
make_metric_result({Name, Dict}) -> |
| 70 |
:-( |
PreparedName = format_name(Name), |
| 71 |
:-( |
Map = format_dict(Dict), |
| 72 |
:-( |
{ok, Map#{<<"name">> => PreparedName}}. |
| 73 |
|
|
| 74 |
|
make_metric_dict_result({Name, Dict}, Keys) -> |
| 75 |
:-( |
PreparedName = format_name(Name), |
| 76 |
:-( |
{ok, #{<<"name">> => PreparedName, <<"dict">> => format_dict_entries(Dict, Keys)}}. |
| 77 |
|
|
| 78 |
|
format_dict_entries(Dict, Keys) -> |
| 79 |
:-( |
[{ok, #{<<"key">> => Key, <<"value">> => Value}} |
| 80 |
:-( |
|| {Key, Value} <- filter_keys(Dict, Keys)]. |
| 81 |
|
|
| 82 |
|
format_name(Name) -> |
| 83 |
:-( |
lists:map(fun format_name_segment/1, Name). |
| 84 |
|
|
| 85 |
|
format_name_segment(Segment) when is_atom(Segment) -> |
| 86 |
:-( |
{ok, atom_to_binary(Segment)}; |
| 87 |
|
format_name_segment(Segment) when is_binary(Segment) -> |
| 88 |
:-( |
{ok, Segment}. |
| 89 |
|
|
| 90 |
|
format_dict(Dict) -> |
| 91 |
:-( |
format_dict2(maps:from_list(Dict)). |
| 92 |
|
|
| 93 |
|
format_dict2(#{one := _} = Dict) -> |
| 94 |
:-( |
format_spiral(Dict); |
| 95 |
|
format_dict2(#{ms_since_reset := _} = Dict) -> |
| 96 |
:-( |
format_counter(Dict); |
| 97 |
|
format_dict2(#{value := _} = Dict) -> |
| 98 |
:-( |
format_gauge(Dict); |
| 99 |
|
format_dict2(#{median := _} = Dict) -> |
| 100 |
:-( |
format_histogram(Dict); |
| 101 |
|
format_dict2(#{connections := _, recv_cnt := _} = Dict) -> |
| 102 |
:-( |
format_merged_inet_stats(Dict); |
| 103 |
|
format_dict2(#{processes_used := _} = Dict) -> |
| 104 |
:-( |
format_vm_stats_memory(Dict); |
| 105 |
|
format_dict2(#{port_count := _} = Dict) -> |
| 106 |
:-( |
format_vm_system_info(Dict); |
| 107 |
|
format_dict2(#{fsm := _, regular := _} = Dict) -> |
| 108 |
:-( |
format_probe_queues(Dict); |
| 109 |
|
format_dict2(#{unavailable_nodes := _, available_nodes := _} = Dict) -> |
| 110 |
:-( |
mongoose_metrics_probe_cets:format_probe_cets(Dict); |
| 111 |
|
format_dict2(#{recv_cnt := _, workers := _} = Dict) -> |
| 112 |
:-( |
format_rdbms_stats(Dict). |
| 113 |
|
|
| 114 |
|
format_spiral(#{one := One, count := Count}) -> |
| 115 |
:-( |
#{<<"type">> => <<"spiral">>, <<"one">> => One, <<"count">> => Count}. |
| 116 |
|
|
| 117 |
|
format_counter(#{value := Value, ms_since_reset := MS}) -> |
| 118 |
:-( |
#{<<"type">> => <<"counter">>, <<"value">> => Value, <<"ms_since_reset">> => MS}. |
| 119 |
|
|
| 120 |
|
format_gauge(#{value := Value}) -> |
| 121 |
:-( |
#{<<"type">> => <<"gauge">>, <<"value">> => Value}. |
| 122 |
|
|
| 123 |
|
format_histogram(#{n := N, mean := Mean, min := Min, max := Max, median := Median, |
| 124 |
|
50 := P50, 75 := P75, 90 := P90, 95 := P95, |
| 125 |
|
99 := P99, 999 := P999}) -> |
| 126 |
:-( |
#{<<"type">> => <<"histogram">>, <<"n">> => N, <<"mean">> => Mean, |
| 127 |
|
<<"min">> => Min, <<"max">> => Max, <<"median">> => Median, |
| 128 |
|
<<"p50">> => P50, <<"p75">> => P75, <<"p90">> => P90, <<"p95">> => P95, |
| 129 |
|
<<"p99">> => P99, <<"p999">> => P999}. |
| 130 |
|
|
| 131 |
|
format_merged_inet_stats(#{connections := Cons, |
| 132 |
|
recv_cnt := RCnt, recv_max := RMax, recv_oct := ROct, |
| 133 |
|
send_cnt := SCnt, send_max := SMax, send_oct := SOct, |
| 134 |
|
send_pend := SPend}) -> |
| 135 |
|
%% Metrics from a pool of connections |
| 136 |
:-( |
#{<<"type">> => <<"merged_inet_stats">>, <<"connections">> => Cons, |
| 137 |
|
<<"recv_cnt">> => RCnt, <<"recv_max">> => RMax, <<"recv_oct">> => ROct, |
| 138 |
|
<<"send_cnt">> => SCnt, <<"send_max">> => SMax, <<"send_oct">> => SOct, |
| 139 |
|
<<"send_pend">> => SPend}. |
| 140 |
|
|
| 141 |
|
format_rdbms_stats(#{recv_cnt := RCnt, recv_max := RMax, recv_oct := ROct, |
| 142 |
|
send_cnt := SCnt, send_max := SMax, send_oct := SOct, |
| 143 |
|
send_pend := SPend, workers := Workers}) -> |
| 144 |
:-( |
#{<<"type">> => <<"rdbms_stats">>, <<"workers">> => Workers, |
| 145 |
|
<<"recv_cnt">> => RCnt, <<"recv_max">> => RMax, <<"recv_oct">> => ROct, |
| 146 |
|
<<"send_cnt">> => SCnt, <<"send_max">> => SMax, <<"send_oct">> => SOct, |
| 147 |
|
<<"send_pend">> => SPend}. |
| 148 |
|
|
| 149 |
|
format_vm_stats_memory(#{total := Total, processes_used := P, |
| 150 |
|
atom_used := A, binary := B, ets := E, system := S}) -> |
| 151 |
:-( |
#{<<"type">> => <<"vm_stats_memory">>, |
| 152 |
|
<<"total">> => Total, <<"processes_used">> => P, <<"atom_used">> => A, |
| 153 |
|
<<"binary">> => B, <<"ets">> => E, <<"system">> => S}. |
| 154 |
|
|
| 155 |
|
format_vm_system_info(#{port_count := PortCount, port_limit := PortLimit, |
| 156 |
|
process_count := ProcessCount, process_limit := ProcessLimit, |
| 157 |
|
ets_limit := EtsLimit}) -> |
| 158 |
:-( |
#{<<"type">> => <<"vm_system_info">>, |
| 159 |
|
<<"port_count">> => PortCount, <<"port_limit">> => PortLimit, |
| 160 |
|
<<"process_count">> => ProcessCount, <<"process_limit">> => ProcessLimit, |
| 161 |
|
<<"ets_limit">> => EtsLimit}. |
| 162 |
|
|
| 163 |
|
format_probe_queues(#{fsm := FSM, regular := Regular, total := Total}) -> |
| 164 |
:-( |
#{<<"type">> => <<"probe_queues">>, |
| 165 |
|
<<"fsm">> => FSM, <<"regular">> => Regular, <<"total">> => Total}. |
| 166 |
|
|
| 167 |
|
prepare_host_types(Name) -> |
| 168 |
:-( |
lists:map( |
| 169 |
|
fun(Ele) -> |
| 170 |
:-( |
case lists:member(atom_to_binary(Ele), ?ALL_HOST_TYPES) of |
| 171 |
|
true -> |
| 172 |
:-( |
binary:replace(atom_to_binary(Ele), <<" ">>, <<"_">>); |
| 173 |
|
false -> |
| 174 |
:-( |
Ele |
| 175 |
|
end |
| 176 |
|
end, |
| 177 |
|
Name). |