#!/bin/ksh93
# IBM_PROLOG_BEGIN_TAG 
# This is an automatically generated prolog. 
#  
# 61haes_r714 src/43haes/lib/ksh93/hacmp/KLIB_HACMP_get_appserver.sh 1.6 
#  
# Licensed Materials - Property of IBM 
#  
# Restricted Materials of IBM 
#  
# COPYRIGHT International Business Machines Corp. 2005,2012 
# All Rights Reserved 
#  
# US Government Users Restricted Rights - Use, duplication or 
# disclosure restricted by GSA ADP Schedule Contract with IBM Corp. 
#  
# IBM_PROLOG_END_TAG 
# @(#)07	1.6 src/43haes/lib/ksh93/hacmp/KLIB_HACMP_get_appserver.sh, hacmp.assist, 61haes_r714 6/10/12 15:22:13

# Start of POD-formatted documentation. Viewing suggestions:
#      perldoc <FILENAME>
#      pod2text -c <FILENAME>
#      pod2text -c --code <FILENAME>
#      pod2html <FILENAME>
function devDoc {
    : <<'=cut' >/dev/null 2>&1

=head1 NAME

 KLIB_HACMP_get_appserver

=head1 VERSION

 Version Number:  1.6
 Last Extracted:  1/31/14 04:40:16
 Last Changed:    6/10/12 15:22:13

 Path, Component, Release(, Level):
 src/43haes/lib/ksh93/hacmp/KLIB_HACMP_get_appserver.sh, hacmp.assist, 61haes_r714

=head1 SYNOPSIS

 clmgr query application <application>[,<app#2>,<app#n>,...]
 clmgr -v query application

 NOTE: the aliases for "application" are "as" and "app".

=head1 DESCRIPTION

Gets the application server name for the specified resource
group. This function will only return the first app server
found.

=head1 ARGUMENTS

 1. rg [REQUIRED] [string]
    The label of one or more resource groups (comma or
    space separated) that are to be queried.

 2. properties [REQUIRED] [hash ref]
    An associative array within which data about the
    queried objects can be returned to the caller.

=head1 RETURN

 0: no errors were detected; the operation appears to have been successful
 1: a general error has occurred
 2: a specified resource does not exist, or could not be found
 3: some required input was missing
 4: some detected input was incorrect in some way
 5: a required dependency does not exist
 6: a specified search failed to match any data

=head1 COPYRIGHT

COPYRIGHT International Business Machines Corp. 2005,2010
All Rights Reserved

=cut
} # End of POD-formatted documentation.


function KLIB_HACMP_get_appserver {
    LINENO=2 . $HALIBROOT/log_entry "$0()" "$CL"
    : version=1.6, src/43haes/lib/ksh93/hacmp/KLIB_HACMP_get_appserver.sh, hacmp.assist, 61haes_r714
    : INPUTS: $*

    typeset rg=${1//\"/}

    [[ $CLMGR_LOGGING == 'med' ]] && set +x  # Only trace param values

    #===================================
    : Declare and initialize variables
    #===================================
    typeset -i rc=$RC_UNKNOWN
    typeset rgs=""

    #=================
    : Validate input
    #=================
    if [[ -z $rg ]]; then
        rc=$RC_MISSING_INPUT

    else
        print "$0()[$LINENO]($SECONDS): /usr/bin/odmget -q \"name=APPLICATIONS and group=$rg\" HACMPresource" >>$CLMGR_TMPLOG  # Always log commands
        /usr/bin/odmget -q "name=APPLICATIONS and group=$rg" HACMPresource | \
        while IFS='=' read name value; do
            name=${name//[[:space:]]/}
            if [[ "$name" == "value" ]]; then
                apps="$value $apps"
                rc=$RC_SUCCESS
            fi
        done || rc=$RC_ERROR
        print "odmget RC: $rc" >>$CLMGR_TMPLOG  # Always log command result
        echo $(eval echo $apps)
    fi

    log_return_msg "$rc" "$0()" "$LINENO"
    return $?
} # End of "KLIB_HACMP_get_appserver()"