#!/usr/bin/env escript
%%! -sname s2s@localhost
%%
%% Den '@localhost'-Part des Nodenamens oben und unten ggf. anpassen.
%%
-define(NODE, 'ejabberd@localhost').

-spec main([string()]) -> any().
main(_Args) ->
  case rpc:call(?NODE, ejabberd_s2s, dirty_get_connections, []) of
    Connections when is_list(Connections) ->
      [io:format("~s <-> ~s~n", [L, R]) || {L, R} <- lists:sort(Connections)];
    {badrpc, Reason} ->
      panic("Cannot query ejabberd: ~p", [Reason])
  end.

-spec panic(io:format(), [term()]) -> no_return().
panic(Format, Data) ->
  io:format(standard_error, Format, Data),
  io:nl(standard_error),
  halt(1).