From f78cc802cfab93dca1153ffb6fd7b8e97ce93801 Mon Sep 17 00:00:00 2001
From: Alexandre Derumier <aderumier@odiso.com>
Date: Fri, 29 Aug 2014 15:04:15 +0200
Subject: [PATCH] vm_devices_list : also list block devices

This allow scsi disk to be plug|unplug

Signed-off-by: Alexandre Derumier <aderumier@odiso.com>
---
 PVE/QemuServer.pm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/PVE/QemuServer.pm b/PVE/QemuServer.pm
index b4358b08..20581315 100644
--- a/PVE/QemuServer.pm
+++ b/PVE/QemuServer.pm
@@ -2876,7 +2876,14 @@ sub vm_devices_list {
     foreach my $pcibus (@$res) {
 	foreach my $device (@{$pcibus->{devices}}) {
 	    next if !$device->{'qdev_id'};
-	    $devices->{$device->{'qdev_id'}} = $device;
+	    $devices->{$device->{'qdev_id'}} = 1;
+	}
+    }
+
+    my $resblock = vm_mon_cmd($vmid, 'query-block');
+    foreach my $block (@$resblock) {
+	if($block->{device} =~ m/^drive-(\S+)/){
+		$devices->{$1} = 1;
 	}
     }