From: Dominik Csapak <d.csapak@proxmox.com>
Date: Tue, 19 Mar 2019 08:17:30 +0000 (+0100)
Subject: suspend: output some information about progress
X-Git-Url: https://git.proxmox.com/?a=commitdiff_plain;h=b0a9a38568008b162eb4446d842cccf08b868f89;p=qemu-server.git

suspend: output some information about progress

Signed-off-by: Dominik Csapak <d.csapak@proxmox.com>
---

diff --git a/PVE/QemuServer.pm b/PVE/QemuServer.pm
index b3b95ef..05fb4be 100644
--- a/PVE/QemuServer.pm
+++ b/PVE/QemuServer.pm
@@ -5226,6 +5226,7 @@ sub vm_start {
 	if ($is_suspended) {
 	    # enforce machine type on suspended vm to ensure HW compatibility
 	    $forcemachine = $conf->{runningmachine};
+	    print "Resuming suspended VM\n";
 	}
 
 	my ($cmd, $vollist, $spice_port) = config_to_command($storecfg, $vmid, $conf, $defaults, $forcemachine);
@@ -5426,6 +5427,7 @@ sub vm_start {
 		    value => 2) if (!defined($conf->{balloon}) || $conf->{balloon});
 
 	if ($is_suspended && (my $vmstate = $conf->{vmstate})) {
+	    print "Resumed VM, removing state\n";
 	    delete $conf->@{qw(lock vmstate runningmachine)};
 	    PVE::Storage::deactivate_volumes($storecfg, [$vmstate]);
 	    PVE::Storage::vdisk_free($storecfg, $vmstate);
@@ -5723,6 +5725,7 @@ sub vm_suspend {
 		    sleep(1);
 		    next;
 		} elsif ($state->{status} eq 'completed') {
+		    print "State saved, quitting\n";
 		    last;
 		} elsif ($state->{status} eq 'failed' && $state->{error}) {
 		    die "query-savevm failed with error '$state->{error}'\n"