mirror of
https://git.proxmox.com/git/qemu-server
synced 2025-05-02 17:20:30 +00:00
304e51d369
The file is provided by pve-qemu-kvm. Signed-off-by: Stefan Reiter <s.reiter@proxmox.com>
50 lines
1.0 KiB
Perl
50 lines
1.0 KiB
Perl
package PVE::API2::Qemu::Machine;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use PVE::RESTHandler;
|
|
use PVE::JSONSchema qw(get_standard_option);
|
|
use PVE::Tools qw(file_get_contents);
|
|
|
|
use base qw(PVE::RESTHandler);
|
|
|
|
__PACKAGE__->register_method({
|
|
name => 'types',
|
|
path => '',
|
|
method => 'GET',
|
|
proxyto => 'node',
|
|
description => "Get available QEMU/KVM machine types.",
|
|
permissions => {
|
|
user => 'all',
|
|
},
|
|
parameters => {
|
|
additionalProperties => 0,
|
|
properties => {
|
|
node => get_standard_option('pve-node'),
|
|
},
|
|
},
|
|
returns => {
|
|
type => 'array',
|
|
items => {
|
|
type => 'object',
|
|
properties => {
|
|
name => {
|
|
type => 'string',
|
|
description => "Name of machine type.",
|
|
},
|
|
},
|
|
},
|
|
},
|
|
code => sub {
|
|
my $content = eval {
|
|
file_get_contents("/usr/share/kvm/machine-versions-x86_64");
|
|
};
|
|
die "could not get supported machine versions (try updating 'pve-qemu-kvm') - $@" if $@;
|
|
my @data = split(m/\n/, $content);
|
|
@data = map { { name => $_ } } @data;
|
|
return \@data;
|
|
}});
|
|
|
|
1;
|