From 873c2d698f46e61e41f72daf549de51aa67eb4a3 Mon Sep 17 00:00:00 2001
From: Derumier Alexandre <aderumier@odiso.com>
Date: Mon, 10 Oct 2011 16:46:56 +0200
Subject: [PATCH] add vm_devicedel sub

use qm monitor to hot-unplug device.

Currently only virtio disk

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

diff --git a/PVE/QemuServer.pm b/PVE/QemuServer.pm
index 4e41e2ad..80ab7c70 100644
--- a/PVE/QemuServer.pm
+++ b/PVE/QemuServer.pm
@@ -2293,6 +2293,26 @@ sub vm_deviceadd {
 
 }
 
+sub vm_devicedel {
+    my ($vmid,$deviceid) = @_;
+
+    my $cfspath = cfs_config_path($vmid);
+    my $conf = PVE::Cluster::cfs_read_file($cfspath) || {};
+
+    return if !check_running ($vmid) || $conf->{hotplug} != 1 ;
+
+    if($deviceid =~ m/^(virtio)(\d+)$/){
+
+        vm_monitor_command ($vmid, "drive_del drive-$deviceid",1);
+        vm_monitor_command ($vmid, "device_del $deviceid",1);
+
+    }
+
+    sleep 2;
+    my $devices_list=vm_devices_list($vmid);
+    die "error on hot-unplugging device " if(defined $devices_list->{$deviceid});
+}
+
 sub vm_start {
     my ($storecfg, $vmid, $statefile, $skiplock) = @_;