sub get_stack_list()
{
        my $self        = shift;
        my $group       = shift || '.*';        # group = PROD | TEST

        # read stacks.xml and build $DESCRIPTIONS hash
        parse_stacks();

        my @stacks;
        foreach my $i (sort (keys %DESCRIPTIONS)) {
                push @stacks, $i if ( $DESCRIPTIONS{$i}{group} eq $group  );
                push @stacks, $i if ( $group eq ".*" );
        }

        return @stacks;

} # endsub get_stack_list

##</code><code>##

sub get_stack_list( $self, $group = '.*' )
{
        #my $self       = shift;
        #my $group      = shift || '.*';        # group = PROD | TEST

        # read stacks.xml and build $DESCRIPTIONS hash
        parse_stacks();

        my @stacks;
        foreach my $i (sort (keys %DESCRIPTIONS)) {
                push @stacks, $i if ( $DESCRIPTIONS{$i}{group} eq $group  );
                push @stacks, $i if ( $group eq ".*" );
        }

        return @stacks;

} # endsub get_stack_list

##</code><code>##

sub get_stack_list {
        my $self        = shift;
        my $group       = shift || '.*';        # group = PROD | TEST

        # read stacks.xml and build $DESCRIPTIONS hash
        parse_stacks();

        my @stacks;
        foreach my $i (sort (keys %DESCRIPTIONS)) {
                push @stacks, $i if ( $DESCRIPTIONS{$i}{group} eq $group  );
                push @stacks, $i if ( $group eq ".*" );
        }

        return @stacks;

} # endsub get_stack_list