CP-15277: CLI availability of can_use_hotplug_vif|vbd

Make these new VM guest metrics fields accessible through the CLI.

Signed-off-by: Thomas Sanders <[email protected]>

Author: thomassa

ocaml/client_records/record_util.ml

@@ -460,6 +460,12 @@ let on_boot_to_string onboot =
 		| `reset -> "reset"
 		| `persist -> "persist"
 
+let tristate_to_string tristate =
+	match tristate with
+		| `yes -> "true"
+		| `no -> "false"
+		| `unspecified -> "unspecified"
+
 let wrap f err x = try f x with _ -> err x
 let generic_error x = raise (Record_failure ("Unknown value: "^x))
 let rpc_to_string = function | Rpc.String s -> s | _ -> failwith "Bad RPC type in record_util"

ocaml/client_records/records.ml

@@ -882,6 +882,10 @@ let vm_record rpc session_id vm =
 				~get:(fun () -> default nid (may (fun m -> string_of_bool m.API.vM_guest_metrics_live) (xgm ()) )) ();
 			make_field ~name:"guest-metrics-last-updated"
 				~get:(fun () -> default nid (may (fun m -> Date.to_string m.API.vM_guest_metrics_last_updated) (xgm ()) )) ();
+			make_field ~name:"can-use-hotplug-vbd"
+				~get:(fun () -> default nid (may (fun m -> Record_util.tristate_to_string m.API.vM_guest_metrics_can_use_hotplug_vbd) (xgm ()) )) ();
+			make_field ~name:"can-use-hotplug-vif"
+				~get:(fun () -> default nid (may (fun m -> Record_util.tristate_to_string m.API.vM_guest_metrics_can_use_hotplug_vif) (xgm ()) )) ();
 			make_field ~name:"cooperative"
 				(* NB this can receive VM_IS_SNAPSHOT *)
 				~get:(fun () -> string_of_bool (try Client.VM.get_cooperative rpc session_id vm with _ -> true))