From b47920fdec11ffdfc68278c22e71ac5cc3272011 Mon Sep 17 00:00:00 2001
From: Dietmar Maurer <dietmar@proxmox.com>
Date: Tue, 22 Nov 2016 11:14:02 +0100
Subject: [PATCH] Manager.pm: store flag to indicate successful start

Produce better feedback.
---
 src/PVE/API2/HA/Status.pm | 1 +
 src/PVE/HA/Manager.pm     | 6 ++++++
 2 files changed, 7 insertions(+)

diff --git a/src/PVE/API2/HA/Status.pm b/src/PVE/API2/HA/Status.pm
index f91a8aa..dcf1622 100644
--- a/src/PVE/API2/HA/Status.pm
+++ b/src/PVE/API2/HA/Status.pm
@@ -165,6 +165,7 @@ __PACKAGE__->register_method ({
 		    if ($req eq 'stopped' || $req eq 'disabled') {
 			$state = 'stopping';
 		    }
+		    $state = 'starting' if !$ss->{running};
 		} elsif ($cur eq 'error') {
 		    if ($req eq 'disabled') {
 			$state = 'clearing error flag';
diff --git a/src/PVE/HA/Manager.pm b/src/PVE/HA/Manager.pm
index 8446b29..7b11be4 100644
--- a/src/PVE/HA/Manager.pm
+++ b/src/PVE/HA/Manager.pm
@@ -666,7 +666,13 @@ sub next_state_started {
 
 		    delete $sd->{failed_nodes};
 
+		    # store flag to indicate successful start - only valid while state == 'started'
+		    $sd->{running} = 1;
+
 		} elsif ($ec == ERROR) {
+
+		    delete $sd->{running};
+
 		    # apply our relocate policy if we got ERROR from the LRM
 		    $self->record_service_failed_on_node($sid, $sd->{node});
 
-- 
2.39.5