376 |
print STDERR "NOTE: no files found for $Host:$ShareName, increment $Num\n" if ($opts{v}); |
print STDERR "NOTE: no files found for $Host:$ShareName, increment $Num\n" if ($opts{v}); |
377 |
# remove temporary files if there are no files |
# remove temporary files if there are no files |
378 |
rmtree($tar_path); |
rmtree($tar_path); |
379 |
|
|
380 |
|
my $sth = $dbh->prepare(qq{ |
381 |
|
update backups set inc_size = 0, parts = 0, inc_deleted = true |
382 |
|
where id = ? |
383 |
|
}); |
384 |
|
$sth->execute($backup_id); |
385 |
|
|
386 |
} |
} |
387 |
|
|
388 |
# |
# |