/[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 200 by dpavlin, Thu Oct 13 21:19:08 2005 UTC
# Line 285  foreach my $arc (@archives_to_burn) { Line 285  foreach my $arc (@archives_to_burn) {
285                  print "Processing part $part_nr/$parts\n";                  print "Processing part $part_nr/$parts\n";
286    
287                  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}";
288                  $list_file .= '.list';                  $list_file .= $part_path . '.list';
289                  $iso_file .= $part_path . '.iso';                  $iso_file .= $part_path . '.iso';
290                  $xml_file .= '.xml';                  $xml_file .= '.xml';
291    
# Line 306  foreach my $arc (@archives_to_burn) { Line 306  foreach my $arc (@archives_to_burn) {
306                                          print $list "$tar_dir/$tar_file\n";                                          print $list "$tar_dir/$tar_file\n";
307                                  } else {                                  } else {
308                                          my $len = length("$parts");                                          my $len = length("$parts");
309                                          my $nr = sprintf("%0${len}d", $part_nr);                                          my $nr = sprintf("%0${len}d", ($part_nr - 1));
310                                          print $list "$tar_dir/$tar_file/part$nr\n";                                          print $list "$tar_dir/$tar_file/part$nr\n";
311                                  }                                  }
312                                  $inc++;                                  $inc++;
Legend:
Removed from v.199  
changed lines
  Added in v.200
  ViewVC Help
Powered by ViewVC 1.1.26