mirror of
https://git.proxmox.com/git/qemu-server
synced 2025-04-30 19:31:54 +00:00
39051ac0df
Co-developed-by: Fabian Grünbichler <f.gruenbichler@proxmox.com> Signed-off-by: Dominic Jäger <d.jaeger@proxmox.com> [split into its own patch + minor improvements/style fixes] Signed-off-by: Fabian Ebner <f.ebner@proxmox.com> [renamed API handler, since it's not an index] Signed-off-by: Fabian Grünbichler <f.gruenbichler@proxmox.com>
54 lines
1.2 KiB
Perl
54 lines
1.2 KiB
Perl
package PVE::API2::Qemu::OVF;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use PVE::JSONSchema qw(get_standard_option);
|
|
use PVE::QemuServer::OVF;
|
|
use PVE::RESTHandler;
|
|
|
|
use base qw(PVE::RESTHandler);
|
|
|
|
__PACKAGE__->register_method ({
|
|
name => 'readovf',
|
|
path => '',
|
|
method => 'GET',
|
|
proxyto => 'node',
|
|
description => "Read an .ovf manifest.",
|
|
protected => 1,
|
|
parameters => {
|
|
additionalProperties => 0,
|
|
properties => {
|
|
node => get_standard_option('pve-node'),
|
|
manifest => {
|
|
description => "Path to .ovf manifest.",
|
|
type => 'string',
|
|
},
|
|
},
|
|
},
|
|
returns => {
|
|
type => 'object',
|
|
additionalProperties => 1,
|
|
properties => PVE::QemuServer::json_ovf_properties(),
|
|
description => "VM config according to .ovf manifest.",
|
|
},
|
|
code => sub {
|
|
my ($param) = @_;
|
|
|
|
my $manifest = $param->{manifest};
|
|
die "check for file $manifest failed - $!\n" if !-f $manifest;
|
|
|
|
my $parsed = PVE::QemuServer::OVF::parse_ovf($manifest);
|
|
my $result;
|
|
$result->{cores} = $parsed->{qm}->{cores};
|
|
$result->{name} = $parsed->{qm}->{name};
|
|
$result->{memory} = $parsed->{qm}->{memory};
|
|
my $disks = $parsed->{disks};
|
|
for my $disk (@$disks) {
|
|
$result->{$disk->{disk_address}} = $disk->{backing_file};
|
|
}
|
|
return $result;
|
|
}});
|
|
|
|
1;
|