Hi Friends,
I am using Teamsite 672 in Windows 2003 server environment.
Business requiremnt is that they want to list all the hidden editions on all the possible branches in a single run though perl script.
I have written a perl script which can list both hidden and published edition for given branch.
Could you please through some pointers how i can list ONLY hidden editions for ALL the possible branches in teamSite.
Many thanks in advance.
#!E:\Interwoven\TeamSite\iw-perl\bin\iwperl.exe
use strict;
use TeamSite::Config;
#Custom Modules
use MFE::Logger;
#----------------------------------------------------------------
# Script to List the Editions for Mcafee branch
# Created by
my $iwhome = TeamSite::Config::iwgethome();
my $iwmnt = TeamSite::Config::iwgetmount();
my $branch = $ARGV[0]; #Branch VPath
my $log = new MFE::Logger(file=>"Hiddeneditionlist.log");
my $fullpath="$branch"."/EDITION";
my $list="$iwhome/bin/iwlist -k $fullpath";
$log->print("This is a Branch FULLPATH:$fullpath\n");
$log->print("This is a FORMED COMMAND:$list\n");
listedition();
sub listedition()
{
my $results = '';
my
@results=qx($list);
foreach my $result1 (
@results) {
my $pattern = $result1;
$log->print("This is edition:$pattern\n");
}
}
Regards,
Vikas
