list_queues_lma.sh

xargs -0  rabbitmqctl eval <<EOF
Prop = fun(K, L) -> proplists:get_value(K, L) end,
List = rabbit_amqqueue:list(<<"/">>),
QName = fun (Q) -> {resource, _VHost, queue, Name} = element(2, Q), Name end,
QPid = fun(Q) -> element(7, Q) end,
LocalList = lists:filter(fun (It) -> node(QPid(It)) =:= node() end , List),
Noop = make_ref(),
{ok, InterestingRe} = re:compile(<<"^(\\w*notifications\\.(error|info|warn)|[a-z]+)$">>),
IsNameInteresting = fun(Q) ->
  case re:run(QName(Q), InterestingRe) of 
    {match, _} ->
      true;
    _ ->
      false
   end
end,
InterestingList = lists:filter(IsNameInteresting, LocalList),
Render = fun(It) ->
  Info = rabbit_amqqueue:info(It),
  Name = QName(It),
  Messages = Prop(messages, Info),
  Memory = Prop(memory, Info),
  Consumers = Prop(consumers, Info),
  Slaves = Prop(slave_pids, Info),
  SyncSlaves = Prop(synchronized_slave_pids, Info),
  {Name, Messages, Memory,Consumers, Slaves, SyncSlaves}
end,
rabbit_misc:filter_exit_map(Render, InterestingList).
EOF