Add archive_remove

Signed-off-by: Fabian Ebner <f.ebner@proxmox.com>
This commit is contained in:
Fabian Ebner
2020-06-30 10:24:19 +02:00
committed by Thomas Lamprecht
parent e34afeb117
commit 35a3953213

View File

@ -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) = @_;