migration: check for mapped resources

[qemu-server.git] / PVE / QemuMigrate.pm

diff --git a/PVE/QemuMigrate.pm b/PVE/QemuMigrate.pm
index b10a515a98c3824b0e91e74490806962ade034a7..600eeb7f74acd5fafae8feb45a53b1bad9546b6a 100644 (file)
--- a/PVE/QemuMigrate.pm
+++ b/PVE/QemuMigrate.pm
@@ -226,15 +226,32 @@ sub prepare {
        $self->{vm_was_paused} = 1 if PVE::QemuServer::vm_is_paused($vmid);
     }
 
-    my $loc_res = PVE::QemuServer::check_local_resources($conf, 1);
-    if (scalar @$loc_res) {
+    my ($loc_res, $mapped_res, $missing_mappings_by_node) = PVE::QemuServer::check_local_resources($conf, 1);
+    my $blocking_resources = [];
+    for my $res ($loc_res->@*) {
+       if (!grep($res, $mapped_res->@*)) {
+           push $blocking_resources->@*, $res;
+       }
+    }
+    if (scalar($blocking_resources->@*)) {
        if ($self->{running} || !$self->{opts}->{force}) {
-           die "can't migrate VM which uses local devices: " . join(", ", @$loc_res) . "\n";
+           die "can't migrate VM which uses local devices: " . join(", ", $blocking_resources->@*) . "\n";
        } else {
            $self->log('info', "migrating VM which uses local devices");
        }
     }
 
+    if (scalar($mapped_res->@*)) {
+       my $missing_mappings = $missing_mappings_by_node->{$self->{node}};
+       if ($running) {
+           die "can't migrate running VM which uses mapped devices: " . join(", ", $mapped_res->@*) . "\n";
+       } elsif (scalar($missing_mappings->@*)) {
+           die "can't migrate to '$self->{node}': missing mapped devices " . join(", ", $missing_mappings->@*) . "\n";
+       } else {
+           $self->log('info', "migrating VM which uses mapped local devices");
+       }
+    }
+
     my $vollist = PVE::QemuServer::get_vm_volumes($conf);
 
     my $storages = {};