[pve-devel] [PATCH storage 3/6] Introduce prune-backups property for directory-based storages
Fabian Grünbichler
f.gruenbichler at proxmox.com
Tue Jul 7 08:36:00 CEST 2020
small nit in-line
On June 4, 2020 11:08 am, Fabian Ebner wrote:
> Signed-off-by: Fabian Ebner <f.ebner at proxmox.com>
> ---
> PVE/Storage/CIFSPlugin.pm | 1 +
> PVE/Storage/CephFSPlugin.pm | 1 +
> PVE/Storage/DirPlugin.pm | 5 ++--
> PVE/Storage/GlusterfsPlugin.pm | 5 ++--
> PVE/Storage/NFSPlugin.pm | 5 ++--
> PVE/Storage/PBSPlugin.pm | 1 +
> PVE/Storage/Plugin.pm | 51 +++++++++++++++++++++++++++++++++-
> 7 files changed, 62 insertions(+), 7 deletions(-)
>
> diff --git a/PVE/Storage/CIFSPlugin.pm b/PVE/Storage/CIFSPlugin.pm
> index 0eb1722..7347ba6 100644
> --- a/PVE/Storage/CIFSPlugin.pm
> +++ b/PVE/Storage/CIFSPlugin.pm
> @@ -134,6 +134,7 @@ sub options {
> nodes => { optional => 1 },
> disable => { optional => 1 },
> maxfiles => { optional => 1 },
> + 'prune-backups' => { optional => 1 },
> content => { optional => 1 },
> format => { optional => 1 },
> username => { optional => 1 },
> diff --git a/PVE/Storage/CephFSPlugin.pm b/PVE/Storage/CephFSPlugin.pm
> index 6575f4f..880ec05 100644
> --- a/PVE/Storage/CephFSPlugin.pm
> +++ b/PVE/Storage/CephFSPlugin.pm
> @@ -150,6 +150,7 @@ sub options {
> fuse => { optional => 1 },
> bwlimit => { optional => 1 },
> maxfiles => { optional => 1 },
> + 'prune-backups' => { optional => 1 },
> };
> }
>
> diff --git a/PVE/Storage/DirPlugin.pm b/PVE/Storage/DirPlugin.pm
> index 39760a8..3c81d24 100644
> --- a/PVE/Storage/DirPlugin.pm
> +++ b/PVE/Storage/DirPlugin.pm
> @@ -49,10 +49,11 @@ sub properties {
> sub options {
> return {
> path => { fixed => 1 },
> - nodes => { optional => 1 },
> + nodes => { optional => 1 },
> shared => { optional => 1 },
> disable => { optional => 1 },
> - maxfiles => { optional => 1 },
> + maxfiles => { optional => 1 },
> + 'prune-backups' => { optional => 1 },
> content => { optional => 1 },
> format => { optional => 1 },
> mkdir => { optional => 1 },
> diff --git a/PVE/Storage/GlusterfsPlugin.pm b/PVE/Storage/GlusterfsPlugin.pm
> index 70ea4fc..2dd414d 100644
> --- a/PVE/Storage/GlusterfsPlugin.pm
> +++ b/PVE/Storage/GlusterfsPlugin.pm
> @@ -129,9 +129,10 @@ sub options {
> server2 => { optional => 1 },
> volume => { fixed => 1 },
> transport => { optional => 1 },
> - nodes => { optional => 1 },
> + nodes => { optional => 1 },
> disable => { optional => 1 },
> - maxfiles => { optional => 1 },
> + maxfiles => { optional => 1 },
> + 'prune-backups' => { optional => 1 },
> content => { optional => 1 },
> format => { optional => 1 },
> mkdir => { optional => 1 },
> diff --git a/PVE/Storage/NFSPlugin.pm b/PVE/Storage/NFSPlugin.pm
> index 82b0c5f..6abb24b 100644
> --- a/PVE/Storage/NFSPlugin.pm
> +++ b/PVE/Storage/NFSPlugin.pm
> @@ -79,9 +79,10 @@ sub options {
> path => { fixed => 1 },
> server => { fixed => 1 },
> export => { fixed => 1 },
> - nodes => { optional => 1 },
> + nodes => { optional => 1 },
> disable => { optional => 1 },
> - maxfiles => { optional => 1 },
> + maxfiles => { optional => 1 },
> + 'prune-backups' => { optional => 1 },
> options => { optional => 1 },
> content => { optional => 1 },
> format => { optional => 1 },
> diff --git a/PVE/Storage/PBSPlugin.pm b/PVE/Storage/PBSPlugin.pm
> index 65696f4..fba4b2b 100644
> --- a/PVE/Storage/PBSPlugin.pm
> +++ b/PVE/Storage/PBSPlugin.pm
> @@ -50,6 +50,7 @@ sub options {
> username => { optional => 1 },
> password => { optional => 1},
> maxfiles => { optional => 1 },
> + 'prune-backups' => { optional => 1 },
> fingerprint => { optional => 1 },
> };
> }
> diff --git a/PVE/Storage/Plugin.pm b/PVE/Storage/Plugin.pm
> index 595af54..1ba1b99 100644
> --- a/PVE/Storage/Plugin.pm
> +++ b/PVE/Storage/Plugin.pm
> @@ -10,7 +10,7 @@ use File::Basename;
> use File::stat qw();
>
> use PVE::Tools qw(run_command);
> -use PVE::JSONSchema qw(get_standard_option);
> +use PVE::JSONSchema qw(get_standard_option register_standard_option);
> use PVE::Cluster qw(cfs_register_file);
>
> use JSON;
> @@ -43,6 +43,54 @@ cfs_register_file ('storage.cfg',
> sub { __PACKAGE__->parse_config(@_); },
> sub { __PACKAGE__->write_config(@_); });
>
> +my %prune_option = (
> + optional => 1,
> + type => 'number', minimum => '1',
shouldn't this be type 'integer'?
I am not sure whether minimum '1' is a good choice - what if I want to
explicitly disable a certain keep-* option instead of just keeping it
blank? also see next patch..
> + format_descritipn => 'N',
s/descritipn/description
> +);
> +
> +my $prune_backups_format = {
> + 'keep-last' => {
> + %prune_option,
> + description => 'Keep the last <N> backups.',
> + },
> + 'keep-hourly' => {
> + %prune_option,
> + description => 'Keep backups for the last <N> different hours. If there is more' .
> + 'than one backup for a single hour, only the latest one is kept.'
> + },
> + 'keep-daily' => {
> + %prune_option,
> + description => 'Keep backups for the last <N> different days. If there is more' .
> + 'than one backup for a single day, only the latest one is kept.'
> + },
> + 'keep-weekly' => {
> + %prune_option,
> + description => 'Keep backups for the last <N> different weeks. If there is more' .
> + 'than one backup for a single week, only the latest one is kept.'
> + },
> + 'keep-monthly' => {
> + %prune_option,
> + description => 'Keep backups for the last <N> different months. If there is more' .
> + 'than one backup for a single month, only the latest one is kept.'
> + },
> + 'keep-yearly' => {
> + %prune_option,
> + description => 'Keep backups for the last <N> different years. If there is more' .
> + 'than one backup for a single year, only the latest one is kept.'
> + },
> +};
> +PVE::JSONSchema::register_format('prune-backups', $prune_backups_format);
> +register_standard_option('prune-backups', {
> + description => "The retention options with shorter intervals are processed first " .
> + "with --keep-last being the very first one. Each option covers a " .
> + "specific period of time. We say that backups within this period " .
> + "are covered by this option. The next option does not take care " .
> + "of already covered backups and only considers older backups.",
> + optional => 1,
> + type => 'string',
> + format => $prune_backups_format,
> +});
>
> my $defaultData = {
> propertyList => {
> @@ -68,6 +116,7 @@ my $defaultData = {
> minimum => 0,
> optional => 1,
> },
> + 'prune-backups' => get_standard_option('prune-backups'),
> shared => {
> description => "Mark storage as shared.",
> type => 'boolean',
> --
> 2.20.1
>
>
> _______________________________________________
> pve-devel mailing list
> pve-devel at pve.proxmox.com
> https://pve.proxmox.com/cgi-bin/mailman/listinfo/pve-devel
>
>
More information about the pve-devel
mailing list