/[BackupPC]/trunk/bin/BackupPC_burnArchiveCLI
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/bin/BackupPC_burnArchiveCLI

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 202 by dpavlin, Fri Oct 14 14:02:52 2005 UTC revision 203 by dpavlin, Fri Oct 14 15:53:54 2005 UTC
# Line 71  sub dumpArchive2XML($$$) Line 71  sub dumpArchive2XML($$$)
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{
# Line 123  sub dumpArchive2XML($$$) Line 125  sub dumpArchive2XML($$$)
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    
# Line 146  sub dumpArchive2XML($$$) Line 150  sub dumpArchive2XML($$$)
150                                                    
151          $writer->endTag("archive");          $writer->endTag("archive");
152          $writer->end();          $writer->end();
153            
154            print "\n";
155  }  }
156    
157    
Legend:
Removed from v.202  
changed lines
  Added in v.203
  ViewVC Help
Powered by ViewVC 1.1.26