fixed creations of paths in ISO, minor fixups for production

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

diff --git a/bin/BackupPC_burnArchiveCLI b/bin/BackupPC_burnArchiveCLI
index 27a8dac..6ec1518 100755 (executable)
--- a/bin/BackupPC_burnArchiveCLI
+++ b/bin/BackupPC_burnArchiveCLI
@@ -1,8 +1,7 @@
 #!/usr/bin/perl
 
 use strict;
-#use lib "__INSTALLDIR__/lib";
-use lib "/data/backuppc-agi/lib";
+use lib "__INSTALLDIR__/lib";
 
 use DBI;
 use BackupPC::Lib;
@@ -323,7 +322,7 @@ foreach my $arc (@archives_to_burn) {
 
        foreach my $v (@volumes) {
 
-               print Dumper($v);
+               #print Dumper($v);
 
                my $iso_size = 0;
                my $disk_name = $dvd_nr;
@@ -369,8 +368,8 @@ foreach my $arc (@archives_to_burn) {
                                my $rel_path = $tar_file;
 
                                if (-d "$tar_dir/$rel_path") {
-                                       $rel_path .= '/' . $p->{part_nr};
                                        mkpath("$stage/$rel_path") unless (-d "$stage/$rel_path");
+                                       $rel_path .= '/' . $p->{part_nr};
                                }
                                $rel_path .= '.tar.gz';
 
@@ -410,8 +409,7 @@ foreach my $arc (@archives_to_burn) {
 
                        print "Created $iso_file [$iso_size bytes] in ", fmt_time(time() - $t), "\n";
 
-                       # FIXME
-                       #rmtree($stage) || warn "can't remove stage directory $stage: $!";
+                       rmtree($stage) || warn "can't remove stage directory $stage: $!";
 
                } else {
                        print "ISO $iso_file allready exists\n";