#!/bin/ksh93
#  ALTRAN_PROLOG_BEGIN_TAG                                                    
#  This is an automatically generated prolog.                                  
#                                                                              
#  Copyright (C) Altran ACT S.A.S. 2017,2021.  All rights reserved.  
#                                                                              
#  ALTRAN_PROLOG_END_TAG                                                      
#                                                                              
# IBM_PROLOG_BEGIN_TAG 
# This is an automatically generated prolog. 
#  
# 61haes_r721 src/43haes/lib/ksh93/hacmp/KLIB_HACMP_is_known_hmc.sh 1.1.1.6 
#  
# Licensed Materials - Property of IBM 
#  
# Restricted Materials of IBM 
#  
# COPYRIGHT International Business Machines Corp. 2012,2016 
# 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 
# @(#)  7d4c34b 43haes/lib/ksh93/hacmp/KLIB_HACMP_is_known_hmc.sh, 726, 2147A_aha726, Feb 05 2021 09:50 PM
# 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_hmc

=head1 VERSION

 Version Number:  1.1.1.6
 Last Extracted:  8/9/16 14:12:29
 Last Changed:    7/29/16 10:31:33

 Path, Component, Release(, Level):
 src/43haes/lib/ksh93/hacmp/KLIB_HACMP_is_known_hmc.sh, hacmp.assist, 61haes_r721, 1631A_hacmp721

=head1 SYNOPSIS

KLIB_HACMP_is_known_hmc

=head1 DESCRIPTION

 Determines if the specified HMC is configured within the cluster.

=head1 ARGUMENTS

 1. HMC [REQUIRED] [string]
 The name of the HMC to search for on this node. Either hostname
  or IP address for the HMC. IPv4 and IPv6 format address are supported.

=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_hmc {
    LINENO=2 . $HALIBROOT/log_entry "$0()" "$CL"
    : version=@(#)  7d4c34b 43haes/lib/ksh93/hacmp/KLIB_HACMP_is_known_hmc.sh, 726, 2147A_aha726, Feb 05 2021 09:50 PM
    : INPUTS: $*

    typeset -n hmclabel=${1//\"/}

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

    #===================================
    : Declare and initialize variables
    #===================================
    typeset -i rc=$RC_UNKNOWN
    typeset -i found=0
    typeset -A list

    #=================
    : Validate input
    #=================
    if [[ -z $hmclabel ]]; then
        /usr/bin/dspmsg -s $CLVT_SET $CLVT_MSGS 100 "\nERROR: a name/label must be provided.\n\n" 1>&2
        rc=$RC_MISSING_INPUT
    else
        typeset HMC="" rest=""
        typeset HMC_PROPERTIES=

        print -- "$0()[$LINENO]($SECONDS): cllshmc -c -u $hmclabel" >>$CLMGR_TMPLOG # Always log commands
        HMC_PROPERTIES=$(cllshmc -c -u $hmclabel)
        rc=$?
        print -- "$0()[$LINENO]($SECONDS): cllshmc -c -u $hmclabel rc=$rc" >>$CLMGR_TMPLOG # Always log commands result

        if (( $rc == RC_SUCCESS )); then
            print -- "$HMC_PROPERTIES" | while IFS=: read name timeout retry_count retry_delay rem; do
                [[ $name == \#* ]] && continue  # Skip the column headers
                rc=$RC_SUCCESS
            done
        else
            #================================
            : Convert Host name/Ip to Name 
            #
            print -- "$0()[$LINENO]($SECONDS): host $hmclabel" >>$CLMGR_TMPLOG # Always log commands
            HMC=$(LC_ALL=C host $hmclabel 2>>$CLMGR_TMPLOG)
            rc=$?
            print -- "$0()[$LINENO]($SECONDS): host $hmclabel output=$HMC rc=$rc">>$CLMGR_TMPLOG # Always log commands result
            if (( $rc == RC_SUCCESS )); then
                print -- $HMC | IFS=' ' read hmclabel rest

                print -- "$0()[$LINENO]($SECONDS): cllshmc -c -u $hmclabel" >>$CLMGR_TMPLOG # Always log commands
                HMC_PROPERTIES=$(cllshmc -c -u $hmclabel)
                rc=$?
                print -- "$0()[$LINENO]($SECONDS): cllshmc -c -u $hmclabel rc=$rc" >>$CLMGR_TMPLOG # Always log commands result
                if (( $rc == RC_SUCCESS )); then
                    print -- "$HMC_PROPERTIES" | while IFS=: read name timeout retry_count retry_delay rem; do
                        [[ $name == \#* ]] && continue  # Skip the column headers
                        rc=$RC_SUCCESS
                    done
                fi
            fi
        fi
        (( $rc != RC_SUCCESS )) && rc=$RC_NOT_FOUND
    fi
    log_return_msg "$rc" "$0()" "$LINENO"
    return $?
} # End of "KLIB_HACMP_is_known_hmc()"