171 |
my $path = "$tar_dir/$tarfilename"; |
my $path = "$tar_dir/$tarfilename"; |
172 |
my $md5_path = $path; |
my $md5_path = $path; |
173 |
$md5_path =~ s/\.tar\.gz$/.md5/ || die "can't create md5 filename from $md5_path"; |
$md5_path =~ s/\.tar\.gz$/.md5/ || die "can't create md5 filename from $md5_path"; |
174 |
if (! -e $md5_path) { |
if (! -e $md5_path || -z $md5_path) { |
175 |
print ", creating md5"; |
print ", creating md5"; |
176 |
system( $bin->{md5sum} . " $path > $md5_path") == 0 or die "can't create md5 $path: $!"; |
system( $bin->{md5sum} . " $path > $md5_path") == 0 or die "can't create md5 $path: $!"; |
177 |
} |
} |
291 |
|
|
292 |
print "# size: $size backup.size: ", $row->{inc_size},"\n" if ($opt{d}); |
print "# size: $size backup.size: ", $row->{inc_size},"\n" if ($opt{d}); |
293 |
|
|
294 |
if ( $row->{'inc_size'} != -1 && $size != -1 && $row->{'inc_size'} == $size) { |
if ( $row->{'inc_size'} != -1 && $size != -1 && $row->{'inc_size'} >= $size) { |
295 |
if ($check) { |
if ($check) { |
296 |
tar_check($row->{'host'}, $row->{'share'}, $row->{'num'}, $tar_file) && next; |
tar_check($row->{'host'}, $row->{'share'}, $row->{'num'}, $tar_file) && next; |
297 |
} else { |
} else { |