version 1.3, 2005/01/21 14:33:26
|
version 1.6, 2007/03/21 14:21:01
|
Line 18 $|=1;
|
Line 18 $|=1;
|
# |
# |
|
|
# program version |
# program version |
my $version = "0.3 (20.1.2004)"; |
my $version = "0.3.2 (21.3.2007)"; |
|
|
# read command line parameters |
# read command line parameters |
my $args = parseargs; |
my $args = parseargs; |
Line 196 sub run_retrieve {
|
Line 196 sub run_retrieve {
|
# destination dir is mount point |
# destination dir is mount point |
$archparent = $archmount; |
$archparent = $archmount; |
} |
} |
|
logger("INFO", "looking for archives in $archmount..."); |
|
|
print LOG "START unarchive $version on ", scalar localtime, "\n"; |
print LOG "START unarchive $version on ", scalar localtime, "\n"; |
my $archcmd = $archprog; |
my $archcmd = $archprog; |
Line 204 sub run_retrieve {
|
Line 205 sub run_retrieve {
|
$archcmd .= " '$archmount/'"; # archive mount point |
$archcmd .= " '$archmount/'"; # archive mount point |
$archcmd .= " '$archparent/'"; # destination dir name |
$archcmd .= " '$archparent/'"; # destination dir name |
|
|
|
logger('INFO', "querying TSM server for $archmount, please wait..."); |
|
|
my $archcnt = 0; |
my $archcnt = 0; |
my $numfiles = 0; |
my $numfiles = 0; |
print LOG "CMD: $archcmd\n"; |
print LOG "CMD: $archcmd\n"; |