diff options
author | Matthew Sackman <matthew@rabbitmq.com> | 2010-12-16 18:37:44 +0000 |
---|---|---|
committer | Matthew Sackman <matthew@rabbitmq.com> | 2010-12-16 18:37:44 +0000 |
commit | 34b1a1eb682015345c1b5bc0d3623ac1cba27bdd (patch) | |
tree | f4043587187c6b502870483b58f902a6300e0c80 /src/rabbit_control.erl | |
parent | a6781f983a5c23281a94e153901b016e3ac7fdb8 (diff) | |
download | rabbitmq-server-34b1a1eb682015345c1b5bc0d3623ac1cba27bdd.tar.gz |
Permit dynamic inspection of the current mirror queues. This isn't particularly lovely because the master queue itself does not know, and thus has to do an mnesia read. However, for the time being it should do
Diffstat (limited to 'src/rabbit_control.erl')
-rw-r--r-- | src/rabbit_control.erl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/rabbit_control.erl b/src/rabbit_control.erl index df55d961..4a0bd25e 100644 --- a/src/rabbit_control.erl +++ b/src/rabbit_control.erl @@ -353,6 +353,12 @@ format_info_item([{TableEntryKey, TableEntryType, _TableEntryValue} | _] = Value) when is_binary(TableEntryKey) andalso is_atom(TableEntryType) -> io_lib:format("~1000000000000p", [prettify_amqp_table(Value)]); +format_info_item([T | _] = Value) + when is_tuple(T) orelse is_pid(T) orelse is_binary(T) orelse is_atom(T) orelse + is_list(T) -> + "[" ++ + lists:nthtail(2, lists:append( + [", " ++ format_info_item(E) || E <- Value])) ++ "]"; format_info_item(Value) -> io_lib:format("~w", [Value]). |