304 |
if ($parts > 1) { |
if ($parts > 1) { |
305 |
# parts start with 0, so we have -1 here |
# parts start with 0, so we have -1 here |
306 |
$part_path = '.' . ($part_nr - 1); |
$part_path = '.' . ($part_nr - 1); |
307 |
$disk_name .= '.' . $part_nr; |
$disk_name .= ' ' . $part_nr . '/' . $parts; |
308 |
} |
} |
309 |
|
|
310 |
print "Processing part $part_nr/$parts\n"; |
print "Processing part $part_nr/$parts\n"; |
353 |
|
|
354 |
print "Running mkisofs now for $inc increments, disk $disk_name\n"; |
print "Running mkisofs now for $inc increments, disk $disk_name\n"; |
355 |
|
|
356 |
my $cmd = $bin->{'mkisofs'} . qq{ -A BackupPC -gui -J -r -T --input-charset ISO-8859-2 -V $disk_name -o ${iso_file}.tmp -path-list $list_file }; |
my $cmd = $bin->{'mkisofs'} . qq{ -A BackupPC -gui -J -r -T --input-charset ISO-8859-2 -V "$disk_name" -o ${iso_file}.tmp -path-list $list_file }; |
357 |
|
|
358 |
system($cmd) == 0 or skip "can't run $cmd: $?"; |
system($cmd) == 0 or skip "can't run $cmd: $?"; |
359 |
|
|