/[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 199 by dpavlin, Thu Oct 13 21:19:06 2005 UTC revision 201 by dpavlin, Fri Oct 14 14:02:51 2005 UTC
# Line 91  sub dumpArchive2XML($$$) Line 91  sub dumpArchive2XML($$$)
91                          backups.date AS date,                          backups.date AS date,
92                          shares.name  AS share,                          shares.name  AS share,
93                          backups.size AS backup_size,                          backups.size AS backup_size,
94                          backups.inc_size AS compress_size                          backups.inc_size AS compress_size,
95                            backups.parts AS parts
96                  FROM backups, archive_backup, hosts, shares                  FROM backups, archive_backup, hosts, shares
97                  WHERE archive_backup.backup_id = backups.id                  WHERE archive_backup.backup_id = backups.id
98                          AND hosts.id=backups.hostid                          AND hosts.id=backups.hostid
# Line 170  sub fmt_archive($) { Line 171  sub fmt_archive($) {
171          $row->{'copies'} =~ s/^\s*0+\s*$/no/;          $row->{'copies'} =~ s/^\s*0+\s*$/no/;
172          $row->{'total_size'} /= (1024*1024);          $row->{'total_size'} /= (1024*1024);
173    
174          my $copies = 'copies';          my $copies = $row->{'copies'};
175          $copies = 'copy' if ($row->{'copies'} == 1);          if ($row->{'parts'} > 1) {
176                    $copies .= '/' . $row->{'parts'};
177            }
178    
179            my $copies_dest = 'copies';
180            $copies_dest = 'copy' if ($row->{'copies'} == 1);
181    
182          return          return
183                  sprintf("%d by %s on %s, %s %s [%.2f Mb]",                  sprintf("%d by %s on %s, %s %s [%.2f Mb]",
184                          $row->{'dvd_nr'},                          $row->{'dvd_nr'},
185                          $row->{'username'},                          $row->{'username'},
186                          $row->{'date'},                          $row->{'date'},
187                          $row->{'copies'}, $copies,                          $copies, $copies_dest,
188                          $row->{'total_size'},                          $row->{'total_size'},
189                  );                  );
190  }  }
# Line 285  foreach my $arc (@archives_to_burn) { Line 291  foreach my $arc (@archives_to_burn) {
291                  print "Processing part $part_nr/$parts\n";                  print "Processing part $part_nr/$parts\n";
292    
293                  my $list_file = my $iso_file = my $xml_file = "${iso_dir}/${dvd_nr}";                  my $list_file = my $iso_file = my $xml_file = "${iso_dir}/${dvd_nr}";
294                  $list_file .= '.list';                  $list_file .= $part_path . '.list';
295                  $iso_file .= $part_path . '.iso';                  $iso_file .= $part_path . '.iso';
296                  $xml_file .= '.xml';                  $xml_file .= '.xml';
297    
# Line 306  foreach my $arc (@archives_to_burn) { Line 312  foreach my $arc (@archives_to_burn) {
312                                          print $list "$tar_dir/$tar_file\n";                                          print $list "$tar_dir/$tar_file\n";
313                                  } else {                                  } else {
314                                          my $len = length("$parts");                                          my $len = length("$parts");
315                                          my $nr = sprintf("%0${len}d", $part_nr);                                          my $nr = sprintf("%0${len}d", ($part_nr - 1));
316                                          print $list "$tar_dir/$tar_file/part$nr\n";                                          print $list "$tar_dir/$tar_file/part$nr\n";
317                                  }                                  }
318                                  $inc++;                                  $inc++;
Legend:
Removed from v.199  
changed lines
  Added in v.201
  ViewVC Help
Powered by ViewVC 1.1.26