foxridge-archiver/unarchiver.pl - diff

Return to unarchiver.pl CVS log

Up to [Repository] / foxridge-archiver

version 1.5, 2005/09/20 17:30:34	version 1.7, 2008/09/10 12:59:45
Line 18 $\|=1;	Line 18 $\|=1;
#	#

# program version	# program version
my $version = "0.3.1 (21.6.2005)";	my $version = "0.3.3 (10.9.2008)";

# read command line parameters	# read command line parameters
my $args = parseargs;	my $args = parseargs;
Line 205 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";
Line 297 sub check_files {	Line 299 sub check_files {
logger("INFO", "unarchiver $version");	logger("INFO", "unarchiver $version");

# make shure the right user is running this program	# make shure the right user is running this program
my $user = getlogin;	my $user = getlogin \|\| getpwuid($<);
if (($user)&&($user ne "archive")&&($user ne "root")) {	if (($user)&&($user ne "archive")&&($user ne "root")) {
logger("ABORT", "you must be archive or root user to run this program!");	logger("ABORT", "you must be archive or root user to run this program!");
exit 1;	exit 1;