285 |
print "Processing part $part_nr/$parts\n"; |
print "Processing part $part_nr/$parts\n"; |
286 |
|
|
287 |
my $list_file = my $iso_file = my $xml_file = "${iso_dir}/${dvd_nr}"; |
my $list_file = my $iso_file = my $xml_file = "${iso_dir}/${dvd_nr}"; |
288 |
$list_file .= '.list'; |
$list_file .= $part_path . '.list'; |
289 |
$iso_file .= $part_path . '.iso'; |
$iso_file .= $part_path . '.iso'; |
290 |
$xml_file .= '.xml'; |
$xml_file .= '.xml'; |
291 |
|
|
306 |
print $list "$tar_dir/$tar_file\n"; |
print $list "$tar_dir/$tar_file\n"; |
307 |
} else { |
} else { |
308 |
my $len = length("$parts"); |
my $len = length("$parts"); |
309 |
my $nr = sprintf("%0${len}d", $part_nr); |
my $nr = sprintf("%0${len}d", ($part_nr - 1)); |
310 |
print $list "$tar_dir/$tar_file/part$nr\n"; |
print $list "$tar_dir/$tar_file/part$nr\n"; |
311 |
} |
} |
312 |
$inc++; |
$inc++; |