my $curr_backup = 1;
while (my $row = $sth->fetchrow_hashref) {
+
+ $curr_backup++;
+
my $tar_file = BackupPC::SearchLib::getGzipName($row->{'host'}, $row->{'share'}, $row->{'num'});
# this will return -1 if file doesn't exist
}
}
- print curr_time, " $curr_backup/$num_backups ", $row->{'host'}, ":", $row->{'share'}, " #", $row->{'num'}, " -> $tar_file";
- $curr_backup++;
+ print curr_time, " creating $curr_backup/$num_backups ", $row->{'host'}, ":", $row->{'share'}, " #", $row->{'num'}, " -> $tar_file";
my $t = time();
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;
}