418 |
# this will return -1 if file doesn't exist |
# this will return -1 if file doesn't exist |
419 |
my $size = BackupPC::SearchLib::get_tgz_size_by_name($tar_file); |
my $size = BackupPC::SearchLib::get_tgz_size_by_name($tar_file); |
420 |
|
|
421 |
print "# size: $size backup.size: ", $row->{inc_size},"\n" if ($opt{d}); |
print "# host: ".${row->{host}}.", share: ".$row->{'share'}.", backup_num:".$row->{num}." size: $size backup.size: ", $row->{inc_size},"\n" if ($opt{d}); |
422 |
|
|
423 |
if ( $row->{'inc_size'} != -1 && $size != -1 && $row->{'inc_size'} >= $size && $row->{parts} == $row->{backup_parts}) { |
if ( $row->{'inc_size'} != -1 && $size != -1 && $row->{'inc_size'} >= $size && $row->{parts} == $row->{backup_parts}) { |
424 |
if ($check) { |
if ($check) { |