version 1.7, 2008/09/10 12:59:45
|
version 1.8, 2009/08/11 14:34:59
|
Line 18 $|=1;
|
Line 18 $|=1;
|
# |
# |
|
|
# program version |
# program version |
my $version = "0.3.3 (10.9.2008)"; |
my $version = "0.3.4 (11.8.2009)"; |
|
|
# read command line parameters |
# read command line parameters |
my $args = parseargs; |
my $args = parseargs; |
Line 200 sub run_retrieve {
|
Line 200 sub run_retrieve {
|
|
|
print LOG "START unarchive $version on ", scalar localtime, "\n"; |
print LOG "START unarchive $version on ", scalar localtime, "\n"; |
my $archcmd = $archprog; |
my $archcmd = $archprog; |
$archcmd .= " retrieve -subdir=yes -replace=all"; |
$archcmd .= " retrieve -subdir=yes -replace=all -ifnewer"; |
$archcmd .= " -description='$archname'"; # archive name |
$archcmd .= " -description='$archname'"; # archive name |
$archcmd .= " '$archmount/'"; # archive mount point |
$archcmd .= " '$archmount/'"; # archive mount point |
$archcmd .= " '$archparent/'"; # destination dir name |
$archcmd .= " '$archparent/'"; # destination dir name |