# HG changeset patch
# User Marcus Granado <marcus.granado@xxxxxxxxxx>
# 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 <marcus.granado@xxxxxxxxxxxxx>

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"