peer disc retry

Author: dumbbell

deps/rabbit/src/rabbit_peer_discovery.erl

@@ -698,7 +698,7 @@ is_node_db_ready(Node, FromNode) ->
     end.
 
 erpc_call(Node, Mod, Fun, Args, FromNode) ->
-    erpc_call(Node, Mod, Fun, Args, FromNode, 30000).
+    erpc_call(Node, Mod, Fun, Args, FromNode, 10000).
 
 erpc_call(Node, Mod, Fun, Args, FromNode, Timeout) when Timeout >= 0 ->
     try
@@ -712,11 +712,11 @@ erpc_call(Node, Mod, Fun, Args, FromNode, Timeout) when Timeout >= 0 ->
                         ["Peer discovery: temporary hidden node '~ts' "
                         "failed to connect to '~ts': ~0p",
                          [Peer, Node, Reason]]),
-            Sleep = 200,
+            Sleep = 1000,
             timer:sleep(Sleep),
             NewTimeout = Timeout - Sleep,
             case NewTimeout >= 0 of
-                true  -> erpc_call(Node, Mod, Fun, Args, FromNode);
+                true  -> erpc_call(Node, Mod, Fun, Args, FromNode, NewTimeout);
                 false -> erlang:raise(error, Reason, Stacktrace)
             end
     end.