Workarea Lists

Hi,

I need a list of ALL the workareas... so that i can submit them through iwsubmit using a perl script.

Can anyone suggest any command .. which can fetch the list for me?

Find more posts tagged with

Comments

MAK

Hi,

Can you check "iwlist", i am sure it gives you the list of branches.
Possible it has option for workarea, editions, folders, etc.

Anyways if you have list of branches, getting workareas should not be difficult.

Adam Stoller

Hi,

I need a list of ALL the workareas... so that i can submit them through iwsubmit using a perl script.

Can anyone suggest any command .. which can fetch the list for me?

You can either write some code to wrap around the usage of iwlist or write some code to just walk the directory tree [efficiently] to get this kind of information - it's not that difficult and as such is a good exercise to go through periodically to verify your abilities with Perl.

Note however, if you are submitting files from every workarea and you have multiple workareas on branches - you are much more likely to run into conflict issues. Have you considered how your script is going to handle such situations? You should probably create some test cases where this will be guaranteed to occur so that you can verify the robustness of your code.

jed

Hi,

I need a list of ALL the workareas... so that i can submit them through iwsubmit using a perl script.

Can anyone suggest any command .. which can fetch the list for me?

We do something similar to find a specific type of branch. You should be able to refactor this code to get at what you need.


=head2 findAllContentBranches()

 DESCRIPTION
 find all content branches within all stores and return the vpaths in an array.  A
 content branch is defined as one past the locale or the 5th branch

 INPUTS
 n/a

 RETURNS
 an array with the vpath to all content branches

 EXAMPLE
@branches=findAllContentBranches();

=cut

sub findAllContentBranches{

    my @allBranches=();
    my @contentBranches=();
    # list all stores
    my $clt="$iwhome/bin/iwstoreadm -m";
    my $output=`$clt`;
    my @allStores=split(/\n/,$output);
    foreach(@allStores){
        _expandSubBranches("/$_",\@allBranches);
    }
    # filter this on content branches by looking for
    # 6 slashes (/)
    foreach my $branch(@allBranches){
        if($branch =~ m/^\/.*\/.*\/.*\/.*\/.*\/.*$/){
            push(@contentBranches,$branch);
        }

    }
    return(@contentBranches);
}


# find all branches.  Helper for findAllContentBranches.
# This will make a recursive dive and find all branches
# under the given root branch
#
# Give me:
# $parent: root branch to expand
# $allBranches: array ref where all branches are stored
#
# Return:
# Nothing.  Branches are stored in an array ref

sub _expandSubBranches{
    my($parent,$allBranches)=@_;

    my $clt="$iwhome/bin/iwlist $parent";
    my $output=`$clt`;
    my(@branches)=split(/\n/,$output);
    foreach my $branch(@branches){
        $branch="$parent/$branch";
        push(@$allBranches,$branch);
        _expandSubBranches($branch,$allBranches);
    }

}