make an api call for each guest agent command

with a 'register_command' sub, which generates an api call
we call it for each command in the list, and one time for
the old general {vmid}/agent endpoint (for compatibility)

permissions/methods are the same as previously, but can
be overriden

Signed-off-by: Dominik Csapak <d.csapak@proxmox.com>

diff --git a/PVE/API2/Qemu/Agent.pm b/PVE/API2/Qemu/Agent.pm
index 437d3f68547bc93f59cdbda91fd7fb278a1f5749..93d47bc6f0400a029c9dd3d8c8ba54a6b2bd9226 100644 (file)
--- a/PVE/API2/Qemu/Agent.pm
+++ b/PVE/API2/Qemu/Agent.pm
@@ -9,68 +9,134 @@ use PVE::QemuServer;
 
 use base qw(PVE::RESTHandler);
 
-my $guest_agent_commands = [
-    'ping',
-    'get-time',
-    'info',
-    'fsfreeze-status',
-    'fsfreeze-freeze',
-    'fsfreeze-thaw',
-    'fstrim',
-    'network-get-interfaces',
-    'get-vcpus',
-    'get-fsinfo',
-    'get-memory-blocks',
-    'get-memory-block-info',
-    'suspend-hybrid',
-    'suspend-ram',
-    'suspend-disk',
-    'shutdown',
-    ];
-
-__PACKAGE__->register_method({
-    name => 'agent',
-    path => '',
-    method => 'POST',
-    protected => 1,
-    proxyto => 'node',
-    description => "Execute Qemu Guest Agent commands.",
-    permissions => {
-       check => ['perm', '/vms/{vmid}', [ 'VM.Monitor' ]],
-    },
-    parameters => {
+# list of commands
+# will generate one api endpoint per command
+# needs a 'method' property and optionally a 'perms' property (default VM.Monitor)
+my $guest_agent_commands = {
+    'ping' => {
+       method => 'POST',
+    },
+    'get-time' => {
+       method => 'POST',
+    },
+    'info' => {
+       method => 'POST',
+    },
+    'fsfreeze-status' => {
+       method => 'POST',
+    },
+    'fsfreeze-freeze' => {
+       method => 'POST',
+    },
+    'fsfreeze-thaw' => {
+       method => 'POST',
+    },
+    'fstrim' => {
+       method => 'POST',
+    },
+    'network-get-interfaces' => {
+       method => 'POST',
+    },
+    'get-vcpus' => {
+       method => 'POST',
+    },
+    'get-fsinfo' => {
+       method => 'POST',
+    },
+    'get-memory-blocks' => {
+       method => 'POST',
+    },
+    'get-memory-block-info' => {
+       method => 'POST',
+    },
+    'suspend-hybrid' => {
+       method => 'POST',
+    },
+    'suspend-ram' => {
+       method => 'POST',
+    },
+    'suspend-disk' => {
+       method => 'POST',
+    },
+    'shutdown' => {
+       method => 'POST',
+    },
+};
+
+sub register_command {
+    my ($class, $command, $method, $perm) = @_;
+
+    die "no method given\n" if !$method;
+    die "no command given\n" if !defined($command);
+
+    my $permission;
+
+    if (ref($perm) eq 'HASH') {
+       $permission = $perm;
+    } else {
+       $perm //= 'VM.Monitor';
+       $permission = { check => [ 'perm', '/vms/{vmid}', [ $perm ]]};
+    }
+
+    my $parameters = {
        additionalProperties => 0,
        properties => {
            node => get_standard_option('pve-node'),
            vmid => get_standard_option('pve-vmid', {
-                   completion => \&PVE::QemuServer::complete_vmid_running }),
+                   completion => \&PVE::QemuServer::complete_vmid_running }),
            command => {
                type => 'string',
                description => "The QGA command.",
-               enum => $guest_agent_commands,
+               enum => [ sort keys %$guest_agent_commands ],
            },
        },
-    },
-    returns => {
-       type => 'object',
-       description => "Returns an object with a single `result` property. The type of that
-property depends on the executed command.",
-    },
-    code => sub {
-       my ($param) = @_;
+    };
+
+    my $description = "Execute Qemu Guest Agent commands.";
+    my $name = 'agent';
+
+    if ($command ne '') {
+       $description = "Execute $command.";
+       $name = $command;
+       delete $parameters->{properties}->{command};
+    }
+
+    __PACKAGE__->register_method({
+       name => $name,
+       path => $command,
+       method => $method,
+       protected => 1,
+       proxyto => 'node',
+       description => $description,
+       permissions => $permission,
+       parameters => $parameters,
+       returns => {
+           type => 'object',
+           description => "Returns an object with a single `result` property.",
+       },
+       code => sub {
+           my ($param) = @_;
+
+           my $vmid = $param->{vmid};
 
-       my $vmid = $param->{vmid};
+           my $conf = PVE::QemuConfig->load_config ($vmid); # check if VM exists
 
-       my $conf = PVE::QemuConfig->load_config ($vmid); # check if VM exists
+           die "No Qemu Guest Agent\n" if !defined($conf->{agent});
+           die "VM $vmid is not running\n" if !PVE::QemuServer::check_running($vmid);
 
-       die "No Qemu Guest Agent\n" if !defined($conf->{agent});
-       die "VM $vmid is not running\n" if !PVE::QemuServer::check_running($vmid);
+           my $cmd = $param->{command} // $command;
+           my $res = PVE::QemuServer::vm_mon_cmd($vmid, "guest-$cmd");
 
-       my $cmd = $param->{command};
+           return { result => $res };
+       }});
+}
 
-       my $res = PVE::QemuServer::vm_mon_cmd($vmid, "guest-$cmd");
+# old {vmid}/agent POST endpoint, here for compatibility
+__PACKAGE__->register_command('', 'POST');
 
-       return { result => $res };
-    }});
+for my $cmd (sort keys %$guest_agent_commands) {
+    my $props = $guest_agent_commands->{$cmd};
+    __PACKAGE__->register_command($cmd, $props->{method}, $props->{perms});
+}
 
 1;