108 |
|
|
109 |
print "restoring $path\n"; |
print "restoring $path\n"; |
110 |
|
|
111 |
my $cmd = "cd $inc_tmp_dir && tar xvfz $path"; |
my $cmd = "cd $inc_tmp_dir && tar xfz $path"; |
112 |
system($cmd) == 0 or die "can't execute: $cmd -- $?\n"; |
system($cmd) == 0 or die "can't execute: $cmd -- $?\n"; |
113 |
|
|
114 |
print "starting import into BackupPC pool\n"; |
print "starting import into BackupPC pool\n"; |
173 |
} |
} |
174 |
|
|
175 |
#unlink $config_file || die "can't remove $config_file: $!"; |
#unlink $config_file || die "can't remove $config_file: $!"; |
176 |
|
|
177 |
|
rmtree($inc_tmp_dir) if (-e $inc_tmp_dir); |