[PATCH ha-manager 4/5] vm resource: return running status -1 for panicked VMs

[Kaiyang Wu <wukaiyang2003@gmail.com>]

Indicate the panicked status used to stop the VM before restarting it to
keep the 'started' state. Keep the return value truthy to shutdown the
VM when needed (e.g. 'stopped' state).

Signed-off-by: Kaiyang Wu <wukaiyang@loongfans.cn>
---
 src/PVE/HA/Resources/PVEVM.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/PVE/HA/Resources/PVEVM.pm b/src/PVE/HA/Resources/PVEVM.pm
index 8753271..51c7bac 100644
--- a/src/PVE/HA/Resources/PVEVM.pm
+++ b/src/PVE/HA/Resources/PVEVM.pm
@@ -143,10 +143,13 @@ sub check_running {
     my $nodename = $haenv->nodename();
 
     if (PVE::QemuServer::check_running($vmid, 1, $nodename)) {
+        # return -1 to indicate the panicked status while keeping it truthy
+        my $qmpstatus = eval { PVE::QemuServer::Monitor::mon_cmd($vmid, 'query-status') };
+        return -1 if defined($qmpstatus) && $qmpstatus->{status} eq 'guest-panicked';
+
         # do not count VMs which are suspended for a backup job as running
         my $conf = PVE::QemuConfig->load_config($vmid, $nodename);
         if (defined($conf->{lock}) && $conf->{lock} eq 'backup') {
-            my $qmpstatus = eval { PVE::QemuServer::Monitor::mon_cmd($vmid, 'query-status') };
             $haenv->log('warning', "$@") if $@;
 
             return 0 if defined($qmpstatus) && $qmpstatus->{status} eq 'prelaunch';
-- 
2.55.0