[Xen-API] [PATCH 04 of 21] CP-1801: modify VM import/export to wipe the policy pointer field information

[Marcus Granado <marcus.granado@xxxxxxxxxx>]

 ocaml/xapi/export.ml |  1 +
 ocaml/xapi/import.ml |  1 +
 2 files changed, 2 insertions(+), 0 deletions(-)


# HG changeset patch
# User Marcus Granado <marcus.granado@xxxxxxxxxx>
# Date 1282322886 -3600
# Node ID 83c6ee451c6ee85f4255f470d5f89f9a0fa8c39a
# Parent  a9dd0a13fd1329bd654e61ec62101352b2c15b63
CP-1801: modify VM import/export to wipe the policy pointer field information

Signed-off-by: Marcus Granado <marcus.granado@xxxxxxxxxxxxx>

diff -r a9dd0a13fd13 -r 83c6ee451c6e ocaml/xapi/export.ml
--- a/ocaml/xapi/export.ml
+++ b/ocaml/xapi/export.ml
@@ -170,6 +170,7 @@
                API.vM_consoles = [];
                API.vM_metrics = Ref.null;
                API.vM_guest_metrics = lookup table (Ref.string_of 
vm.API.vM_guest_metrics);
+               API.vM_protection_policy = Ref.null;
                API.vM_bios_strings = vm.API.vM_bios_strings } in
   { cls = Datamodel._vm; 
     id = Ref.string_of (lookup table (Ref.string_of self)); 
diff -r a9dd0a13fd13 -r 83c6ee451c6e ocaml/xapi/import.ml
--- a/ocaml/xapi/import.ml
+++ b/ocaml/xapi/import.ml
@@ -192,6 +192,7 @@
        let vm_record = {vm_record with API.
                vM_memory_overhead = Memory_check.vm_compute_memory_overhead 
vm_record
        } in
+       let vm_record = {vm_record with API.vM_protection_policy = Ref.null} in
 
   let vm = log_reraise
     ("failed to create VM with name-label " ^ vm_record.API.vM_name_label)

xen-api.hg-04.patch
Description: Text Data

_______________________________________________
xen-api mailing list
xen-api@xxxxxxxxxxxxxxxxxxx
http://lists.xensource.com/mailman/listinfo/xen-api