252 |
if ($fh) { |
if ($fh) { |
253 |
return if ($current_tar_size == 0); |
return if ($current_tar_size == 0); |
254 |
|
|
255 |
print STDERR " $part"; |
print STDERR "\n\t+ $part:"; |
256 |
|
|
257 |
# |
# |
258 |
# Finish with two null 512 byte headers, |
# Finish with two null 512 byte headers, |
271 |
|
|
272 |
my $size = (stat( $file . '.tar.gz' ))[7] || die "can't stat ${file}.tar.gz"; |
my $size = (stat( $file . '.tar.gz' ))[7] || die "can't stat ${file}.tar.gz"; |
273 |
|
|
274 |
|
print "$file, $size bytes, $items_in_part items"; |
275 |
|
|
276 |
$sth_backup_parts->execute( |
$sth_backup_parts->execute( |
277 |
$backup_id, |
$backup_id, |
278 |
$part, |
$part, |
314 |
$backup_id |
$backup_id |
315 |
); |
); |
316 |
|
|
317 |
print STDERR ", $total_increment_size bytes\n" if ($opts{v}); |
print "\n\ttotal $total_increment_size bytes"; |
318 |
|
|
319 |
return; |
return; |
320 |
} |
} |