From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from firstgate.proxmox.com (firstgate.proxmox.com [212.224.123.68]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits) key-exchange X25519 server-signature RSA-PSS (2048 bits)) (No client certificate requested) by lists.proxmox.com (Postfix) with ESMTPS id 559A8BA85E for ; Wed, 20 Mar 2024 13:52:00 +0100 (CET) Received: from firstgate.proxmox.com (localhost [127.0.0.1]) by firstgate.proxmox.com (Proxmox) with ESMTP id 3E57CFAF2 for ; Wed, 20 Mar 2024 13:52:00 +0100 (CET) Received: from proxmox-new.maurer-it.com (proxmox-new.maurer-it.com [94.136.29.106]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits) key-exchange X25519 server-signature RSA-PSS (2048 bits)) (No client certificate requested) by firstgate.proxmox.com (Proxmox) with ESMTPS for ; Wed, 20 Mar 2024 13:51:59 +0100 (CET) Received: from proxmox-new.maurer-it.com (localhost.localdomain [127.0.0.1]) by proxmox-new.maurer-it.com (Proxmox) with ESMTP id 6E0BA48B61 for ; Wed, 20 Mar 2024 13:51:59 +0100 (CET) From: Dominik Csapak To: pve-devel@lists.proxmox.com Date: Wed, 20 Mar 2024 13:51:54 +0100 Message-Id: <20240320125158.2094900-3-d.csapak@proxmox.com> X-Mailer: git-send-email 2.39.2 In-Reply-To: <20240320125158.2094900-1-d.csapak@proxmox.com> References: <20240320125158.2094900-1-d.csapak@proxmox.com> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-SPAM-LEVEL: Spam detection results: 0 AWL 0.019 Adjusted score from AWL reputation of From: address BAYES_00 -1.9 Bayes spam probability is 0 to 1% DMARC_MISSING 0.1 Missing DMARC policy KAM_DMARC_STATUS 0.01 Test Rule for DKIM or SPF Failure with Strict Alignment SPF_HELO_NONE 0.001 SPF: HELO does not publish an SPF Record SPF_PASS -0.001 SPF: sender matches SPF record T_SCC_BODY_TEXT_LINE -0.01 - URIBL_BLOCKED 0.001 ADMINISTRATOR NOTICE: The query to URIBL was blocked. See http://wiki.apache.org/spamassassin/DnsBlocklists#dnsbl-block for more information. [qemuserver.pm, qemumigrate.pm] Subject: [pve-devel] [PATCH qemu-server 2/3] migrate: call vm_stop_cleanup after stopping in phase3_cleanup X-BeenThere: pve-devel@lists.proxmox.com X-Mailman-Version: 2.1.29 Precedence: list List-Id: Proxmox VE development discussion List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Wed, 20 Mar 2024 12:52:00 -0000 we currently only call deactivate_volumes, but we actually want to call the whole vm_stop_cleanup, since that is not invoked by the vm_stop above (we cannot parse the config anymore) and might do other cleanups we also want to do (like mdev cleanup). For this to work properly we have to clone the original config at the beginning, since we might modify the volids. To get a better log output, add a `noerr` parameter to `vm_stop_cleanup` that is enabled by default and decides if we `die` or `warn` on an error. That way we can catch the error in the migrate code and log it properly. Signed-off-by: Dominik Csapak --- PVE/QemuMigrate.pm | 12 ++++++------ PVE/QemuServer.pm | 12 ++++++++++-- 2 files changed, 16 insertions(+), 8 deletions(-) diff --git a/PVE/QemuMigrate.pm b/PVE/QemuMigrate.pm index b3570770..1be12bf1 100644 --- a/PVE/QemuMigrate.pm +++ b/PVE/QemuMigrate.pm @@ -5,6 +5,7 @@ use warnings; use IO::File; use IPC::Open2; +use Storable qw(dclone); use Time::HiRes qw( usleep ); use PVE::Cluster; @@ -1460,7 +1461,8 @@ sub phase3_cleanup { my $tunnel = $self->{tunnel}; - my $sourcevollist = PVE::QemuServer::get_vm_volumes($conf); + # we'll need an unmodified copy of the config later for the cleanup + my $oldconf = dclone($conf); if ($self->{volume_map} && !$self->{opts}->{remote}) { my $target_drives = $self->{target_drive}; @@ -1591,12 +1593,10 @@ sub phase3_cleanup { $self->{errors} = 1; } - # always deactivate volumes - avoid lvm LVs to be active on several nodes - eval { - PVE::Storage::deactivate_volumes($self->{storecfg}, $sourcevollist); - }; + # stop with nocheck does not do a cleanup, so do it here with the original config + eval { PVE::QemuServer::vm_stop_cleanup($self->{storecfg}, $vmid, $oldconf, 0) }; if (my $err = $@) { - $self->log('err', $err); + $self->log('err', "cleanup for vm failed - $err"); $self->{errors} = 1; } diff --git a/PVE/QemuServer.pm b/PVE/QemuServer.pm index d53e9693..54f73093 100644 --- a/PVE/QemuServer.pm +++ b/PVE/QemuServer.pm @@ -6160,7 +6160,9 @@ sub cleanup_pci_devices { } sub vm_stop_cleanup { - my ($storecfg, $vmid, $conf, $keepActive, $apply_pending_changes) = @_; + my ($storecfg, $vmid, $conf, $keepActive, $apply_pending_changes, $noerr) = @_; + + $noerr //= 1; # defaults to warning eval { @@ -6186,7 +6188,13 @@ sub vm_stop_cleanup { vmconfig_apply_pending($vmid, $conf, $storecfg) if $apply_pending_changes; }; - warn $@ if $@; # avoid errors - just warn + if (my $err = $@) { + if ($noerr) { + warn $err; + } else { + die $err; + } + } } # call only in locked context -- 2.39.2