diff --git a/PVE/QemuMigrate.pm b/PVE/QemuMigrate.pm index b5ec45c5..03534588 100644 --- a/PVE/QemuMigrate.pm +++ b/PVE/QemuMigrate.pm @@ -625,10 +625,12 @@ sub phase2 { $self->{target_drive}->{$targetdrive}->{volid} = $volid; $self->{target_drive}->{$targetdrive}->{nbd_uri} = $nbd_uri; + } elsif ($line =~ m/^QEMU: (.*)$/) { + $self->log('info', "[$self->{node}] $1\n"); } }, errfunc => sub { my $line = shift; - $self->log('info', $line); + $self->log('info', "[$self->{node}] $line"); }, noerr => 1); die "remote command failed with exit code $exitcode\n" if $exitcode; diff --git a/PVE/QemuServer.pm b/PVE/QemuServer.pm index 45fee3ca..c5330702 100644 --- a/PVE/QemuServer.pm +++ b/PVE/QemuServer.pm @@ -5411,6 +5411,18 @@ sub vm_start { noerr => 1, ); + # when migrating, prefix QEMU output so other side can pick up any + # errors that might occur and show the user + if ($migratedfrom) { + $run_params{quiet} = 1; + $run_params{logfunc} = sub { + my $msg = shift; + return if !$msg; + chomp $msg; + print "QEMU: $msg\n"; + }; + } + my %properties = ( Slice => 'qemu.slice', KillMode => 'none',