528 |
$sth_archive_burned->execute($dvd_nr, $iso_size, $volume_nr, $copy_nr); |
$sth_archive_burned->execute($dvd_nr, $iso_size, $volume_nr, $copy_nr); |
529 |
|
|
530 |
print "Media burn for $disk_name copy $copy_nr recorded\n"; |
print "Media burn for $disk_name copy $copy_nr recorded\n"; |
531 |
|
|
532 |
|
if ($copy_nr >= $copies) { |
533 |
|
print STDERR "erasing temporary files, have $copy_nr copies (> $copies)\n"; |
534 |
|
foreach my $f (( $xml_file, $iso_file )) { |
535 |
|
print STDERR "\t$f "; |
536 |
|
unlink $f || die "can't remove $f: $!"; |
537 |
|
print STDERR "removed\n"; |
538 |
|
} |
539 |
|
} |
540 |
|
|
541 |
$volume_nr++; |
$volume_nr++; |
542 |
} |
} |
543 |
|
|