display some progress about dumping of file list

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

diff --git a/bin/BackupPC_burnArchiveCLI b/bin/BackupPC_burnArchiveCLI
index 8a0e9d1..2c442ed 100755 (executable)
--- a/bin/BackupPC_burnArchiveCLI
+++ b/bin/BackupPC_burnArchiveCLI
@@ -71,6 +71,8 @@ sub dumpArchive2XML($$$)
        my $output = new IO::File(">$filename");
        my $writer = new XML::Writer(OUTPUT=>$output, NEWLINES => 1);
 
+       print "Dumping file list for DVD $dvd_nr";
+
        $writer->pi('xml-stylesheet', 'href="archive.css" type="text/css"');
 
        my $files_sql = q{
@@ -123,6 +125,8 @@ sub dumpArchive2XML($$$)
 
        while (my $row = $sth_backups->fetchrow_hashref()) {
 
+               print ".";
+
                my $sth_files = $dbh->prepare( $files_sql);
                $sth_files->execute($row->{'backup_id'});
 
@@ -146,7 +150,8 @@ sub dumpArchive2XML($$$)
                         
        $writer->endTag("archive");
        $writer->end(); 
-       
+
+       print "\n";
 }