# HG changeset patch
# User Marcus Granado <marcus.granado@xxxxxxxxxx>
# Date 1269542466 0
# Node ID 77fb225ec4c2d39fe6c962f2bb06c53e04d5069b
# Parent  eeddb6c9028499fff9a41ba5b0b56dd76af354c8
CA-39288: host-enable-disable-extauth should be pool-admin

Signed-off-by: Marcus Granado <marcus.granado@xxxxxxxxxxxxx>

diff -r eeddb6c90284 -r 77fb225ec4c2 ocaml/idl/datamodel.ml
--- a/ocaml/idl/datamodel.ml	Thu Mar 25 18:41:06 2010 +0000
+++ b/ocaml/idl/datamodel.ml	Thu Mar 25 18:41:06 2010 +0000
@@ -3420,7 +3420,7 @@
     String, "auth_type", "The type of authentication (e.g. AD for Active Directory)" 
     ]
   ~doc:"This call enables external authentication on a host"
-  ~allowed_roles:_R_POOL_OP
+  ~allowed_roles:_R_POOL_ADMIN
   ()
 
 let host_disable_external_auth = call ~flags:[`Session]
@@ -3432,7 +3432,7 @@
     {param_type=Map (String, String); param_name="config"; param_doc="Optional parameters as a list of key-values containing the configuration data"; param_release=george_release; param_default=Some (VMap [])}
     ]
   ~doc:"This call disables external authentication on the local host"
-  ~allowed_roles:_R_POOL_OP
+  ~allowed_roles:_R_POOL_ADMIN
   ()
 
 let host_set_license_params = call