Currently the following extracted parameters are used to create a VM:
* VM name
* Memory
* Number of cores
---
 PVE/CLI/qm.pm | 47 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 47 insertions(+)

diff --git a/PVE/CLI/qm.pm b/PVE/CLI/qm.pm
index 44439dd..12d705c 100755
--- a/PVE/CLI/qm.pm
+++ b/PVE/CLI/qm.pm
@@ -17,10 +17,12 @@ use PVE::SafeSyslog;
 use PVE::INotify;
 use PVE::RPCEnvironment;
 use PVE::QemuServer;
+use PVE::QemuServer::OVF;
 use PVE::API2::Qemu;
 use JSON;
 use PVE::JSONSchema qw(get_standard_option);
 use Term::ReadLine;
+use Data::Dumper;
 
 use PVE::CLIHandler;
 
@@ -432,6 +434,48 @@ __PACKAGE__->register_method ({
        return undef;
     }});
 
+__PACKAGE__->register_method ({
+    name => 'ovfimport',
+    path => 'ovfimport',
+    description => "Create a new VM using parameters read from an OVF 
manifest",
+    parameters => {
+       additionalProperties => 0,
+       properties => {
+           vmid => get_standard_option('pve-vmid', { completion => 
\&PVE::QemuServer::complete_vmid }),
+           dryrun => {
+               type => 'boolean',
+               description => 'Print a text representation of the extracted 
OVF parameters, but do not create a VM',
+               optional => 1,
+               },
+           manifest => {
+               type => 'string'
+               }
+       },
+    },
+    returns => {
+       type => 'string',
+    },
+    code => sub {
+       my ($param) = @_;
+       my $vmid = $param->{vmid};
+       my $ovf_file = PVE::Tools::extract_param($param, 'manifest');
+       my $dryrun = PVE::Tools::extract_param($param, 'dryrun');
+
+       my $parsed = PVE::QemuServer::OVF::parse_ovf($ovf_file);
+
+       if ($dryrun) {
+           print Dumper($parsed);
+           exit(0);
+       }
+
+       $param->{name} = $parsed->{qm}->{name} if 
defined($parsed->{qm}->{name});
+       $param->{memory} = $parsed->{qm}->{memory} if 
defined($parsed->{qm}->{memory});
+       $param->{cores} = $parsed->{qm}->{cores} if 
defined($parsed->{qm}->{cores});
+       $param->{node} = $nodename;
+
+       PVE::API2::Qemu->create_vm($param);
+    }
+});
 
 my $print_agent_result = sub {
     my ($data) = @_;
@@ -587,6 +631,9 @@ our $cmddef = {
     nbdstop => [ __PACKAGE__, 'nbdstop', ['vmid']],
 
     terminal => [ __PACKAGE__, 'terminal', ['vmid']],
+
+    ovfimport => [ __PACKAGE__, 'ovfimport', ['vmid']],
+
 };
 
 1;
-- 
2.1.4


_______________________________________________
pve-devel mailing list
[email protected]
http://pve.proxmox.com/cgi-bin/mailman/listinfo/pve-devel

Reply via email to