25
1
mirror of https://github.com/processone/ejabberd.git synced 2024-12-22 17:28:25 +01:00

Show mnesia table memory in bytes, not in words

This commit is contained in:
Badlop 2021-05-18 14:53:06 +02:00
parent 95fa43aa96
commit 494ba9a635

View File

@ -1151,6 +1151,7 @@ get_node(global, Node, [<<"db">>], Query, Lang) ->
{T, S, M};
_ -> {unknown, 0, 0}
end,
MemoryB = Memory*erlang:system_info(wordsize),
?XE(<<"tr">>,
[?XE(<<"td">>,
[?AC(<<"./", STable/binary,
@ -1166,7 +1167,7 @@ get_node(global, Node, [<<"db">>], Query, Lang) ->
(pretty_string_int(Size)))]),
?XAC(<<"td">>,
[{<<"class">>, <<"alignright">>}],
(pretty_string_int(Memory)))])
(pretty_string_int(MemoryB)))])
end,
STables),
[?XC(<<"h1">>,
@ -1750,6 +1751,7 @@ make_table_view(Node, STable, Lang) ->
{value, {storage_type, Type}} = lists:keysearch(storage_type, 1, TInfo),
{value, {size, Size}} = lists:keysearch(size, 1, TInfo),
{value, {memory, Memory}} = lists:keysearch(memory, 1, TInfo),
MemoryB = Memory*erlang:system_info(wordsize),
TableInfo = str:format("~p", [TInfo]),
[?XC(<<"h1">>, (str:translate_and_format(Lang, ?T("Database Tables at ~p"),
[Node]))),
@ -1780,7 +1782,7 @@ make_table_view(Node, STable, Lang) ->
?XE(<<"tr">>,
[?XCT(<<"td">>, ?T("Memory")),
?XAC(<<"td">>, [{<<"class">>, <<"alignright">>}],
(pretty_string_int(Memory))
(pretty_string_int(MemoryB))
)])
])]),
?XC(<<"pre">>, TableInfo)].