fix sql, close list file for mkisofs

[BackupPC.git] / bin / BackupPC_burnArchiveCLI

diff --git a/bin/BackupPC_burnArchiveCLI b/bin/BackupPC_burnArchiveCLI
index b39176f..fc4f99e 100755 (executable)
--- a/bin/BackupPC_burnArchiveCLI
+++ b/bin/BackupPC_burnArchiveCLI
@@ -135,7 +135,7 @@ my $sth_archive_backup = $dbh->prepare( qq{
                archive_id,
                hosts.name as host,
                shares.name as share,
-               backups.num as num,
+               backups.num as num
        from archive_backup
        join archive on archive_id = archive.id
        join backups on backup_id = backups.id
@@ -185,6 +185,10 @@ foreach my $arc (@archives_to_burn) {
 
        }
 
+       # FIXME add file list in xml and txt and note file
+
+       close($list);
+
        print "Running mkisofs now for $inc increments...\n";
 
        my $cmd = qq{ mkisofs -A BackupPC -gui -J -r -T --input-charset ISO-8859-2 -V $dvd_nr -o $iso_file -path-list $list_file };