r8513@llin: dpavlin | 2005-10-13 23:17:04 +0200

 and a bugfix

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

diff --git a/bin/BackupPC_burnArchiveCLI b/bin/BackupPC_burnArchiveCLI
index bee4d05..763cbff 100755 (executable)
--- a/bin/BackupPC_burnArchiveCLI
+++ b/bin/BackupPC_burnArchiveCLI
@@ -285,7 +285,7 @@ foreach my $arc (@archives_to_burn) {
                print "Processing part $part_nr/$parts\n";
 
                my $list_file = my $iso_file = my $xml_file = "${iso_dir}/${dvd_nr}";
-               $list_file .= '.list';
+               $list_file .= $part_path . '.list';
                $iso_file .= $part_path . '.iso';
                $xml_file .= '.xml';
 
@@ -306,7 +306,7 @@ foreach my $arc (@archives_to_burn) {
                                        print $list "$tar_dir/$tar_file\n";
                                } else {
                                        my $len = length("$parts");
-                                       my $nr = sprintf("%0${len}d", $part_nr);
+                                       my $nr = sprintf("%0${len}d", ($part_nr - 1));
                                        print $list "$tar_dir/$tar_file/part$nr\n";
                                }
                                $inc++;