proxmox-mirrors/qemu-server
1
0
Fork 0
mirror of https://git.proxmox.com/git/qemu-server synced 2025-08-04 19:45:52 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

add vm_devices_list sub

Browse Source 
parse qemu "info pci" result

Signed-off-by: Derumier Alexandre <aderumier@odiso.com>
This commit is contained in:
Derumier Alexandre 2011-10-10 16:46:54 +02:00 committed by Dietmar Maurer
parent 2ff09f52e8
commit 86fdcfb229
1 changed files with 26 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
PVE/QemuServer.pm
View File

@ -2244,6 +2244,32 @@ sub next_migrate_port {
die "unable to find free migration port";
}
sub vm_devices_list {
my ($vmid) = @_;
my $res = vm_monitor_command ($vmid, "info pci", 1);
my @lines = split ("\n", $res);
my $devices;
my $bus;
my $addr;
my $id;
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;
}
}
return $devices;
}
sub vm_start {
my ($storecfg, $vmid, $statefile, $skiplock) = @_;