114 |
|
|
115 |
if (my $row = $sth_md5->fetchrow_hashref) { |
if (my $row = $sth_md5->fetchrow_hashref) { |
116 |
return if ( |
return if ( |
117 |
$row->{tar_size} == $tar_size && |
$row->{tar_size} >= $tar_size && |
118 |
$row->{size} == $size && |
$row->{size} == $size && |
119 |
$row->{md5} eq $md5 && |
$row->{md5} eq $md5 && |
120 |
$row->{items} == $items |
$row->{items} == $items |
177 |
} |
} |
178 |
|
|
179 |
my $md5 = read_file( $md5_path ) || die "can't read md5sum file $md5_path: $!"; |
my $md5 = read_file( $md5_path ) || die "can't read md5sum file $md5_path: $!"; |
180 |
|
$md5 =~ s#\s.*$##; |
181 |
|
|
182 |
my $part_nr = 1; |
my $part_nr = 1; |
183 |
$part_nr = $1 if ($tarfilename =~ m#/(\d+)\.tar\.gz#); |
$part_nr = $1 if ($tarfilename =~ m#/(\d+)\.tar\.gz#); |