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 -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 |
|
|
360 |
|
rename $iso_file.'.tmp', $iso_file || skip "can't rename $iso_file: $!"; |
361 |
|
|
362 |
$iso_size = (stat($iso_file))[7]; |
$iso_size = (stat($iso_file))[7]; |
363 |
|
|
364 |
print "Created $iso_file [$iso_size bytes] in ", fmt_time(time() - $t), "\n"; |
print "Created $iso_file [$iso_size bytes] in ", fmt_time(time() - $t), "\n"; |