From 0eedc444b77ba433786086b00e1046f92e78efde Mon Sep 17 00:00:00 2001
From: Alexandre Derumier <aderumier@odiso.com>
Date: Mon, 25 Jun 2012 10:02:47 +0200
Subject: [PATCH] add vm_mon_cmd and vm_mon_cmd_nocheck wrapper

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

diff --git a/PVE/QemuServer.pm b/PVE/QemuServer.pm
index ee5fb24e..b41f1f6c 100644
--- a/PVE/QemuServer.pm
+++ b/PVE/QemuServer.pm
@@ -2824,6 +2824,24 @@ sub vm_monitor_command {
     return $res;
 }
 
+sub vm_mon_cmd {
+    my ($vmid, $execute, %params) = @_;
+
+    my $cmd = {};
+    $cmd->{execute} = $execute;
+    $cmd->{arguments} = \%params;
+    vm_qmp_command($vmid,$cmd);
+}
+
+sub vm_mon_cmd_nocheck {
+    my ($vmid, $execute, %params) = @_;
+
+    my $cmd = {};
+    $cmd->{execute} = $execute;
+    $cmd->{arguments} = \%params;
+    vm_qmp_command($vmid,$cmd,1);
+}
+
 sub vm_qmp_command {
     my ($vmid, $cmd, $nocheck) = @_;