[PATCH ha-manager v2 02/14] manager: factor out checking whether a resource motion is queued or running

[Michael Ryom <Michael@RyomHerold.dk>]

The check is needed for single resources in the following patches.

No functional change intended.

Signed-off-by: Michael Ryom <Michael@RyomHerold.dk>
---
 src/PVE/HA/Manager.pm | 20 +++++++++++++-------
 1 file changed, 13 insertions(+), 7 deletions(-)

diff --git a/src/PVE/HA/Manager.pm b/src/PVE/HA/Manager.pm
index 5840a76..e05f0a4 100644
--- a/src/PVE/HA/Manager.pm
+++ b/src/PVE/HA/Manager.pm
@@ -651,16 +651,22 @@ sub queue_resource_motion {
     }
 }
 
-sub any_resource_motion_queued_or_running {
-    my ($self) = @_;
+sub is_resource_motion_queued_or_running {
+    my ($self, $sid) = @_;
+
+    my ($cmd, $state) = $self->{ss}->{$sid}->@{qw(cmd state)};
+
+    return 1 if $state eq 'migrate' || $state eq 'relocate';
+    return 1 if defined($cmd) && ($cmd->[0] eq 'migrate' || $cmd->[0] eq 'relocate');
 
-    my ($ss) = $self->@{qw(ss)};
+    return 0;
+}
 
-    for my $sid (keys %$ss) {
-        my ($cmd, $state) = $ss->{$sid}->@{qw(cmd state)};
+sub any_resource_motion_queued_or_running {
+    my ($self) = @_;
 
-        return 1 if $state eq 'migrate' || $state eq 'relocate';
-        return 1 if defined($cmd) && ($cmd->[0] eq 'migrate' || $cmd->[0] eq 'relocate');
+    for my $sid (keys $self->{ss}->%*) {
+        return 1 if $self->is_resource_motion_queued_or_running($sid);
     }
 
     return 0;
-- 
2.47.3