[pve-devel] [PATCH pve-client] Add the remaining guest commands

[René Jochum]

Signed-off-by: René Jochum <r.jochum at proxmox.com>
---
 PVE/APIClient/Commands/GuestStatus.pm | 87 +++++++++++++++++++++++++++++++++++
 pveclient                             |  3 ++
 2 files changed, 90 insertions(+)

diff --git a/PVE/APIClient/Commands/GuestStatus.pm b/PVE/APIClient/Commands/GuestStatus.pm
index 57784e5..92f424d 100644
--- a/PVE/APIClient/Commands/GuestStatus.pm
+++ b/PVE/APIClient/Commands/GuestStatus.pm
@@ -61,6 +61,11 @@ __PACKAGE__->register_method ({
 	properties => {
 	    remote => get_standard_option('pveclient-remote-name'),
 	    vmid => get_standard_option('pve-vmid'),
+	    timeout => {
+		description => "Timeout in seconds",
+		type => 'integer',
+		minimum => 1
+	    },
 	},
     },
     returns => { type => 'null'},
@@ -76,6 +81,88 @@ __PACKAGE__->register_method ({
     }});
 
 __PACKAGE__->register_method ({
+    name => 'shutdown',
+    path => 'shutdown',
+    method => 'POST',
+    description => "Stop a guest (VM/Container).",
+    parameters => {
+	additionalProperties => 0,
+	properties => {
+	    remote => get_standard_option('pveclient-remote-name'),
+	    vmid => get_standard_option('pve-vmid'),
+	    force => {
+		description => "Make sure the Container/VM stops.",
+		type => 'boolean',
+		optional => 1,
+	    },
+	    timeout => {
+		description => "Timeout in seconds",
+		type => 'integer',
+		minimum => 1
+	    },
+	},
+    },
+    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');
+
+	$guest_status_command->($remote, $vmid, 'shutdown', $param);
+
+	return undef;
+    }});
+
+__PACKAGE__->register_method ({
+    name => 'suspend',
+    path => 'suspend',
+    method => 'POST',
+    description => "Suspend a guest VM.",
+    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');
+
+	$guest_status_command->($remote, $vmid, 'suspend', $param);
+
+	return undef;
+    }});
+
+__PACKAGE__->register_method ({
+    name => 'resume',
+    path => 'resume',
+    method => 'POST',
+    description => "Resume a guest VM.",
+    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');
+
+	$guest_status_command->($remote, $vmid, 'resume', $param);
+
+	return undef;
+    }});
+
+__PACKAGE__->register_method ({
     name => 'spice',
     path => 'spice',
     method => 'POST',
diff --git a/pveclient b/pveclient
index 404090f..9bcbff2 100755
--- a/pveclient
+++ b/pveclient
@@ -177,9 +177,12 @@ our $cmddef = {
     lxc => $PVE::APIClient::Commands::lxc::cmddef,
     remote => $PVE::APIClient::Commands::remote::cmddef,
 
+    resume => [ 'PVE::APIClient::Commands::GuestStatus', 'resume', ['remote', 'vmid']],
+    shutdown => [ 'PVE::APIClient::Commands::GuestStatus', 'shutdown', ['remote', 'vmid']],
     spice => [ 'PVE::APIClient::Commands::GuestStatus', 'spice', ['remote', 'vmid']],
     start => [ 'PVE::APIClient::Commands::GuestStatus', 'start', ['remote', 'vmid']],
     stop => [ 'PVE::APIClient::Commands::GuestStatus', 'stop', ['remote', 'vmid']],
+    suspend => [ 'PVE::APIClient::Commands::GuestStatus', 'suspend', ['remote', 'vmid']],
 
     api => {
 	get => [ __PACKAGE__, 'pveclient_get', ['remote', 'api_path'], {}, $format_result ],
-- 
2.11.0