From 35a3953213e1890800a30817df5f1cf0e16ca140 Mon Sep 17 00:00:00 2001 From: Fabian Ebner Date: Tue, 30 Jun 2020 10:24:19 +0200 Subject: [PATCH] Add archive_remove Signed-off-by: Fabian Ebner --- PVE/Storage.pm | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) diff --git a/PVE/Storage.pm b/PVE/Storage.pm index f1181cc..d5b5cb9 100755 --- a/PVE/Storage.pm +++ b/PVE/Storage.pm @@ -1413,6 +1413,23 @@ sub archive_info { return $info; } +sub archive_remove { + my ($archive_path) = @_; + + my $dirname = dirname($archive_path); + my $archive_info = eval { archive_info($archive_path) } // {}; + my $logfn = $archive_info->{logfilename}; + + unlink $archive_path or die "removing archive $archive_path failed: $!\n"; + + if (defined($logfn)) { + my $logpath = "$dirname/$logfn"; + if (-e $logpath) { + unlink $logpath or warn "removing log file $logpath failed: $!\n"; + } + } +} + sub extract_vzdump_config_tar { my ($archive, $conf_re) = @_; -- 2.39.2