From: dpavlin <dpavlin@8392b6e1-25fa-0310-8288-cc32f8e212ea>
Date: Wed, 12 Oct 2005 10:34:26 +0000 (+0000)
Subject: fix sql, close list file for mkisofs
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=6e7545cf0b9b00172c2b13d29fc91f7ae6b89e09;p=BackupPC.git

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