committed by
Thomas Lamprecht
parent
e34afeb117
commit
35a3953213
@ -1413,6 +1413,23 @@ sub archive_info {
|
|||||||
return $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 {
|
sub extract_vzdump_config_tar {
|
||||||
my ($archive, $conf_re) = @_;
|
my ($archive, $conf_re) = @_;
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user