Add xe vdi-export-changed-blocks CLI command

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

Author: gaborigloi

ocaml/xapi/cli_frontend.ml

@@ -1993,6 +1993,14 @@ let rec cmdtable_data : (string*cmd_spec) list =
       implementation=No_fd Cli_operations.vdi_data_destroy;
       flags=[];
     };
+    "vdi-export-changed-blocks",
+    {
+      reqd=["vdi-from"; "vdi-to"];
+      optn=[];
+      help="Write the changed blocks between the two given VDIs to the standard output as a base64-encoded bitmap string.";
+      implementation=With_fd Cli_operations.vdi_export_changed_blocks;
+      flags=[];
+    };
     "diagnostic-vdi-status",
     {
       reqd=["uuid"];

ocaml/xapi/cli_operations.ml

@@ -1260,6 +1260,12 @@ 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 vdi_export_changed_blocks socket _ rpc session_id params =
+  let vdi_from = Client.VDI.get_by_uuid rpc session_id (List.assoc "vdi-from" params) in
+  let vdi_to = Client.VDI.get_by_uuid rpc session_id (List.assoc "vdi-to" params) in
+  let bitmap = Client.VDI.export_changed_blocks ~rpc ~session_id ~vdi_from ~vdi_to in
+  marshal socket (Command (Print bitmap))
+
 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