[pve-devel] [PATCH storage 1/2] prune-backups CLI: use keep-options directly

[Fabian Ebner <f.ebner@proxmox.com>]

Makes the interface cleaner; e.g. --keep-daily=2 instead of
--prune-backups=keep-daily=2

Signed-off-by: Fabian Ebner <f.ebner@proxmox.com>
---
 PVE/CLI/pvesm.pm      | 12 ++++++++----
 PVE/Storage/Plugin.pm |  2 +-
 2 files changed, 9 insertions(+), 5 deletions(-)

diff --git a/PVE/CLI/pvesm.pm b/PVE/CLI/pvesm.pm
index caac51b..d7591ee 100755
--- a/PVE/CLI/pvesm.pm
+++ b/PVE/CLI/pvesm.pm
@@ -752,10 +752,7 @@ __PACKAGE__->register_method ({
 	    storage => get_standard_option('pve-storage-id', {
 		completion => \&PVE::Storage::complete_storage_enabled,
             }),
-	    'prune-backups' => get_standard_option('prune-backups', {
-		description => "Use these retention options instead of those from the storage configuration.",
-		optional => 1,
-	    }),
+	    %{$PVE::Storage::Plugin::prune_backups_format},
 	    type => {
 		description => "Either 'qemu' or 'lxc'. Only consider backups for guests of this type.",
 		type => 'string',
@@ -813,6 +810,13 @@ __PACKAGE__->register_method ({
 
 	my $dryrun = extract_param($param, 'dry-run') ? 1 : 0;
 
+	my $keep_opts;
+	foreach my $keep (keys %{$PVE::Storage::Plugin::prune_backups_format}) {
+	    $keep_opts->{$keep} = extract_param($param, $keep) if defined($param->{$keep});
+	}
+	$param->{'prune-backups'} = PVE::JSONSchema::print_property_string(
+	    $keep_opts, $PVE::Storage::Plugin::prune_backups_format) if $keep_opts;
+
 	my $list = [];
 	if ($dryrun) {
 	    $list = PVE::API2::Storage::PruneBackups->dryrun($param);
diff --git a/PVE/Storage/Plugin.pm b/PVE/Storage/Plugin.pm
index 8a58ff4..5b337df 100644
--- a/PVE/Storage/Plugin.pm
+++ b/PVE/Storage/Plugin.pm
@@ -49,7 +49,7 @@ my %prune_option = (
     format_description => 'N',
 );
 
-my $prune_backups_format = {
+our $prune_backups_format = {
 	'keep-last' => {
 	    %prune_option,
 	    description => 'Keep the last <N> backups.',
-- 
2.20.1