migrate: check if storage is available

diff --git a/PVE/QemuMigrate.pm b/PVE/QemuMigrate.pm
index 6c734cac7b4562ee6dad096e99c7482f6e11cdaa..41fc6605170bbe423f1f5bceb54451b773dc6907 100644 (file)
--- a/PVE/QemuMigrate.pm
+++ b/PVE/QemuMigrate.pm
@@ -158,7 +158,13 @@ sub prepare {
     my $vollist = PVE::QemuServer::get_vm_volumes($conf);
     PVE::Storage::activate_volumes($self->{storecfg}, $vollist);
 
-    # fixme: check if storage is available on both nodes
+    foreach my $volid (@$vollist) {
+       my ($sid, $volname) = PVE::Storage::parse_volume_id($volid, 1);
+
+       # check if storage is available on both nodes
+       my $scfg = PVE::Storage::storage_check_node($self->{storecfg}, $sid);
+       PVE::Storage::storage_check_node($self->{storecfg}, $sid, $self->{node});
+    }
 
     # test ssh connection
     my $cmd = [ @{$self->{rem_ssh}}, '/bin/true' ];