Chapril/xmpp.chapril.org-ejabberd
25
1
Fork 0
mirror of https://github.com/processone/ejabberd.git synced 2024-10-31 15:21:38 +01:00
Code Releases Activity

Show binaries in a pretty format in WebAdmin

Browse Source
This commit is contained in:
Badlop 2012-10-29 13:40:50 +01:00
parent c4d582ace4
commit 472089a328
1 changed files with 36 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
src/web/ejabberd_web_admin.erl
View File

@ -1046,12 +1046,46 @@ term_to_string(T) ->
<<"">>). <<"">>).
term_to_paragraph(T, Cols) -> term_to_paragraph(T, Cols) ->
Paragraph = list_to_binary(erl_prettypr:format(erl_syntax:abstract(T), P1 = erl_syntax:abstract(T),
[{paper, Cols}])), P2 = erl_prettypr:format(P1, [{paper, Cols}]),
P3 = pretty_binaries(P2),
Paragraph = list_to_binary(P3),
FieldList = ejabberd_regexp:split(Paragraph, <<"\n">>), FieldList = ejabberd_regexp:split(Paragraph, <<"\n">>),
NumLines = length(FieldList), NumLines = length(FieldList),
{NumLines, Paragraph}. {NumLines, Paragraph}.
%% Convert a string like this:
%% "[{acl, admin,\n {user, <<98, 97, 100, 108, 111, 112>>,
%% into something like this:
%% "[{acl,admin,{user,<<"badlop">>,
pretty_binaries(String) ->
pretty_sentence(String, "").
pretty_sentence("", R) ->
lists:reverse(R);
pretty_sentence([$<, $< | A], R) ->
{A2, Binary} = pretty_binary(A, ""),
pretty_sentence(A2, Binary ++ R);
pretty_sentence([Char | A], R) ->
pretty_sentence(A, [Char | R]).
pretty_binary([$>, $> | A], "") ->
{A, ">>" ++ "<<"};
pretty_binary([$>, $> | A], R) ->
{A, ">>" ++ io_lib:format("~p", [lists:reverse(R)]) ++ "<<"};
pretty_binary([$, | A], R) ->
pretty_binary(A, R);
pretty_binary([32 | A], R) ->
pretty_binary(A, R);
pretty_binary([$\n | A], R) ->
pretty_binary(A, R);
pretty_binary([Digit1, Digit2, Other | A], R) when (Other == $>) or (Other == $,) ->
Integer = list_to_integer([Digit1, Digit2]),
pretty_binary([Other | A], [Integer | R]);
pretty_binary([Digit1, Digit2, Digit3, Other | A], R) when (Other == $>) or (Other == $,) ->
Integer = list_to_integer([Digit1, Digit2, Digit3]),
pretty_binary([Other | A], [Integer | R]).
term_to_id(T) -> jlib:encode_base64((term_to_binary(T))). term_to_id(T) -> jlib:encode_base64((term_to_binary(T))).
acl_parse_query(Host, Query) -> acl_parse_query(Host, Query) ->