[pve-devel] [PATCH v2 3/3] Allow migrate-all button on HA enabled VMs

Caspar Smit casparsmit at supernas.eu
Mon Mar 14 12:07:23 CET 2016


Signed-off-by: Caspar Smit <casparsmit at supernas.eu>
---
 PVE/API2/Nodes.pm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/PVE/API2/Nodes.pm b/PVE/API2/Nodes.pm
index f1fb392..b2de907 100644
--- a/PVE/API2/Nodes.pm
+++ b/PVE/API2/Nodes.pm
@@ -1208,9 +1208,6 @@ my $get_start_stop_list = sub {
 		$startup = { order => $bootorder };
 	    }
 
-	    # skip ha managed VMs (started by pve-ha-manager)
-	    return if PVE::HA::Config::vm_is_ha_managed($vmid);
-
 	    $resList->{$startup->{order}}->{$vmid} = $startup;
 	    $resList->{$startup->{order}}->{$vmid}->{type} = $d->{type};
 	};
@@ -1283,6 +1280,9 @@ __PACKAGE__->register_method ({
 			die "unknown VM type '$d->{type}'\n";
 		    }
 
+		    # skip ha managed VMs (started by pve-ha-manager)
+		    next if PVE::HA::Config::vm_is_ha_managed($vmid);
+
 		    PVE::Cluster::check_cfs_quorum(); # abort when we loose quorum
 	    
 		    eval {
@@ -1407,6 +1407,9 @@ __PACKAGE__->register_method ({
 		};
 
 		foreach my $vmid (sort {$b <=> $a} keys %$vmlist) {
+		    # skip ha managed VMs (stopped by pve-ha-manager)
+		    next if PVE::HA::Config::vm_is_ha_managed($vmid);
+
 		    my $d = $vmlist->{$vmid};
 		    my $upid;
 		    eval { $upid = &$create_stop_worker($nodename, $d->{type}, $vmid, $d->{down}); };
-- 
2.1.4




More information about the pve-devel mailing list