71 |
my $output = new IO::File(">$filename"); |
my $output = new IO::File(">$filename"); |
72 |
my $writer = new XML::Writer(OUTPUT=>$output, NEWLINES => 1); |
my $writer = new XML::Writer(OUTPUT=>$output, NEWLINES => 1); |
73 |
|
|
74 |
|
print "Dumping file list for DVD $dvd_nr"; |
75 |
|
|
76 |
$writer->pi('xml-stylesheet', 'href="archive.css" type="text/css"'); |
$writer->pi('xml-stylesheet', 'href="archive.css" type="text/css"'); |
77 |
|
|
78 |
my $files_sql = q{ |
my $files_sql = q{ |
125 |
|
|
126 |
while (my $row = $sth_backups->fetchrow_hashref()) { |
while (my $row = $sth_backups->fetchrow_hashref()) { |
127 |
|
|
128 |
|
print "."; |
129 |
|
|
130 |
my $sth_files = $dbh->prepare( $files_sql); |
my $sth_files = $dbh->prepare( $files_sql); |
131 |
$sth_files->execute($row->{'backup_id'}); |
$sth_files->execute($row->{'backup_id'}); |
132 |
|
|
150 |
|
|
151 |
$writer->endTag("archive"); |
$writer->endTag("archive"); |
152 |
$writer->end(); |
$writer->end(); |
153 |
|
|
154 |
|
print "\n"; |
155 |
} |
} |
156 |
|
|
157 |
|
|