Print kiss tables in mongoosectl mnesia info

esl · Mar 6, 2022 · 8add6ca · 8add6ca
1 parent 30d1fa0
commit 8add6ca
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 1 deletion.
diff --git a/rebar.lock b/rebar.lock
@@ -63,7 +63,7 @@
   0},
  {<<"kiss">>,
   {git,"https://github.com/arcusfelis/kiss.git",
-       {ref,"13c701e0eeeb7ade2c1518f54bea416578591ae5"}},
+       {ref,"8e803b23060ab691b1971c1e6a4985642eae74bd"}},
   0},
  {<<"lager">>,{pkg,<<"lager">>,<<"3.9.2">>},0},
  {<<"lasse">>,{pkg,<<"lasse">>,<<"1.2.0">>},0},

diff --git a/src/ejabberd_ctl.erl b/src/ejabberd_ctl.erl
@@ -170,6 +170,7 @@ process(["mnesia"]) ->
     ?STATUS_SUCCESS;
 process(["mnesia", "info"]) ->
     mnesia:info(),
+    kiss_info(),
     ?STATUS_SUCCESS;
 process(["mnesia", Arg]) when is_list(Arg) ->
     case catch mnesia:system_info(list_to_atom(Arg)) of
@@ -928,3 +929,15 @@ get_dist_proto() ->
         _ -> "inet_tcp"
     end.
 
+kiss_info() ->
+    Tables = kiss_discovery:info(mongoose_kiss_discovery),
+    kiss_info(Tables).
+
+kiss_info([]) ->
+    ok;
+kiss_info(Tables) ->
+    ?PRINT("Kiss tables:~n", []),
+    [kiss_table_info(Table) || Table <- Tables].
+
+kiss_table_info(#{memory := Memory, size := Size, nodes := Nodes, table := Tab}) ->
+    ?PRINT("table=~0p size=~p memory=~0p words nodes=~0p~n", [Tab, Size, Memory, Nodes]).