version 1.5, 2005/09/20 17:30:34
|
version 1.9, 2017/03/16 17:00:43
|
Line 1
|
Line 1
|
#!/usr/local/bin/perl -w |
#!/usr/bin/perl -w |
|
|
use strict; |
use strict; |
|
|
Line 18 $|=1;
|
Line 18 $|=1;
|
# |
# |
|
|
# program version |
# program version |
my $version = "0.3.1 (21.6.2005)"; |
my $version = "0.3.4 (11.8.2009)"; |
|
|
# read command line parameters |
# read command line parameters |
my $args = parseargs; |
my $args = parseargs; |
Line 200 sub run_retrieve {
|
Line 200 sub run_retrieve {
|
|
|
print LOG "START unarchive $version on ", scalar localtime, "\n"; |
print LOG "START unarchive $version on ", scalar localtime, "\n"; |
my $archcmd = $archprog; |
my $archcmd = $archprog; |
$archcmd .= " retrieve -subdir=yes -replace=all"; |
$archcmd .= " retrieve -subdir=yes -replace=all -ifnewer"; |
$archcmd .= " -description='$archname'"; # archive name |
$archcmd .= " -description='$archname'"; # archive name |
$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; |