6.5 upgrade How do I count the number of branches?

Tim__D

We have a lot of branches. Is there a command line tool I can use to calculate this? I need to for the licence key.

jkm

You can use the following code probably :-)
Run it from any location and it will provide you the number of branches under that just change the workarea names etc in the condition


my $branch_cnt=0;
my @contents = map "$dir/$_", sort grep !/^\.\.?$/, readdir DIR;
&find_branch ($dir);
print "Number of Branches:: $branch_cnt";

sub find_branch
{
my @contents = @_ ;

foreach $dir_file (@contents)
{
if ( -d $dir_file )
{
if( $dir_file !~ m#main_wa|WORKAREA|preview|EDITION|STAGING|web|templatedata|web_master# )
{
$branch_cnt++;
opendir DIR, $dir_file or print LOGFILE "\n Error in Opening DIR $dir_file : $!";
my @content_loc = map "$dir_file/$_", sort grep !/^\.\.?$/, readdir DIR;
closedir DIR ;
&find_branch (@content_loc);
}
}
}
}