version 1.5, 2005/12/07 17:31:04
|
version 1.6, 2007/03/21 14:21:01
|
Line 16 $|=1;
|
Line 16 $|=1;
|
# |
# |
|
|
# program version |
# program version |
my $version = "0.4.2 (7.12.2005 ROC)"; |
my $version = "0.4.3 (21.3.2007 ROC)"; |
|
|
# read command line parameters |
# read command line parameters |
my $args = parseargs; |
my $args = parseargs; |
Line 205 sub run_query {
|
Line 205 sub run_query {
|
$archcmd .= " -description='$archname'"; |
$archcmd .= " -description='$archname'"; |
$archcmd .= " '$dirquery'"; |
$archcmd .= " '$dirquery'"; |
|
|
|
logger('INFO', "querying TSM server for $dirquery, please wait..."); |
my $archcnt = 0; |
my $archcnt = 0; |
print LOG "CMD: $archcmd\n"; |
print LOG "CMD: $archcmd\n"; |
if (open ARCH, "$archcmd 2>&1 |") { |
if (open ARCH, "$archcmd 2>&1 |") { |