foxridge-archiver/unarchiver.pl - diff

Return to unarchiver.pl CVS log

Up to [Repository] / foxridge-archiver

version 1.4, 2005/03/23 12:12:08	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.2005)";	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";