rabbitmq_*_federation: Stop links during plugin stop

deps/rabbitmq_exchange_federation/src/rabbit_federation_exchange_link.erl

@@ -184,6 +184,9 @@ handle_info(check_internal_exchange, State = #state{internal_exchange = IntXName
             {noreply, State#state{internal_exchange_timer = TRef}}
     end;
 
+handle_info({'EXIT', _From, Reason}, State) ->
+    {stop, Reason, State};
+
 handle_info(Msg, State) ->
     {stop, {unexpected_info, Msg}, State}.
 

deps/rabbitmq_federation_common/src/rabbit_federation_link_sup.erl

@@ -99,12 +99,12 @@ specs(LinkMod, XorQ) ->
 
 spec(LinkMod, U = #upstream{reconnect_delay = Delay}, #exchange{name = XName}) ->
     {U, {LinkMod, start_link, [{U, XName}]},
-     {permanent, Delay}, ?WORKER_WAIT, worker,
+     {transient, Delay}, ?WORKER_WAIT, worker,
      [LinkMod]};
 
 spec(LinkMod, Upstream = #upstream{reconnect_delay = Delay}, Q) when ?is_amqqueue(Q) ->
     {Upstream, {LinkMod, start_link, [{Upstream, Q}]},
-     {permanent, Delay}, ?WORKER_WAIT, worker,
+     {transient, Delay}, ?WORKER_WAIT, worker,
      [LinkMod]}.
 
 name(#exchange{name = XName}) -> XName;

deps/rabbitmq_federation_common/src/rabbit_federation_pg.erl

@@ -17,7 +17,29 @@ stop_scope(Scope) ->
   case whereis(Scope) of
       Pid when is_pid(Pid) ->
           rabbit_log_federation:debug("Stopping pg scope ~ts", [Scope]),
+          Groups = pg:which_groups(Scope),
+          lists:foreach(
+            fun(Group) ->
+                    stop_group(Scope, Group)
+            end, Groups),
           exit(Pid, normal);
       _ ->
           ok
   end.
+
+stop_group(Scope, Group) ->
+    Members = pg:get_local_members(Scope, Group),
+    MRefs = [erlang:monitor(process, Member) || Member <- Members],
+    lists:foreach(
+      fun(Member) ->
+              exit(Member, normal)
+      end, Members),
+    lists:foreach(
+      fun(MRef) ->
+              receive
+                  {'DOWN', MRef, process, _Member, _Info} ->
+                      logger:alert("Member ~p stopped: ~0p", [_Member, _Info]),
+                      ok
+              end
+      end, MRefs),
+    ok.

deps/rabbitmq_queue_federation/src/rabbit_federation_queue_link.erl

@@ -162,6 +162,9 @@ handle_info({'DOWN', _Ref, process, Pid, Reason},
     QName = amqqueue:get_name(Q),
     handle_down(Pid, Reason, Ch, DCh, {Upstream, UParams, QName}, State);
 
+handle_info({'EXIT', _From, Reason}, State) ->
+    {stop, Reason, State};
+
 handle_info(Msg, State) ->
     {stop, {unexpected_info, Msg}, State}.