Add delsnapshot to LXC API2

Signed-off-by: Wolfgang Link <w.link@proxmox.com>

diff --git a/src/PVE/API2/LXC.pm b/src/PVE/API2/LXC.pm
index e63b73b7efb59ac8a8b9e6d478e2e0c5efc72874..1c4d7883ae66717b6c4d65c23e76c91e03937344 100644 (file)
--- a/src/PVE/API2/LXC.pm
+++ b/src/PVE/API2/LXC.pm
@@ -1339,4 +1339,52 @@ __PACKAGE__->register_method({
 
        return $rpcenv->fork_worker('pctsnapshot', $vmid, $authuser, $realcmd);
     }});
+
+__PACKAGE__->register_method({
+    name => 'delsnapshot',
+    path => '{vmid}/snapshot/{snapname}',
+    method => 'DELETE',
+    protected => 1,
+    proxyto => 'node',
+    description => "Delete a LXC snapshot.",
+    permissions => {
+       check => ['perm', '/vms/{vmid}', [ 'VM.Snapshot' ]],
+    },
+    parameters => {
+       additionalProperties => 0,
+       properties => {
+           node => get_standard_option('pve-node'),
+           vmid => get_standard_option('pve-vmid'),
+           snapname => get_standard_option('pve-lxc-snapshot-name'),
+           force => {
+               optional => 1,
+               type => 'boolean',
+               description => "For removal from config file, even if removing disk snapshots fails.",
+           },
+       },
+    },
+    returns => {
+       type => 'string',
+       description => "the task ID.",
+    },
+    code => sub {
+       my ($param) = @_;
+
+       my $rpcenv = PVE::RPCEnvironment::get();
+
+       my $authuser = $rpcenv->get_user();
+
+       my $node = extract_param($param, 'node');
+
+       my $vmid = extract_param($param, 'vmid');
+
+       my $snapname = extract_param($param, 'snapname');
+
+       my $realcmd = sub {
+           PVE::Cluster::log_msg('info', $authuser, "delete snapshot VM $vmid: $snapname");
+           PVE::LXC::snapshot_delete($vmid, $snapname, $param->{force});
+       };
+
+       return $rpcenv->fork_worker('lxcdelsnapshot', $vmid, $authuser, $realcmd);
+    }});
 1;

diff --git a/src/PVE/LXC.pm b/src/PVE/LXC.pm
index ab06867eb7d12f681bf764e7987c063e0b1d72dc..0115b0aa6c7ad237448a0160a18bfebef9962bb0 100644 (file)
--- a/src/PVE/LXC.pm
+++ b/src/PVE/LXC.pm
@@ -1550,4 +1550,10 @@ sub snapshot_create {
     }
 }
 
+sub snapshot_delete {
+    my ($vmid, $snapname, $force) = @_;
+
+    print "Not implemented\n";
+}
+
 1;

diff --git a/src/pct b/src/pct
index 06affa046c7620ac5f4d589fcf3aee0d661c2373..e90f565a200ae9c1c74bc839e22a4cc797a14cd2 100755 (executable)
--- a/src/pct
+++ b/src/pct
@@ -125,6 +125,8 @@ my $cmddef = {
 
     snapshot => [ "PVE::API2::LXC", 'snapshot', ['vmid', 'snapname'],
                  { node => $nodename } , $upid_exit ],
+
+    delsnapshot => [ "PVE::API2::LXC", 'delsnapshot', ['vmid', 'snapname'], { node => $nodename } , $upid_exit ],
 };
                              
 my $cmd = shift;