refactor: vm_qmp_command was moved to PVE::QemuServer::Monitor

Also change to mon_cmd helper, avoid calling qmp_cmd directly.

Signed-off-by: Stefan Reiter <s.reiter@proxmox.com>

diff --git a/src/PVE/HA/Resources/PVEVM.pm b/src/PVE/HA/Resources/PVEVM.pm
index aad073d66f1d3857c020a99ae7989cdf04670fde..ab9e27141e312e2ea574207d929abc441127b99e 100644 (file)
--- a/src/PVE/HA/Resources/PVEVM.pm
+++ b/src/PVE/HA/Resources/PVEVM.pm
@@ -11,6 +11,8 @@ BEGIN {
        import  PVE::QemuConfig;
        require PVE::QemuServer;
        import  PVE::QemuServer;
+       require PVE::QemuServer::Monitor;
+       import  PVE::QemuServer::Monitor;
        require PVE::API2::Qemu;
        import  PVE::API2::Qemu;
     }
@@ -134,7 +136,7 @@ sub check_running {
        my $conf = PVE::QemuConfig->load_config($vmid, $nodename);
        if (defined($conf->{lock}) && $conf->{lock} eq 'backup') {
            my $qmpstatus = eval {
-               PVE::QemuServer::vm_qmp_command($vmid, { execute => 'query-status' })
+               PVE::QemuServer::Monitor::mon_cmd($vmid, 'query-status')
            };
            warn "$@\n" if $@;