[pve-devel] [PATCH qemu-server 2/4] savevm: periodically print progress

[Stefan Reiter]

Signed-off-by: Stefan Reiter <s.rei...@proxmox.com>
---
 PVE/QemuConfig.pm | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/PVE/QemuConfig.pm b/PVE/QemuConfig.pm
index 3f4605f..37db347 100644
--- a/PVE/QemuConfig.pm
+++ b/PVE/QemuConfig.pm
@@ -14,6 +14,7 @@ use PVE::QemuServer;
 use PVE::QemuServer::Machine;
 use PVE::Storage;
 use PVE::Tools;
+use PVE::CLIFormatter;
 
 use base qw(PVE::AbstractConfig);
 
@@ -280,14 +281,26 @@ sub __snapshot_create_vol_snapshots_hook {
                PVE::Storage::activate_volumes($storecfg, [$snap->{vmstate}]);
 
                mon_cmd($vmid, "savevm-start", statefile => $path);
+               print "saving VM state and RAM\n";
+               my $start = time();
+               my $state = sub {
+                   my ($bytes) = @_;
+                   my $b = PVE::CLIFormatter::render_bytes($bytes);
+                   my $t = PVE::CLIFormatter::render_duration(time() - $start);
+                   return "$b in $t";
+               };
                for(;;) {
                    my $stat = mon_cmd($vmid, "query-savevm");
                    if (!$stat->{status}) {
                        die "savevm not active\n";
                    } elsif ($stat->{status} eq 'active') {
                        sleep(1);
+                       my $s = $state->($stat->{bytes});
+                       print "progress: $s\n";
                        next;
                    } elsif ($stat->{status} eq 'completed') {
+                       my $s = $state->($stat->{bytes});
+                       print "saved $s\n";
                        last;
                    } else {
                        die "query-savevm returned status '$stat->{status}'\n";
-- 
2.20.1



_______________________________________________
pve-devel mailing list
pve-devel@lists.proxmox.com
https://lists.proxmox.com/cgi-bin/mailman/listinfo/pve-devel