CP-311125 unhide AD cache pool parameters in XE CLI

External authentication using Active Directory can use a cache to
improve performance. The corresponding fields on the pool object so far
were hidden. This patch makes them visible, and as a consequence more
easily accessible from the CLI and its autocompletion.

Signed-off-by: Christian Lindig <christian.lindig@citrix.com>

Author: lindig

ocaml/idl/datamodel_pool.ml

@@ -1516,7 +1516,7 @@ let set_ext_auth_cache_enabled =
         , "Specifies whether caching is enabled for external authentication"
         )
       ]
-    ~hide_from_docs:true ~allowed_roles:_R_POOL_OP ()
+    ~hide_from_docs:false ~allowed_roles:_R_POOL_OP ()
 
 let set_ext_auth_cache_size =
   call ~name:"set_ext_auth_cache_size" ~lifecycle:[]
@@ -1525,7 +1525,7 @@ let set_ext_auth_cache_size =
         (Ref _pool, "self", "The pool")
       ; (Int, "value", "The capacity of the external authentication cache")
       ]
-    ~hide_from_docs:true ~allowed_roles:_R_POOL_OP ()
+    ~hide_from_docs:false ~allowed_roles:_R_POOL_OP ()
 
 let set_ext_auth_cache_expiry =
   call ~name:"set_ext_auth_cache_expiry" ~lifecycle:[]
@@ -1538,7 +1538,7 @@ let set_ext_auth_cache_expiry =
            seconds - 300 seconds, i.e. 5 minutes, is the default value)"
         )
       ]
-    ~hide_from_docs:true ~allowed_roles:_R_POOL_OP ()
+    ~hide_from_docs:false ~allowed_roles:_R_POOL_OP ()
 
 let pool_guest_secureboot_readiness =
   Enum

ocaml/xapi-cli-server/records.ml

@@ -1520,7 +1520,7 @@ let pool_record rpc session_id pool =
           ~get:(fun () -> get_from_map (x ()).API.pool_recommendations)
           ~get_map:(fun () -> (x ()).API.pool_recommendations)
           ()
-      ; make_field ~name:"ext-auth-cache-enabled" ~hidden:true
+      ; make_field ~name:"ext-auth-cache-enabled" ~hidden:false
           ~get:(fun () ->
             (x ()).API.pool_ext_auth_cache_enabled |> string_of_bool
           )
@@ -1529,14 +1529,14 @@ let pool_record rpc session_id pool =
               ~value:(bool_of_string v)
           )
           ()
-      ; make_field ~name:"ext-auth-cache-size" ~hidden:true
+      ; make_field ~name:"ext-auth-cache-size" ~hidden:false
           ~get:(fun () -> (x ()).API.pool_ext_auth_cache_size |> Int64.to_string)
           ~set:(fun v ->
             Client.Pool.set_ext_auth_cache_size ~rpc ~session_id ~self:pool
               ~value:(Int64.of_string v)
           )
           ()
-      ; make_field ~name:"ext-auth-cache-expiry" ~hidden:true
+      ; make_field ~name:"ext-auth-cache-expiry" ~hidden:false
           ~get:(fun () ->
             (x ()).API.pool_ext_auth_cache_expiry |> Int64.to_string
           )