This is done in preparation of the next patch, which moves some of the logic of get_node_affinity(...) in the HA rule translaton stage.
Signed-off-by: Daniel Kral <d.k...@proxmox.com> --- This will also become useful for another feature enhancement, which will bring migration blockers to node affinity rules as well. src/PVE/HA/Manager.pm | 3 ++- src/PVE/HA/Rules/NodeAffinity.pm | 10 +++++----- 2 files changed, 7 insertions(+), 6 deletions(-) diff --git a/src/PVE/HA/Manager.pm b/src/PVE/HA/Manager.pm index 12d3c0e8..3013d369 100644 --- a/src/PVE/HA/Manager.pm +++ b/src/PVE/HA/Manager.pm @@ -151,7 +151,8 @@ sub select_service_node { my ($current_node, $tried_nodes, $maintenance_fallback) = $sd->@{qw(node failed_nodes maintenance_node)}; - my ($allowed_nodes, $pri_nodes) = get_node_affinity($rules, $sid, $online_node_usage); + my $online_nodes = { map { $_ => 1 } $online_node_usage->list_nodes() }; + my ($allowed_nodes, $pri_nodes) = get_node_affinity($rules, $sid, $online_nodes); return undef if !%$pri_nodes; diff --git a/src/PVE/HA/Rules/NodeAffinity.pm b/src/PVE/HA/Rules/NodeAffinity.pm index 5394832e..b7abf9a4 100644 --- a/src/PVE/HA/Rules/NodeAffinity.pm +++ b/src/PVE/HA/Rules/NodeAffinity.pm @@ -241,7 +241,7 @@ my $get_resource_node_affinity_rule = sub { Returns a list of two hashes representing the node affinity of C<$sid> according to the node affinity rules in C<$rules> and the available nodes in -C<$online_node_usage>. +the C<$online_nodes> hash. The first hash is a hash set of available nodes, i.e. nodes where the resource C<$sid> is allowed to be assigned to, and the second hash is a hash set @@ -252,20 +252,20 @@ If there are no available nodes at all, returns C<undef>. =cut sub get_node_affinity : prototype($$$) { - my ($rules, $sid, $online_node_usage) = @_; + my ($rules, $sid, $online_nodes) = @_; my $node_affinity_rule = $get_resource_node_affinity_rule->($rules, $sid); # default to a node affinity rule with all available nodes if (!$node_affinity_rule) { - for my $node ($online_node_usage->list_nodes()) { + for my $node (keys %$online_nodes) { $node_affinity_rule->{nodes}->{$node} = { priority => 0 }; } } # add remaining nodes with low priority for non-strict node affinity rules if (!$node_affinity_rule->{strict}) { - for my $node ($online_node_usage->list_nodes()) { + for my $node (keys %$online_nodes) { next if defined($node_affinity_rule->{nodes}->{$node}); $node_affinity_rule->{nodes}->{$node} = { priority => -1 }; @@ -276,7 +276,7 @@ sub get_node_affinity : prototype($$$) { my $prioritized_nodes = {}; while (my ($node, $props) = each %{ $node_affinity_rule->{nodes} }) { - next if !$online_node_usage->contains_node($node); # node is offline + next if !defined($online_nodes->{$node}); # node is offline $allowed_nodes->{$node} = 1; $prioritized_nodes->{ $props->{priority} }->{$node} = 1; -- 2.47.2 _______________________________________________ pve-devel mailing list pve-devel@lists.proxmox.com https://lists.proxmox.com/cgi-bin/mailman/listinfo/pve-devel