mkdir($tar_path) || die "can't create directory $tar_path: $!";
sub abort_cleanup {
- print STDERR "ABORTED: cleanup temp dir";
+ print STDERR "ABORTED: cleanup temp dir ";
rmtree($tar_path);
$dbh->rollback;
exit 1;
print STDERR "NOTE: no files found for $Host:$ShareName, increment $Num\n" if ($opts{v});
# remove temporary files if there are no files
rmtree($tar_path);
+
+ my $sth = $dbh->prepare(qq{
+ update backups set inc_size = 0, parts = 0, inc_deleted = true
+ where id = ?
+ });
+ $sth->execute($backup_id);
+
}
#