From 9c629b3e76a6c70314a385982944fe7ca051947c Mon Sep 17 00:00:00 2001 From: Dietmar Maurer Date: Wed, 4 Mar 2020 11:46:17 +0100 Subject: [PATCH] base plugin: add ctime for backup files Signed-off-by: Dietmar Maurer --- PVE/Storage/Plugin.pm | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/PVE/Storage/Plugin.pm b/PVE/Storage/Plugin.pm index eab73f5..bd4bb8c 100644 --- a/PVE/Storage/Plugin.pm +++ b/PVE/Storage/Plugin.pm @@ -6,6 +6,7 @@ use warnings; use File::chdir; use File::Path; use File::Basename; +use Time::Local qw(timelocal); use PVE::Tools qw(run_command); use PVE::JSONSchema qw(get_standard_option); @@ -924,6 +925,11 @@ my $get_subdir_files = sub { my $format = $2; $info = { volid => "$sid:backup/$1", format => $format }; + if ($fn =~ m!^vzdump\-(?:lxc|qemu)\-(?:[1-9][0-9]{2,8})\-(\d{4})_(\d{2})_(\d{2})\-(\d{2})_(\d{2})_(\d{2})\.${format}$!) { + my $epoch = timelocal($6, $5, $4, $3, $2-1, $1 - 1900); + $info->{ctime} = $epoch; + } + if (defined($vmid) || $fn =~ m!\-([1-9][0-9]{2,8})\-[^/]+\.${format}$!) { $info->{vmid} = $vmid // $1; } -- 2.39.2