215 |
my $max_size = $Conf{'MaxArchiveSize'} || die "problem with MaxArchieSize parametar"; |
my $max_size = $Conf{'MaxArchiveSize'} || die "problem with MaxArchieSize parametar"; |
216 |
$max_size *= 1024; # convert to bytes |
$max_size *= 1024; # convert to bytes |
217 |
|
|
218 |
|
# maximum file size on ISO image is 4Gb |
219 |
|
# this will require Linux kernel 2.6.8 or newer |
220 |
|
my $max_iso_file_size = 2^32 - 2048; |
221 |
|
if ( $max_size > $max_iso_file_size ) { |
222 |
|
$max_size = $max_iso_file_size; |
223 |
|
} |
224 |
|
|
225 |
my $parts = int( ($size + $max_size - 1) / $max_size ); |
my $parts = int( ($size + $max_size - 1) / $max_size ); |
226 |
|
|
227 |
if (-d "$tar_dir/$tar_file" && $parts != $row->{'parts'}) { |
if (-d "$tar_dir/$tar_file" && $parts != $row->{'parts'}) { |