CP-53724 Add xe CLI commands for setting and querying Dom0 SSH auto mode

Updated `records.ml` file to support `host-param-set/get/list` and `pool-param-set/get/list` for ssh-auto-mode.

Signed-off-by: Lunfan Zhang <[email protected]>

Author: LunfanZhang

ocaml/xapi-cli-server/records.ml

@@ -1584,6 +1584,17 @@ let pool_record rpc session_id pool =
               ~value:(safe_i64_of_string "console-idle-timeout" value)
           )
           ()
+      ; make_field ~name:"ssh-auto-mode"
+          ~get:(fun () ->
+            get_consistent_field_or_default ~rpc ~session_id
+              ~getter:Client.Host.get_ssh_auto_mode ~transform:string_of_bool
+              ~default:inconsistent
+          )
+          ~set:(fun value ->
+            Client.Pool.set_ssh_auto_mode ~rpc ~session_id ~self:pool
+              ~value:(safe_bool_of_string "ssh-auto-mode" value)
+          )
+          ()
       ]
   }
 
@@ -3375,6 +3386,13 @@ let host_record rpc session_id host =
               ~value:(safe_i64_of_string "console-idle-timeout" value)
           )
           ()
+      ; make_field ~name:"ssh-auto-mode"
+          ~get:(fun () -> string_of_bool (x ()).API.host_ssh_auto_mode)
+          ~set:(fun value ->
+            Client.Host.set_ssh_auto_mode ~rpc ~session_id ~self:host
+              ~value:(safe_bool_of_string "ssh-auto-mode" value)
+          )
+          ()
       ]
   }