proxmox-mirrors/qemu-server
1
0
Fork 0
mirror of https://git.proxmox.com/git/qemu-server synced 2025-08-13 16:28:37 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

savevm: periodically print progress

Browse Source 
Signed-off-by: Stefan Reiter <s.reiter@proxmox.com>
Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>
This commit is contained in:
Stefan Reiter 2021-02-08 12:15:10 +01:00 committed by Thomas Lamprecht
parent 8bf0fc5350
commit 969eb0b84d
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
PVE/QemuConfig.pm
View File

@ -14,6 +14,7 @@ use PVE::QemuServer;
use PVE::QemuServer::Machine; use PVE::QemuServer::Machine;
use PVE::Storage; use PVE::Storage;
use PVE::Tools; use PVE::Tools;
use PVE::Format qw(render_bytes render_duration);
use base qw(PVE::AbstractConfig); use base qw(PVE::AbstractConfig);
@ -280,14 +281,25 @@ sub __snapshot_create_vol_snapshots_hook {
PVE::Storage::activate_volumes($storecfg, [$snap->{vmstate}]); PVE::Storage::activate_volumes($storecfg, [$snap->{vmstate}]);
mon_cmd($vmid, "savevm-start", statefile => $path); mon_cmd($vmid, "savevm-start", statefile => $path);
print "saving VM state and RAM\n";
my $render_state = sub {
my ($stat) = @_;
my $b = render_bytes($stat->{bytes});
my $t = render_duration($stat->{'total-time'} / 1000);
return ($b, $t);
};
for(;;) { for(;;) {
my $stat = mon_cmd($vmid, "query-savevm"); my $stat = mon_cmd($vmid, "query-savevm");
if (!$stat->{status}) { if (!$stat->{status}) {
die "savevm not active\n"; die "savevm not active\n";
} elsif ($stat->{status} eq 'active') { } elsif ($stat->{status} eq 'active') {
sleep(1); sleep(1);
my ($b, $t) = $render_state->($stat);
print "$b in $t\n";
next; next;
} elsif ($stat->{status} eq 'completed') { } elsif ($stat->{status} eq 'completed') {
my ($b, $t) = $render_state->($stat);
print "completed savevm in $t, saved $b\n";
last; last;
} else { } else {
die "query-savevm returned status '$stat->{status}'\n"; die "query-savevm returned status '$stat->{status}'\n";