fix sql, close list file for mkisofs

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

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 };