git-svn-id: svn+ssh://llin/home/dpavlin/private/svn/BackupPC/trunk@278
8392b6e1-25fa-0310-8288-
cc32f8e212ea
#!/usr/bin/perl
use strict;
#!/usr/bin/perl
use strict;
-#use lib "__INSTALLDIR__/lib";
-use lib "/data/backuppc-agi/lib";
+use lib "__INSTALLDIR__/lib";
use DBI;
use BackupPC::Lib;
use DBI;
use BackupPC::Lib;
foreach my $v (@volumes) {
foreach my $v (@volumes) {
my $iso_size = 0;
my $disk_name = $dvd_nr;
my $iso_size = 0;
my $disk_name = $dvd_nr;
my $rel_path = $tar_file;
if (-d "$tar_dir/$rel_path") {
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");
mkpath("$stage/$rel_path") unless (-d "$stage/$rel_path");
+ $rel_path .= '/' . $p->{part_nr};
}
$rel_path .= '.tar.gz';
}
$rel_path .= '.tar.gz';
print "Created $iso_file [$iso_size bytes] in ", fmt_time(time() - $t), "\n";
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";
} else {
print "ISO $iso_file allready exists\n";