CA-235986: Add Pool_update.version to the CLI

Signed-off-by: Sharad Yadav <[email protected]>

Author: sharady

ocaml/client_records/records.ml

@@ -1028,6 +1028,7 @@ let pool_update_record rpc session_id update =
         make_field ~name:"uuid"                ~get:(fun () -> (x ()).API.pool_update_uuid) ();
         make_field ~name:"name-label"          ~get:(fun () -> (x ()).API.pool_update_name_label) ();
         make_field ~name:"name-description"    ~get:(fun () -> (x ()).API.pool_update_name_description) ();
+        make_field ~name:"version"             ~get:(fun () -> (x ()).API.pool_update_version) ();
         make_field ~name:"installation-size"   ~get:(fun () -> Int64.to_string (x ()).API.pool_update_installation_size) ();
         make_field ~name:"hosts"               ~get:(fun () -> String.concat ", " (get_hosts ())) ~get_set:get_hosts ();
         make_field ~name:"after-apply-guidance" ~get:(fun () -> String.concat ", " (after_apply_guidance ())) ~get_set:after_apply_guidance ();

ocaml/xapi/cli_operations.ml

@@ -782,7 +782,7 @@ let gen_cmds rpc session_id =
     ; Client.Host_cpu.(mk get_all get_all_records_where get_by_uuid host_cpu_record "host-cpu" [] ["uuid";"number";"vendor";"speed";"utilisation"] rpc session_id)
     ; Client.Host_crashdump.(mk get_all get_all_records_where get_by_uuid host_crashdump_record "host-crashdump" [] ["uuid";"host";"timestamp";"size"] rpc session_id)
     ; Client.Pool_patch.(mk get_all get_all_records_where get_by_uuid pool_patch_record "patch" [] ["uuid"; "name-label"; "name-description"; "size"; "hosts"; "after-apply-guidance"] rpc session_id)
-    ; Client.Pool_update.(mk get_all get_all_records_where get_by_uuid pool_update_record "update" [] ["uuid"; "name-label"; "name-description"; "installation-size"; "hosts"; "after-apply-guidance"] rpc session_id)
+    ; Client.Pool_update.(mk get_all get_all_records_where get_by_uuid pool_update_record "update" [] ["uuid"; "name-label"; "name-description"; "version"; "installation-size"; "hosts"; "after-apply-guidance"] rpc session_id)
     ; Client.VDI.(mk get_all get_all_records_where get_by_uuid vdi_record "vdi" [] ["uuid";"name-label";"name-description";"virtual-size";"read-only";"sharable";"sr-uuid"] rpc session_id)
     ; Client.VBD.(mk get_all get_all_records_where get_by_uuid vbd_record "vbd" [] ["uuid";"vm-uuid";"vm-name-label";"vdi-uuid";"device"; "empty"] rpc session_id)
     ; Client.SR.(mk get_all get_all_records_where get_by_uuid sr_record "sr" [] ["uuid";"name-label";"name-description";"host";"type";"content-type"] rpc session_id)