Mercurial > hg > foxridge-archiver

comparison unarchiver.pl @ 55:7958ac21f9bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fixed unarchiving of multiple versions by adding -ifnewer option to dsmc ret
author casties
date Tue, 11 Aug 2009 16:34:59 +0200
parents b762b5af6e42
children 2208ed7370cb
comparison
equal deleted inserted replaced
54:8e19bc5ca86a 55:7958ac21f9bf
16 ####################################################### 16 #######################################################
17 # internal parameters 17 # internal parameters
18 # 18 #
19 19
20 # program version 20 # program version
21 my $version = "0.3.3 (10.9.2008)"; 21 my $version = "0.3.4 (11.8.2009)";
22 22
23 # read command line parameters 23 # read command line parameters
24 my $args = parseargs; 24 my $args = parseargs;
25 25
26 # debug level 26 # debug level
198 } 198 }
199 logger("INFO", "looking for archives in $archmount..."); 199 logger("INFO", "looking for archives in $archmount...");
200 200
201 print LOG "START unarchive $version on ", scalar localtime, "\n"; 201 print LOG "START unarchive $version on ", scalar localtime, "\n";
202 my $archcmd = $archprog; 202 my $archcmd = $archprog;
203 $archcmd .= " retrieve -subdir=yes -replace=all"; 203 $archcmd .= " retrieve -subdir=yes -replace=all -ifnewer";
204 $archcmd .= " -description='$archname'"; # archive name 204 $archcmd .= " -description='$archname'"; # archive name
205 $archcmd .= " '$archmount/'"; # archive mount point 205 $archcmd .= " '$archmount/'"; # archive mount point
206 $archcmd .= " '$archparent/'"; # destination dir name 206 $archcmd .= " '$archparent/'"; # destination dir name
207 207
208 logger('INFO', "querying TSM server for $archmount, please wait..."); 208 logger('INFO', "querying TSM server for $archmount, please wait...");