ocaml/auth/extauth_plugin_ADlikewise.ml | 16 ++++++++++++++++ 1 files changed, 16 insertions(+), 0 deletions(-)
# HG changeset patch # User Marcus Granado <[email protected]> # Date 1271776684 -3600 # Node ID 03c0dc63ddb2c5e8c38d3b90d3d4000e38393bf3 # Parent 9644b3a57cbac00b83ebed07c49b518907403ebd CA-27004: digit-only hostnames cannot join AD domain That's a current limitation of Likewise on Linux. Signed-off-by: Marcus Granado <[email protected]> diff -r 9644b3a57cba -r 03c0dc63ddb2 ocaml/auth/extauth_plugin_ADlikewise.ml --- a/ocaml/auth/extauth_plugin_ADlikewise.ml Tue Apr 20 14:15:07 2010 +0100 +++ b/ocaml/auth/extauth_plugin_ADlikewise.ml Tue Apr 20 16:18:04 2010 +0100 @@ -526,6 +526,22 @@ end else (* we have all the required parameters *) + + let hostname = + Server_helpers.exec_with_new_task "retrieving hostname" + (fun __context -> + let host = Helpers.get_localhost ~__context in + Db.Host.get_hostname ~__context ~self:host + ) + in + if (Stringext.String.fold_left + (fun b ch -> b && (ch>='0')&&(ch<='9')) + true + hostname + ) + then + raise (Auth_signature.Auth_service_error (Auth_signature.E_GENERIC,(Printf.sprintf "hostname '%s' cannot contain only digits." hostname))) + else let domain = let service_name = Server_helpers.exec_with_new_task "retrieving external_auth_service_name"
# HG changeset patch # User Marcus Granado <[email protected]> # Date 1271776684 -3600 # Node ID 03c0dc63ddb2c5e8c38d3b90d3d4000e38393bf3 # Parent 9644b3a57cbac00b83ebed07c49b518907403ebd CA-27004: digit-only hostnames cannot join AD domain That's a current limitation of Likewise on Linux. Signed-off-by: Marcus Granado <[email protected]> diff -r 9644b3a57cba -r 03c0dc63ddb2 ocaml/auth/extauth_plugin_ADlikewise.ml --- a/ocaml/auth/extauth_plugin_ADlikewise.ml Tue Apr 20 14:15:07 2010 +0100 +++ b/ocaml/auth/extauth_plugin_ADlikewise.ml Tue Apr 20 16:18:04 2010 +0100 @@ -526,6 +526,22 @@ end else (* we have all the required parameters *) + + let hostname = + Server_helpers.exec_with_new_task "retrieving hostname" + (fun __context -> + let host = Helpers.get_localhost ~__context in + Db.Host.get_hostname ~__context ~self:host + ) + in + if (Stringext.String.fold_left + (fun b ch -> b && (ch>='0')&&(ch<='9')) + true + hostname + ) + then + raise (Auth_signature.Auth_service_error (Auth_signature.E_GENERIC,(Printf.sprintf "hostname '%s' cannot contain only digits." hostname))) + else let domain = let service_name = Server_helpers.exec_with_new_task "retrieving external_auth_service_name"
_______________________________________________ xen-api mailing list [email protected] http://lists.xensource.com/mailman/listinfo/xen-api
