MB-48940: Merge remote-tracking branch 'couchbase/mad-hatter'

MB-48306 [BP] Make clusterEncryptionLevel available on pools/default
MB-48046 Display cluster encryption level on servers page
MB-48940: Try both address family while connecting to LDAP host

Change-Id: Ibc7f3e42653df73094a1e64496b146c0b93de736

Author: anuthan

src/ldap_util.erl

@@ -106,11 +106,32 @@ open_ldap_connection([Host|Hosts], Port, SSL, Timeout, Settings) ->
               end,
     %% Note: timeout option sets not only connect timeout but a timeout for any
     %%       request to ldap server
-    case eldap:open([Host], [{port, Port}, {timeout, Timeout} | SSLOpts]) of
+    Opts = [{port, Port}, {timeout, Timeout} | SSLOpts],
+    case do_open_ldap_connection(Host, Opts) of
         {ok, Handle} -> {ok, Handle, Host};
         {error, _} -> open_ldap_connection(Hosts, Port, SSL, Timeout, Settings)
     end.
 
+do_open_ldap_connection(Host, Opts) ->
+    ToTry = case {misc:is_raw_ip(Host), misc:is_raw_ipv6(Host)} of
+                {_, true} ->
+                    [inet6];
+                {true, _} ->
+                    [inet];
+                _ ->
+                    case misc:get_net_family() of
+                        inet ->
+                            [inet, inet6];
+                        inet6 ->
+                            [inet6, inet]
+                    end
+            end,
+    lists:foldl(fun (_Afamily, {ok, Handle}) ->
+                        {ok, Handle};
+                    (Afamily, _) ->
+                        eldap:open([Host], [{tcpopts, [Afamily]} | Opts])
+                end, undefined, ToTry).
+
 with_connection(Settings, Fun) ->
     Hosts = proplists:get_value(hosts, Settings),
     Port = proplists:get_value(port, Settings),