if ($fh) {
return if ($current_tar_size == 0);
- print STDERR " $part";
+ print STDERR "\n\t+ $part:";
#
# Finish with two null 512 byte headers,
my $size = (stat( $file . '.tar.gz' ))[7] || die "can't stat ${file}.tar.gz";
+ print "$file, $size bytes, $items_in_part items";
+
$sth_backup_parts->execute(
$backup_id,
$part,
$backup_id
);
- print STDERR ", $total_increment_size bytes\n" if ($opts{v});
+ print "\n\ttotal $total_increment_size bytes";
return;
}
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;