Mercurial > hg > foxridge-archiver

comparison unarchiver.pl @ 20:79c6618e8dfa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
small fixes
author casties
date Tue, 20 Sep 2005 19:30:34 +0200
parents b19df18aa19a
children 724c615b5982
comparison
equal deleted inserted replaced
19:320c4b93bf39 20:79c6618e8dfa
16 ####################################################### 16 #######################################################
17 # internal parameters 17 # internal parameters
18 # 18 #
19 19
20 # program version 20 # program version
21 my $version = "0.3 (20.1.2005)"; 21 my $version = "0.3.1 (21.6.2005)";
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
194 $archparent = get_parent($archdir); 194 $archparent = get_parent($archdir);
195 } else { 195 } else {
196 # destination dir is mount point 196 # destination dir is mount point
197 $archparent = $archmount; 197 $archparent = $archmount;
198 } 198 }
199 logger("INFO", "looking for archives in $archmount...");
199 200
200 print LOG "START unarchive $version on ", scalar localtime, "\n"; 201 print LOG "START unarchive $version on ", scalar localtime, "\n";
201 my $archcmd = $archprog; 202 my $archcmd = $archprog;
202 $archcmd .= " retrieve -subdir=yes -replace=all"; 203 $archcmd .= " retrieve -subdir=yes -replace=all";
203 $archcmd .= " -description='$archname'"; # archive name 204 $archcmd .= " -description='$archname'"; # archive name