mirrors/libguestfs
1
0
Fork 0
mirror of https://github.com/libguestfs/libguestfs.git synced 2026-03-22 07:03:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

v2v: ovf: Create OVF more aligned with the standard

Browse Source 
For historical reasons the OVF used in RHV export domain contains some
deviations from the OVF standard. The format used in -o rhv has to
remain fixed but for -o vdsm and we could produce much nicer OVF. This
patch serves as a preparatory step to this.

The main reason for creating different OVF is that it can be used to
create VM by oVirt REST API. The RHV export domain flavor cannot be used
that way.

For now the virt-v2v behavior is unchanged. The modified output will be
enabled in some later patch.

Signed-off-by: Tomáš Golembiovský <tgolembi@redhat.com>
This commit is contained in:
Tomáš Golembiovský
2018-02-22 11:41:07 +01:00
committed by Richard W.M. Jones
parent 8fb60072cc
commit a52ed4b445
4 changed files with 121 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files

152
v2v/create_ovf.ml
View File

@@ -29,6 +29,10 @@ open Types
open Utils
open DOM
type ovf_flavour =
| OVirt
| RHVExportStorageDomain
(* We set the creation time to be the same for all dates in
* all metadata files. All dates in OVF are UTC.
*)
@@ -269,7 +273,7 @@ let create_meta_files output_alloc sd_uuid image_uuids targets =
(* Create the OVF file. *)
let rec create_ovf source targets guestcaps inspect
output_alloc sd_uuid image_uuids vol_uuids vm_uuid =
output_alloc sd_uuid image_uuids vol_uuids vm_uuid ovf_flavour =
assert (List.length targets = List.length vol_uuids);
let memsize_mb = source.s_memory /^ 1024L /^ 1024L in
@@ -288,12 +292,26 @@ let rec create_ovf source targets guestcaps inspect
] [
Comment generated_by;
e "References" [] [];
e "Section" ["xsi:type", "ovf:NetworkSection_Type"] [
e "Info" [] [PCData "List of networks"]
];
e "Section" ["xsi:type", "ovf:DiskSection_Type"] [
e "Info" [] [PCData "List of Virtual Disks"]
];
(match ovf_flavour with
| OVirt ->
e "NetworkSection" [] [
e "Info" [] [PCData "List of networks"]
]
| RHVExportStorageDomain ->
e "Section" ["xsi:type", "ovf:NetworkSection_Type"] [
e "Info" [] [PCData "List of networks"]
]
);
(match ovf_flavour with
| OVirt ->
e "DiskSection" [] [
e "Info" [] [PCData "List of Virtual Disks"]
]
| RHVExportStorageDomain ->
e "Section" ["xsi:type", "ovf:DiskSection_Type"] [
e "Info" [] [PCData "List of Virtual Disks"]
]
);
let content_subnodes = ref [
e "Name" [] [PCData source.s_name];
@@ -326,11 +344,20 @@ let rec create_ovf source targets guestcaps inspect
);
List.push_back content_subnodes (
e "Section" ["ovf:id", vm_uuid; "ovf:required", "false";
"xsi:type", "ovf:OperatingSystemSection_Type"] [
let osinfo_subnodes = [
e "Info" [] [PCData inspect.i_product_name];
e "Description" [] [PCData ostype];
]
] in
(match ovf_flavour with
| OVirt ->
e "OperatingSystemSection" ["ovf:id", vm_uuid;
"ovf:required", "false"]
osinfo_subnodes
| RHVExportStorageDomain ->
e "Section" ["ovf:id", vm_uuid; "ovf:required", "false";
"xsi:type", "ovf:OperatingSystemSection_Type"]
osinfo_subnodes
)
);
let virtual_hardware_section_items = ref [
@@ -424,24 +451,34 @@ let rec create_ovf source targets guestcaps inspect
);
List.push_back content_subnodes (
e "Section" ["xsi:type", "ovf:VirtualHardwareSection_Type"]
!virtual_hardware_section_items
match ovf_flavour with
| OVirt ->
e "VirtualHardwareSection" [] !virtual_hardware_section_items
| RHVExportStorageDomain ->
e "Section" ["xsi:type", "ovf:VirtualHardwareSection_Type"]
!virtual_hardware_section_items
);
e "Content" ["ovf:id", "out"; "xsi:type", "ovf:VirtualSystem_Type"]
!content_subnodes
(match ovf_flavour with
| OVirt ->
e "VirtualSystem" ["ovf:id", "out"] !content_subnodes
| RHVExportStorageDomain ->
e "Content" ["ovf:id", "out"; "xsi:type", "ovf:VirtualSystem_Type"]
!content_subnodes
)
] in
(* Add disks to the OVF XML. *)
add_disks targets guestcaps output_alloc sd_uuid image_uuids vol_uuids ovf;
add_disks targets guestcaps output_alloc sd_uuid image_uuids vol_uuids
ovf_flavour ovf;
(* Old virt-v2v ignored removable media. XXX *)
(* Add networks to the OVF XML. *)
add_networks source.s_nics guestcaps ovf;
add_networks source.s_nics guestcaps ovf_flavour ovf;
(* Add sound card to the OVF XML. *)
add_sound_card source.s_sound ovf;
add_sound_card source.s_sound ovf_flavour ovf;
(* Old virt-v2v didn't really look at the video and display
* metadata, instead just adding a single standard display (see
@@ -461,21 +498,42 @@ let rec create_ovf source targets guestcaps inspect
(* Return the OVF document. *)
ovf
(* Find appropriate section depending on the OVF flavour being generated.
*
* For example normal disk section is in node <DiskSection> whereas in case of
* RHV export storage domain it is <Section xsi:type="ovf:DiskSection_Type">.
*)
and get_flavoured_section ovf ovf_flavour ovirt_path rhv_path rhv_path_attr =
let nodes =
match ovf_flavour with
| OVirt ->
let nodes = path_to_nodes ovf ovirt_path in
(match nodes with
| [node] -> node
| [] | _::_::_ -> assert false)
| RHVExportStorageDomain ->
let nodes = path_to_nodes ovf rhv_path in
try find_node_by_attr nodes rhv_path_attr
with Not_found -> assert false
in
nodes
(* This modifies the OVF DOM, adding a section for each disk. *)
and add_disks targets guestcaps output_alloc sd_uuid image_uuids vol_uuids ovf =
and add_disks targets guestcaps output_alloc sd_uuid image_uuids vol_uuids
ovf_flavour ovf =
let references =
let nodes = path_to_nodes ovf ["ovf:Envelope"; "References"] in
match nodes with
| [] | _::_::_ -> assert false
| [node] -> node in
let disk_section =
let sections = path_to_nodes ovf ["ovf:Envelope"; "Section"] in
try find_node_by_attr sections ("xsi:type", "ovf:DiskSection_Type")
with Not_found -> assert false in
let virtualhardware_section =
let sections = path_to_nodes ovf ["ovf:Envelope"; "Content"; "Section"] in
try find_node_by_attr sections ("xsi:type", "ovf:VirtualHardwareSection_Type")
with Not_found -> assert false in
let disk_section = get_flavoured_section ovf ovf_flavour
["ovf:Envelope"; "DiskSection"]
["ovf:Envelope"; "Section"]
("xsi:type", "ovf:DiskSection_Type") in
let virtualhardware_section = get_flavoured_section ovf ovf_flavour
["ovf:Envelope"; "VirtualSystem"; "VirtualHardwareSection"]
["ovf:Envelope"; "Content"; "Section"]
("xsi:type", "ovf:VirtualHardwareSection_Type") in
(* Iterate over the disks, adding them to the OVF document. *)
List.iteri (
@@ -489,7 +547,12 @@ and add_disks targets guestcaps output_alloc sd_uuid image_uuids vol_uuids ovf =
let is_bootable_drive = i == 0 in
let boot_order = i+1 in
let fileref = sprintf "%s/%s" image_uuid vol_uuid in
let fileref =
match ovf_flavour with
| OVirt ->
vol_uuid
| RHVExportStorageDomain ->
sprintf "%s/%s" image_uuid vol_uuid in
(* ovf:size and ovf:actual_size fields are integer GBs. If you
* use floating point numbers then RHV will fail to parse them.
@@ -535,7 +598,10 @@ and add_disks targets guestcaps output_alloc sd_uuid image_uuids vol_uuids ovf =
(* Add disk to DiskSection. *)
let disk =
let attrs = ref [
"ovf:diskId", vol_uuid;
"ovf:diskId",
(match ovf_flavour with
| OVirt -> image_uuid
| RHVExportStorageDomain -> vol_uuid);
"ovf:size", Int64.to_string size_gb;
"ovf:fileRef", fileref;
"ovf:parentRef", "";
@@ -593,15 +659,15 @@ and add_disks targets guestcaps output_alloc sd_uuid image_uuids vol_uuids ovf =
) (List.combine3 targets image_uuids vol_uuids)
(* This modifies the OVF DOM, adding a section for each NIC. *)
and add_networks nics guestcaps ovf =
let network_section =
let sections = path_to_nodes ovf ["ovf:Envelope"; "Section"] in
try find_node_by_attr sections ("xsi:type", "ovf:NetworkSection_Type")
with Not_found -> assert false in
let virtualhardware_section =
let sections = path_to_nodes ovf ["ovf:Envelope"; "Content"; "Section"] in
try find_node_by_attr sections ("xsi:type", "ovf:VirtualHardwareSection_Type")
with Not_found -> assert false in
and add_networks nics guestcaps ovf_flavour ovf =
let network_section = get_flavoured_section ovf ovf_flavour
["ovf:Envelope"; "NetworkSection"]
["ovf:Envelope"; "Section"]
("xsi:type", "ovf:NetworkSection_Type") in
let virtualhardware_section = get_flavoured_section ovf ovf_flavour
["ovf:Envelope"; "VirtualSystem"; "VirtualHardwareSection"]
["ovf:Envelope"; "Content"; "Section"]
("xsi:type", "ovf:VirtualHardwareSection_Type") in
(* Iterate over the NICs, adding them to the OVF document. *)
List.iteri (
@@ -649,7 +715,7 @@ and add_networks nics guestcaps ovf =
) nics
(* This modifies the OVF DOM, adding a sound card, if oVirt can emulate it. *)
and add_sound_card sound ovf =
and add_sound_card sound ovf_flavour ovf =
let device =
match sound with
| None -> None
@@ -662,12 +728,10 @@ and add_sound_card sound ovf =
match device with
| Some device ->
let virtualhardware_section =
let sections =
path_to_nodes ovf ["ovf:Envelope"; "Content"; "Section"] in
try find_node_by_attr sections
("xsi:type", "ovf:VirtualHardwareSection_Type")
with Not_found -> assert false in
let virtualhardware_section = get_flavoured_section ovf ovf_flavour
["ovf:Envelope"; "VirtualSystem"; "VirtualHardwareSection"]
["ovf:Envelope"; "Content"; "Section"]
("xsi:type", "ovf:VirtualHardwareSection_Type") in
let item =
e "Item" [] [

12
v2v/create_ovf.mli
View File

@@ -16,16 +16,22 @@
* 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
*)
type ovf_flavour =
| OVirt
| RHVExportStorageDomain
(** Create OVF and related files for RHV.
The format is described in
http://www.ovirt.org/images/8/86/Ovirt_ovf_format.odt
The format for RHV export storage domain is described in:
http://resources.ovirt.org/old-site-files/Ovirt_ovf_format.odt
The format understood by oVirt has no known documentation.
OVF isn't a real standard, so it's likely that if we ever had to
create OVF for another target management system then we would need
to heavily modify or even duplicate this code. *)
val create_ovf : Types.source -> Types.target list -> Types.guestcaps -> Types.inspect -> Types.output_allocation -> string -> string list -> string list -> string -> DOM.doc
val create_ovf : Types.source -> Types.target list -> Types.guestcaps -> Types.inspect -> Types.output_allocation -> string -> string list -> string list -> string -> ovf_flavour -> DOM.doc
(** Create the OVF file.
Actually a {!DOM} document is created, not a file. It can be written

3
v2v/output_rhv.ml
View File

@@ -275,7 +275,8 @@ object
(* Create the metadata. *)
let ovf = Create_ovf.create_ovf source targets guestcaps inspect
output_alloc esd_uuid image_uuids vol_uuids vm_uuid in
output_alloc esd_uuid image_uuids vol_uuids vm_uuid
Create_ovf.RHVExportStorageDomain in
(* Write it to the metadata file. *)
let dir = esd_mp // esd_uuid // "master" // "vms" // vm_uuid in

3
v2v/output_vdsm.ml
View File

@@ -175,7 +175,8 @@ object
output_alloc dd_uuid
vdsm_params.image_uuids
vdsm_params.vol_uuids
vdsm_params.vm_uuid in
vdsm_params.vm_uuid
Create_ovf.RHVExportStorageDomain in
(* Write it to the metadata file. *)
let file = vdsm_params.ovf_output // vdsm_params.vm_uuid ^ ".ovf" in