#!/bin/ksh93
# IBM_PROLOG_BEGIN_TAG 
# This is an automatically generated prolog. 
#  
# 61haes_r720 src/43haes/lib/ksh93/hacmp/KLIB_HACMP_is_known_cod.sh 1.2.1.4 
#  
# Licensed Materials - Property of IBM 
#  
# Restricted Materials of IBM 
#  
# COPYRIGHT International Business Machines Corp. 2012,2015 
# 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 
# @(#)68	1.2.1.4  src/43haes/lib/ksh93/hacmp/KLIB_HACMP_is_known_cod.sh, hacmp.assist, 61haes_r720, 1507A_hacmp720 1/27/15 08:41:57

# 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_is_known_cod

=head1 VERSION

 Version Number:  1.2.1.4
 Last Extracted:  2/9/15 16:43:08
 Last Changed:    1/27/15 08:41:57

 Path, Component, Release(, Level):
 src/43haes/lib/ksh93/hacmp/KLIB_HACMP_is_known_cod.sh, hacmp.assist, 61haes_r720, 1507A_hacmp720

=head1 SYNOPSIS

KLIB_HACMP_is_known_cod

=head1 DESCRIPTION

Determines if the specified application controller is configured
for Resource Optimized High Availability services.

=head1 ARGUMENTS

 1. application_controller [REQUIRED] [string]
    The name of the application controller to test
    for Resource Optimized High Availability settings.

=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,2015
All Rights Reserved

=cut
} # End of POD-formatted documentation.


function KLIB_HACMP_is_known_cod {
    LINENO=2 . $HALIBROOT/log_entry "$0()" "$CL"
    : version=1.2.1.4, src/43haes/lib/ksh93/hacmp/KLIB_HACMP_is_known_cod.sh, hacmp.assist, 61haes_r720, 1507A_hacmp720
    : INPUTS: $*

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

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

    #===================================
    : Declare and initialize variables
    #===================================
    typeset -i rc=$RC_UNKNOWN
    typeset name= start_script= stop_script=
    typeset use_desired= optimal_mem= optimal_cpu= optimal_pu= optimal_vp=

    #=================
    : Validate input
    #=================
    if [[ -z $application_controller ]]; then
        /usr/bin/dspmsg -s $CLMGR_SET $CLMGR_MSGS 100 "\nERROR: a name/label must be provided.\n\n" 1>&2
        rc=$RC_MISSING_INPUT
    else
        typeset APPLICATION_CONTROLLER_PROPERTIES=
        typeset -i index=0
        print -- "$0()[$LINENO]($SECONDS):  cllsserv -cl -n $application_controller" >>$CLMGR_TMPLOG # Always log commands
        APPLICATION_CONTROLLER_PROPERTIES=$(cllsserv -cl -n $application_controller)
        rc=$?
        print -- "$0()[$LINENO]($SECONDS):  cllsserv -cl -n $application_controller rc=$rc" >>$CLMGR_TMPLOG # Always log commands result
        if (( $rc == RC_SUCCESSS )); then
            print -- "$APPLICATION_CONTROLLER_PROPERTIES" |\
                while IFS=: read name start_script stop_script use_desired optimal_mem optimal_cpu optimal_pu optimal_vp rem
              do
                  [[ $name == \#* ]] && continue  # Skip the column headers
                  optimal_mem=$(CL=$LINENO trim $optimal_mem)
                  optimal_pu=$(CL=$LINENO trim $optimal_pu)

                  # An application controller is a cod if at least one of the cod fields is set
                  if [[ $use_desired != 0        || \
                      $optimal_mem != +(0)\.+(0) || \
                      $optimal_cpu != 0          || \
                      $optimal_pu  != +(0)\.+(0) || \
                      $optimal_vp  != 0 ]]; then
                      list[$index]=$name
                      (( index++ ))
                  fi
              done
        fi
        (( index == 0 )) && rc=$RC_NOT_FOUND
    fi
    log_return_msg "$rc" "$0()" "$LINENO"
    return $?
} # End of "KLIB_HACMP_is_known_cod()"