--- Begin Message ---
Signed-off-by: Alexandre Derumier <alexandre.derum...@groupe-cyllene.com>
---
 PVE/QemuServer.pm | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/PVE/QemuServer.pm b/PVE/QemuServer.pm
index 5ccc026a..db95af0a 100644
--- a/PVE/QemuServer.pm
+++ b/PVE/QemuServer.pm
@@ -5214,28 +5214,28 @@ sub vmconfig_update_disk {
                return 1;
            }
 
-       } else { # cdrom
+       } else { # cdrom
 
            if ($drive->{file} eq 'none') {
-               mon_cmd($vmid, "eject", force => JSON::true, id => "$opt");
+               mon_cmd($vmid, "blockdev-open-tray", force => JSON::true, id => 
$opt);
+               mon_cmd($vmid, "blockdev-remove-medium", id => $opt);
+               qemu_drivedel($vmid, $opt);
+
                if (drive_is_cloudinit($old_drive)) {
                    vmconfig_register_unused_drive($storecfg, $vmid, $conf, 
$old_drive);
                }
            } else {
-               my ($path, $format) = 
PVE::QemuServer::Drive::get_path_and_format(
-                   $storecfg, $vmid, $drive);
+               my $path = get_iso_path($storecfg, $vmid, $drive->{file});
 
                # force eject if locked
-               mon_cmd($vmid, "eject", force => JSON::true, id => "$opt");
+               mon_cmd($vmid, "blockdev-open-tray", force => JSON::true, id => 
$opt);
+               mon_cmd($vmid, "blockdev-remove-medium", id => $opt);
+               eval { qemu_drivedel($vmid, $opt) };
 
                if ($path) {
-                   mon_cmd(
-                       $vmid,
-                       "blockdev-change-medium",
-                       id => "$opt",
-                       filename => "$path",
-                       format => "$format",
-                   );
+                   qemu_driveadd($storecfg, $vmid, $drive);
+                   mon_cmd($vmid, "blockdev-insert-medium", id => $opt, 
'node-name' => "drive-$opt");
+                   mon_cmd($vmid, "blockdev-close-tray", id => $opt);
                }
            }
 
-- 
2.39.5



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

Reply via email to