r10297@llin: dpavlin | 2006-03-01 14:40:39 +0100

 automatically expire iso images which are burned BurnMultipleCopies times

git-svn-id: svn+ssh://llin/home/dpavlin/private/svn/BackupPC/trunk@339 8392b6e1-25fa-0310-8288-cc32f8e212ea

diff --git a/BUGS b/BUGS
index 367cef6..c52ccc3 100644 (file)
--- a/BUGS
+++ b/BUGS
@@ -22,7 +22,7 @@
 + sort burn archive DVDs by share and other columns
 + covert size options in configuration files to bytes
 
-- automatically expire iso images which are burned BurnMultipleCopies times
++ automatically expire iso images which are burned BurnMultipleCopies times
 + warn about disk usage in BackupPC_burnArchiveCLI before creating new iso image
 + burn two copies of three part increment as 1 2 3 1 2 3 and not 1 1 2 2 3 3
 - script to recover host pool from increments only

diff --git a/bin/BackupPC_burnArchiveCLI b/bin/BackupPC_burnArchiveCLI
index 18013c2..46694f3 100755 (executable)
--- a/bin/BackupPC_burnArchiveCLI
+++ b/bin/BackupPC_burnArchiveCLI
@@ -528,7 +528,16 @@ foreach my $copy_nr ( 1 .. $copies ) {
                        $sth_archive_burned->execute($dvd_nr, $iso_size, $volume_nr, $copy_nr);
 
                        print "Media burn for $disk_name copy $copy_nr recorded\n";
-               
+
+                       if ($copy_nr >= $copies) {
+                               print STDERR "erasing temporary files, have $copy_nr copies (> $copies)\n";
+                               foreach my $f (( $xml_file, $iso_file )) {
+                                       print STDERR "\t$f ";
+                                       unlink $f || die "can't remove $f: $!";
+                                       print STDERR "removed\n";
+                               }
+                       }
+
                        $volume_nr++;
                }