[PATCH ha-manager v3 08/21] queue resource motion: support migration options

[Fiona Ebner <f.ebner@proxmox.com>]

Signed-off-by: Fiona Ebner <f.ebner@proxmox.com>
---

New in v3.

 src/PVE/HA/Manager.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/PVE/HA/Manager.pm b/src/PVE/HA/Manager.pm
index 1d9ff36..555ea0d 100644
--- a/src/PVE/HA/Manager.pm
+++ b/src/PVE/HA/Manager.pm
@@ -294,7 +294,7 @@ sub load_balance {
     );
     $haenv->log('info', "auto rebalance - $task $sid to $target ($imbalance_change_str)");
 
-    $self->queue_resource_motion($cmd, $task, $sid, $target);
+    $self->queue_resource_motion($cmd, $task, $sid, $target, {});
 }
 
 sub cleanup {
@@ -609,7 +609,7 @@ sub read_lrm_status {
 }
 
 sub queue_resource_motion {
-    my ($self, $cmd, $task, $sid, $target) = @_;
+    my ($self, $cmd, $task, $sid, $target, $migrate_options) = @_;
 
     my ($haenv, $sc, $ss, $ns, $compiled_rules) = $self->@{qw(haenv sc ss ns compiled_rules)};
     my $online_nodes = { map { $_ => 1 } $self->{ns}->list_online_nodes()->@* };
@@ -640,7 +640,7 @@ sub queue_resource_motion {
     }
 
     $haenv->log('info', "got crm command: $cmd");
-    $ss->{$sid}->{cmd} = [$task, $target];
+    $ss->{$sid}->{cmd} = [$task, $target, $migrate_options];
 
     for my $csid (@$dependent_resources) {
         next if $ss->{$csid}->{node} && $ss->{$csid}->{node} eq $target;
@@ -651,7 +651,7 @@ sub queue_resource_motion {
             "crm command '$cmd' - $task service '$csid' to node '$target'"
                 . " (service '$csid' in positive affinity with service '$sid')",
         );
-        $ss->{$csid}->{cmd} = [$task, $target];
+        $ss->{$csid}->{cmd} = [$task, $target, $migrate_options];
     }
 }
 
@@ -693,7 +693,7 @@ sub update_crm_commands {
                             "ignore crm command - service already on target node: $cmd",
                         );
                     } else {
-                        $self->queue_resource_motion($cmd, $task, $sid, $node);
+                        $self->queue_resource_motion($cmd, $task, $sid, $node, {});
                     }
                 }
             } else {
-- 
2.47.3