From aa09cb80d28d213d565b7187b2d5451c614b9437 Mon Sep 17 00:00:00 2001 From: Elijah Sadorra Date: Wed, 9 Oct 2024 09:25:35 +0000 Subject: [PATCH] CA-399256: Ensure AD domain name check is case insensitive Signed-off-by: Elijah Sadorra --- ocaml/xapi/xapi_pool.ml | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/ocaml/xapi/xapi_pool.ml b/ocaml/xapi/xapi_pool.ml index 13b1d69871..e3aca23e47 100644 --- a/ocaml/xapi/xapi_pool.ml +++ b/ocaml/xapi/xapi_pool.ml @@ -322,7 +322,8 @@ let pre_join_checks ~__context ~rpc ~session_id ~force = slavetobe_auth_type slavetobe_auth_service_name ; if slavetobe_auth_type <> master_auth_type - || slavetobe_auth_service_name <> master_auth_service_name + || String.lowercase_ascii slavetobe_auth_service_name + <> String.lowercase_ascii master_auth_service_name then ( error "Cannot join pool whose external authentication configuration is \