Add xe vdi-data-destroy CLI command

Signed-off-by: Gabor Igloi <[email protected]>

Author: gaborigloi

ocaml/xapi/cli_frontend.ml

@@ -1985,6 +1985,14 @@ let rec cmdtable_data : (string*cmd_spec) list =
       implementation=No_fd Cli_operations.vdi_disable_cbt;
       flags=[];
     };
+    "vdi-data-destroy",
+    {
+      reqd=["uuid"];
+      optn=[];
+      help="Delete the data of the VDI, but keep its changed block tracking metadata.";
+      implementation=No_fd Cli_operations.vdi_data_destroy;
+      flags=[];
+    };
     "diagnostic-vdi-status",
     {
       reqd=["uuid"];

ocaml/xapi/cli_operations.ml

@@ -1256,6 +1256,10 @@ let vdi_disable_cbt printer rpc session_id params =
   let vdi = Client.VDI.get_by_uuid rpc session_id (List.assoc "uuid" params) in
   Client.VDI.disable_cbt rpc session_id vdi
 
+let vdi_data_destroy printer rpc session_id params =
+  let vdi = Client.VDI.get_by_uuid rpc session_id (List.assoc "uuid" params) in
+  Client.VDI.data_destroy rpc session_id vdi
+
 let diagnostic_vdi_status printer rpc session_id params =
   let vdi = Client.VDI.get_by_uuid rpc session_id (List.assoc "uuid" params) in
   let vdi_r = vdi_record rpc session_id vdi in