|
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 |") { |
![[BACK]](/cvs/cvsweb/icons/back.gif){kind=icon}
Return to archivecheck.pl CVS log ![[TXT]](/cvs/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvs/cvsweb/icons/dir.gif){kind=icon}
Up to [Repository] / foxridge-archiver