The qemu-storage-daemon runs with the installed binary version, so the machine type should be set accordingly.
All that needs to be changed is the peer for QMP communication. Adds an export for the qmp_cmd() subroutine. Signed-off-by: Fiona Ebner <[email protected]> --- src/PVE/QemuServer/Blockdev.pm | 27 +++++++++++++++++++-------- src/PVE/QemuServer/Monitor.pm | 1 + 2 files changed, 20 insertions(+), 8 deletions(-) diff --git a/src/PVE/QemuServer/Blockdev.pm b/src/PVE/QemuServer/Blockdev.pm index 8fa5eb51..d08a4855 100644 --- a/src/PVE/QemuServer/Blockdev.pm +++ b/src/PVE/QemuServer/Blockdev.pm @@ -16,7 +16,7 @@ use PVE::QemuServer::BlockJob; use PVE::QemuServer::Drive qw(drive_is_cdrom); use PVE::QemuServer::Helpers; use PVE::QemuServer::Machine; -use PVE::QemuServer::Monitor qw(mon_cmd); +use PVE::QemuServer::Monitor qw(mon_cmd qmp_cmd); # gives ($host, $port, $export) my $NBD_TCP_PATH_RE_3 = qr/nbd:(\S+):(\d+):exportname=(\S+)/; @@ -513,9 +513,9 @@ sub generate_pbs_blockdev { } my sub blockdev_add { - my ($vmid, $blockdev) = @_; + my ($qmp_peer, $blockdev) = @_; - eval { mon_cmd($vmid, 'blockdev-add', $blockdev->%*); }; + eval { qmp_cmd($qmp_peer, 'blockdev-add', $blockdev->%*); }; if (my $err = $@) { my $node_name = $blockdev->{'node-name'} // 'undefined'; die "adding blockdev '$node_name' failed : $err\n" if $@; @@ -563,6 +563,9 @@ rather than the volume itself. =item C<< $options->{'tpm-backup'} >>: Generate and attach a block device for backing up the TPM state image. +=item C<< $options->{'qsd'} >>: Rather than attaching to the VM itself, attach to the QEMU storage +daemon associated to the VM. + =back =back @@ -572,7 +575,15 @@ state image. sub attach { my ($storecfg, $vmid, $drive, $options) = @_; - my $machine_version = PVE::QemuServer::Machine::get_current_qemu_machine($vmid); + my $qmp_peer = { vmid => $vmid, type => $options->{qsd} ? 'qsd' : 'qmp' }; + + my $machine_version; + if ($options->{qsd}) { # qemu-storage-daemon runs with the installed binary version + $machine_version = + 'pc-i440fx-' . PVE::QemuServer::Machine::latest_installed_machine_version(); + } else { + $machine_version = PVE::QemuServer::Machine::get_current_qemu_machine($vmid); + } my $blockdev = generate_drive_blockdev($storecfg, $drive, $machine_version, $options); @@ -585,17 +596,17 @@ sub attach { eval { if ($throttle_group_id) { # Try to remove potential left-over. - mon_cmd($vmid, 'object-del', id => $throttle_group_id, noerr => 1); + qmp_cmd($qmp_peer, 'object-del', id => $throttle_group_id, noerr => 1); my $throttle_group = generate_throttle_group($drive); - mon_cmd($vmid, 'object-add', $throttle_group->%*); + qmp_cmd($qmp_peer, 'object-add', $throttle_group->%*); } - blockdev_add($vmid, $blockdev); + blockdev_add($qmp_peer, $blockdev); }; if (my $err = $@) { if ($throttle_group_id) { - eval { mon_cmd($vmid, 'object-del', id => $throttle_group_id); }; + eval { qmp_cmd($qmp_peer, 'object-del', id => $throttle_group_id); }; } die $err; } diff --git a/src/PVE/QemuServer/Monitor.pm b/src/PVE/QemuServer/Monitor.pm index 0b15808b..9a66d142 100644 --- a/src/PVE/QemuServer/Monitor.pm +++ b/src/PVE/QemuServer/Monitor.pm @@ -10,6 +10,7 @@ use PVE::QMPClient; use base 'Exporter'; our @EXPORT_OK = qw( mon_cmd + qmp_cmd ); =head3 qmp_cmd -- 2.47.3 _______________________________________________ pve-devel mailing list [email protected] https://lists.proxmox.com/cgi-bin/mailman/listinfo/pve-devel
