[pve-devel] [POC qemu-server 3/6] draft of upgrade_qemu function

[Fabian Ebner]

Signed-off-by: Fabian Ebner <f.ebner at proxmox.com>
---
 PVE/QemuServer.pm | 50 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 50 insertions(+)

diff --git a/PVE/QemuServer.pm b/PVE/QemuServer.pm
index 983fb2f..fa2aad9 100644
--- a/PVE/QemuServer.pm
+++ b/PVE/QemuServer.pm
@@ -7729,4 +7729,54 @@ sub vmstate_size {
     return $mem_size*2 + $driver_state_size;
 }
 
+# TODO ensure that qmeventd is happy with what we do
+sub upgrade_qemu {
+    my ($vmid, $conf, $param) = @_;
+
+    my $storecfg = PVE::Storage::config();
+    my $forcemachine = PVE::QemuServer::Machine::qemu_machine_pxe($vmid, $conf);
+
+    # TODO is it worth setting a lock in the config?
+
+    my $size = vmstate_size($conf);
+
+    my $ramfs = "/run/pve/${vmid}_ramfs";
+    my $statefile = "${ramfs}/state";
+
+    mkpath($ramfs);
+
+    run_command(['mount', '-t', 'ramfs', 'ramfs', $ramfs]);
+    run_command(['truncate', '-s', "${size}M", $statefile]);
+
+    eval {
+	eval {
+	    set_migration_caps($vmid, 1); #TODO needed here?
+	    mon_cmd($vmid, "savevm-start", statefile => $statefile);
+	    savevm_monitor($vmid);
+	};
+	if (my $err = $@) {
+	    eval { mon_cmd($vmid, "savevm-end"); };
+	    warn $@ if $@;
+	    die $err;
+	}
+
+	mon_cmd($vmid, "quit");
+
+	my $start_params = {
+	    statefile => $statefile,
+	    forcemachine => $forcemachine,
+	};
+
+	# TODO forcecpu, spice ticket?
+	vm_start_nolock($storecfg, $vmid, $conf, $start_params, {});
+
+	# TODO save state to disk if there's an error with start?
+    };
+    my $err = $@;
+
+    run_command(['umount', $ramfs]);
+
+    die $err if $err;
+}
+
 1;
-- 
2.20.1