add vm_devices_list sub

parse qemu "info pci" result

Signed-off-by: Derumier Alexandre <aderumier@odiso.com>

PVE/QemuServer.pm

@@ -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) = @_;