Check for dist_blocker in mongoose_epmd

src/mongoose_epmd.erl

@@ -52,8 +52,22 @@ open(A) -> erl_epmd:open(A).
 open(A, B) -> erl_epmd:open(A, B).
 
 address_please(Name, Host, AddressFamily) ->
-    Node = list_to_binary(Name ++ "@" ++ Host),
-    case lookup_ip(Node) of
+    NodeString = Name ++ "@" ++ Host,
+    NodeAtom = list_to_atom(NodeString),
+    NodeBin = list_to_binary(NodeString),
+    try mongoose_dist_blocker:is_blocked(NodeAtom) of
+        true ->
+            %% Do not create connections if they would be rejected by dist_blocker anyway
+            {error, node_blocked};
+        false ->
+            do_address_please(NodeBin, Host, AddressFamily)
+     catch _:_ ->
+            %% Ignore if dist_blocker is not loaded
+            do_address_please(NodeBin, Host, AddressFamily)
+     end.
+
+do_address_please(NodeBin, Host, AddressFamily) ->
+    case lookup_ip(NodeBin) of
         {ok, _IP} = Res ->
             Res;
         _ ->