Manager.pm: store flag to indicate successful start

Produce better feedback.

diff --git a/src/PVE/API2/HA/Status.pm b/src/PVE/API2/HA/Status.pm
index f91a8aad71c4747928239fe8ff71c85722d09e25..dcf1622fdb6cb3d9ee2b2773485545653dd741dd 100644 (file)
--- 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 8446b29c34f3b5845527b596a1399e6fd196555a..7b11be42f381d60997d0672940de7af16753a666 100644 (file)
--- 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});