proxmox-mirrors/qemu-server
1
0
Fork 0
mirror of https://git.proxmox.com/git/qemu-server synced 2025-05-29 22:13:15 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

use qmp for vm_devices_list

Browse Source
This commit is contained in:
Dietmar Maurer 2012-07-13 08:42:13 +02:00
parent 9df5cbcc70
commit ceea9078ad
1 changed files with 6 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
PVE/QemuServer.pm
View File

@ -2364,24 +2364,13 @@ sub next_migrate_port {
sub vm_devices_list { sub vm_devices_list {
my ($vmid) = @_; my ($vmid) = @_;
my $res = vm_monitor_command ($vmid, "info pci"); my $res = vm_mon_cmd($vmid, 'query-pci');
my @lines = split ("\n", $res); my $devices = {};
my $devices; foreach my $pcibus (@$res) {
my $bus; foreach my $device (@{$pcibus->{devices}}) {
my $addr; next if !$device->{'qdev_id'};
my $id; $devices->{$device->{'qdev_id'}} = $device;
foreach my $line (@lines) {
$line =~ s/^\s+//;
if ($line =~ m/^Bus (\d+), device (\d+), function (\d+):$/) {
$bus=$1;
$addr=$2;
}
if ($line =~ m/^id "([a-z][a-z_\-]*\d*)"$/) {
$id=$1;
$devices->{$id}->{bus}=$bus;
$devices->{$id}->{addr}=$addr;
} }
} }