From 2f674c7a5f3b481cdfbf969439079393eccc138f Mon Sep 17 00:00:00 2001
From: Alexandre Derumier <aderumier@odiso.com>
Date: Mon, 25 Jun 2012 10:02:54 +0200
Subject: [PATCH] convert migrate_set_speed monitor command to qmp

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

diff --git a/PVE/QemuServer.pm b/PVE/QemuServer.pm
index bd6e8ed1..cbe6d6cc 100644
--- a/PVE/QemuServer.pm
+++ b/PVE/QemuServer.pm
@@ -2661,9 +2661,9 @@ sub vm_start {
 	# we set a very hight default of 8192m which is basically unlimited
 	my $migrate_speed = $defaults->{migrate_speed} || 8192;
 	$migrate_speed = $conf->{migrate_speed} || $migrate_speed;
+	$migrate_speed = $migrate_speed * 1048576;
 	eval {
-	    my $cmd = "migrate_set_speed ${migrate_speed}m";
-	    vm_monitor_command($vmid, $cmd);
+	    vm_mon_cmd($vmid, "migrate_set_speed", value => $migrate_speed);
 	};
 
 	my $migrate_downtime = $defaults->{migrate_downtime};