From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from firstgate.proxmox.com (firstgate.proxmox.com [IPv6:2a01:7e0:0:424::9]) by lore.proxmox.com (Postfix) with ESMTPS id B3C921FF2CF for ; Thu, 11 Jul 2024 11:59:31 +0200 (CEST) Received: from firstgate.proxmox.com (localhost [127.0.0.1]) by firstgate.proxmox.com (Proxmox) with ESMTP id B606530D67; Thu, 11 Jul 2024 11:59:55 +0200 (CEST) From: Christoph Heiss To: pve-devel@lists.proxmox.com Date: Thu, 11 Jul 2024 11:56:40 +0200 Message-ID: <20240711095641.369504-4-c.heiss@proxmox.com> X-Mailer: git-send-email 2.45.1 In-Reply-To: <20240711095641.369504-1-c.heiss@proxmox.com> References: <20240711095641.369504-1-c.heiss@proxmox.com> MIME-Version: 1.0 X-SPAM-LEVEL: Spam detection results: 0 AWL 0.013 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 Subject: [pve-devel] [PATCH installer v2 3/3] low-level: install: check for already-existing `rpool` on install 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: , Reply-To: Proxmox VE development discussion Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit Errors-To: pve-devel-bounces@lists.proxmox.com Sender: "pve-devel" .. much in the same manner as the detection for LVM works. zpools can only be renamed by importing them with a new name, so unfortunately the import-export dance is needed. Signed-off-by: Christoph Heiss --- Changes v1 -> v2: * use unique pool id for renaming instead of generating random id ourselves * moved renaming functionality to own subroutine in new Proxmox::Sys::ZFS module Proxmox/Install.pm | 30 ++++++++++++++++++++++++++++++ Proxmox/Sys/ZFS.pm | 20 ++++++++++++++++++-- 2 files changed, 48 insertions(+), 2 deletions(-) diff --git a/Proxmox/Install.pm b/Proxmox/Install.pm index c0f8955..2517c24 100644 --- a/Proxmox/Install.pm +++ b/Proxmox/Install.pm @@ -16,6 +16,7 @@ use Proxmox::Install::StorageConfig; use Proxmox::Sys::Block qw(get_cached_disks wipe_disk partition_bootable_disk); use Proxmox::Sys::Command qw(run_command syscmd); use Proxmox::Sys::File qw(file_read_firstline file_write_all); +use Proxmox::Sys::ZFS; use Proxmox::UI; # TODO: move somewhere better? @@ -169,9 +170,38 @@ sub btrfs_create { syscmd($cmd); } +sub zfs_ask_existing_zpool_rename { + my ($pool_name) = @_; + + # At this point, no pools should be imported/active + my $exported_pools = Proxmox::Sys::ZFS::get_exported_pools(); + + foreach (@$exported_pools) { + next if $_->{name} ne $pool_name || $_->{state} ne 'ONLINE'; + my $renamed_pool = "$_->{name}-OLD-$_->{id}"; + + my $response_ok = Proxmox::UI::prompt( + "A ZFS pool named '$_->{name}' (id $_->{id}) already exists on the system.\n\n" . + "Do you want to rename the pool to '$renamed_pool' before continuing " . + "or cancel the installation?" + ); + + # Import the pool using its id, as that is unique and works even if there are + # multiple zpools with the same name. + if ($response_ok) { + Proxmox::Sys::ZFS::rename_pool($_->{id}, $renamed_pool); + } else { + warn "Canceled installation as requested by user, due to already existing ZFS pool '$pool_name'\n"; + die "\n"; # causes abort without re-showing an error dialogue + } + } +} + sub zfs_create_rpool { my ($vdev, $pool_name, $root_volume_name) = @_; + zfs_ask_existing_zpool_rename($pool_name); + my $iso_env = Proxmox::Install::ISOEnv::get(); my $zfs_opts = Proxmox::Install::Config::get_zfs_opt(); diff --git a/Proxmox/Sys/ZFS.pm b/Proxmox/Sys/ZFS.pm index 9232d1a..c5a807e 100644 --- a/Proxmox/Sys/ZFS.pm +++ b/Proxmox/Sys/ZFS.pm @@ -3,10 +3,10 @@ package Proxmox::Sys::ZFS; use strict; use warnings; -use Proxmox::Sys::Command qw(run_command); +use Proxmox::Sys::Command qw(run_command syscmd); use base qw(Exporter); -our @EXPORT_OK = qw(get_exported_pools); +our @EXPORT_OK = qw(get_exported_pools rename_pool); # Parses the output of running `zpool import`, which shows all importable # ZFS pools. @@ -90,4 +90,20 @@ sub get_exported_pools { return zpool_import_parse_output($fh); } +# Renames a importable ZFS pool by importing it with a new name and then +# exporting again. +# +# Arguments: +# +# $poolid - Unique, numeric identifier of the pool to rename +# $new_name - New name for the pool +sub rename_pool { + my ($poolid, $new_name) = @_; + + syscmd("zpool import -f $poolid $new_name") == 0 || + die "failed to import zfs pool with id '$poolid' with new name '$new_name'\n"; + syscmd("zpool export $new_name") == 0 || + warn "failed to export renamed zfs pool '$new_name'\n"; +} + 1; -- 2.45.1 _______________________________________________ pve-devel mailing list pve-devel@lists.proxmox.com https://lists.proxmox.com/cgi-bin/mailman/listinfo/pve-devel