add downtime && expected_downtime query-migrate info

Signed-off-by: Alexandre Derumier <aderumier@odiso.com>

diff --git a/PVE/QemuMigrate.pm b/PVE/QemuMigrate.pm
index 282cbc53a4c8ce2bde332a57e1b46fa365817d78..38f1d05d51b536024b3cc12805755733a254da3f 100644 (file)
--- a/PVE/QemuMigrate.pm
+++ b/PVE/QemuMigrate.pm
@@ -402,7 +402,8 @@ sub phase2 {
                my $delay = time() - $start;
                if ($delay > 0) {
                    my $mbps = sprintf "%.2f", $conf->{memory}/$delay;
-                   $self->log('info', "migration speed: $mbps MB/s");
+                   my $downtime = $stat->{downtime} || 0;
+                   $self->log('info', "migration speed: $mbps MB/s - downtime $downtime ms");
                }
            }
 
@@ -424,11 +425,12 @@ sub phase2 {
                my $xbzrlepages = $stat->{"xbzrle-cache"}->{"pages"} || 0;
                my $xbzrlecachemiss = $stat->{"xbzrle-cache"}->{"cache-miss"} || 0;
                my $xbzrleoverflow = $stat->{"xbzrle-cache"}->{"overflow"} || 0;
+               my $expected_downtime = $stat->{"expected-downtime"} || 0;
                #reduce sleep if remainig memory if lower than the everage transfert 
                $usleep = 300000 if $avglstat && $rem < $avglstat;
 
                $self->log('info', "migration status: $stat->{status} (transferred ${trans}, " .
-                          "remaining ${rem}), total ${total})");
+                          "remaining ${rem}), total ${total}) , expected downtime ${expected_downtime}");
 
                #$self->log('info', "migration xbzrle cachesize: ${xbzrlecachesize} transferred ${xbzrlebytes} pages ${xbzrlepages} cachemiss ${xbzrlecachemiss} overflow ${xbzrleoverflow}");
            }