[pve-devel] [PATCH pve-client 1/2] Add create and destroy subcommands to the lxc command

[René Jochum]

---
 PVE/APIClient/Commands/lxc.pm | 67 +++++++++++++++++++++++++++++++++++++++++++
 PVE/APIClient/Helpers.pm      |  8 ++++++
 2 files changed, 75 insertions(+)

diff --git a/PVE/APIClient/Commands/lxc.pm b/PVE/APIClient/Commands/lxc.pm
index 9e73b45..2309ec0 100644
--- a/PVE/APIClient/Commands/lxc.pm
+++ b/PVE/APIClient/Commands/lxc.pm
@@ -15,6 +15,8 @@ use PVE::APIClient::JSONSchema qw(get_standard_option);
 use PVE::APIClient::CLIHandler;
 use PVE::APIClient::PTY;
 
+use PVE::APIClient::Helpers;
+
 use base qw(PVE::APIClient::CLIHandler);
 use PVE::APIClient::Config;
 
@@ -415,7 +417,72 @@ __PACKAGE__->register_method ({
 	return undef;
     }});
 
+__PACKAGE__->register_method ({
+    name => 'create',
+    path => 'create',
+    method => 'POST',
+    description => "Create a container",
+    parameters => {
+	additionalProperties => 0,
+	properties => PVE::APIClient::Helpers::merge_api_definition_properties(
+	    '/nodes/{node}/lxc', 'POST', {
+		remote => get_standard_option('pveclient-remote-name'),
+		vmid => get_standard_option('pve-vmid'),
+		node => get_standard_option('pve-node'),
+	}),
+    },
+    returns => { type => 'null'},
+    code => sub {
+	my ($param) = @_;
+
+	my $remote = PVE::APIClient::Tools::extract_param($param, 'remote');
+	my $vmid = $param->{vmid};
+	my $node = PVE::APIClient::Tools::extract_param($param, 'node');
+
+	my $config = PVE::APIClient::Config->load();
+	my $conn = PVE::APIClient::Config->remote_conn($config, $remote);
+
+	my $upid = $conn->post("/nodes/$node/lxc", $param);
+
+	print PVE::APIClient::Helpers::poll_task($conn, $node, $upid) . "\n";
+
+	return undef;
+    }});
+
+__PACKAGE__->register_method ({
+    name => 'destroy',
+    path => 'destroy',
+    method => 'DELETE',
+    description => "Destroy a container",
+    parameters => {
+	additionalProperties => 0,
+	properties => {
+	    remote => get_standard_option('pveclient-remote-name'),
+	    vmid => get_standard_option('pve-vmid'),
+	},
+    },
+    returns => { type => 'null'},
+    code => sub {
+	my ($param) = @_;
+
+	my $remote = PVE::APIClient::Tools::extract_param($param, 'remote');
+	my $vmid = PVE::APIClient::Tools::extract_param($param, 'vmid');
+
+	my $config = PVE::APIClient::Config->load();
+	my $conn = PVE::APIClient::Config->remote_conn($config, $remote);
+
+	my $resource = PVE::APIClient::Helpers::get_vmid_resource($conn, $vmid);
+
+	my $upid = $conn->delete("/nodes/$resource->{node}/lxc/$resource->{vmid}", $param);
+
+	print PVE::APIClient::Helpers::poll_task($conn, $resource->{node}, $upid) . "\n";
+
+	return undef;
+    }});
+
 our $cmddef = {
+    create => [ __PACKAGE__, 'create', ['remote', 'vmid', 'node']],
+    destroy => [ __PACKAGE__, 'destroy', ['remote', 'vmid']],
     enter => [ __PACKAGE__, 'enter', ['remote', 'vmid']],
 };
 
diff --git a/PVE/APIClient/Helpers.pm b/PVE/APIClient/Helpers.pm
index fda9bf5..30b8475 100644
--- a/PVE/APIClient/Helpers.pm
+++ b/PVE/APIClient/Helpers.pm
@@ -218,6 +218,14 @@ sub complete_api_call_options {
     &$print_result(@option_list);
 }
 
+sub merge_api_definition_properties {
+    my ($path, $method, $properties) = @_;
+
+    my $info = PVE::APIClient::Helpers::find_method_info($path, $method);
+
+    return { %{$info->{parameters}->{properties}}, %$properties };
+}
+
 sub complete_api_path {
     my ($text) = @_;
 
-- 
2.11.0