#!/bin/ksh93
# IBM_PROLOG_BEGIN_TAG 
# This is an automatically generated prolog. 
#  
# 61haes_r714 src/43haes/lib/ksh93/hacmp/KLIB_HACMP_is_known_node.sh 1.6 
#  
# Licensed Materials - Property of IBM 
#  
# Restricted Materials of IBM 
#  
# COPYRIGHT International Business Machines Corp. 2005,2013 
# 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 
# @(#)99	1.6 src/43haes/lib/ksh93/hacmp/KLIB_HACMP_is_known_node.sh, hacmp.assist, 61haes_r714 7/18/13 11:42:20

#================================================
# The following, commented line enforces coding
# standards when this file is edited via vim.
#================================================
# vim:tabstop=4:shiftwidth=4:expandtab:smarttab
#================================================

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

=head1 VERSION

 Version Number:  1.6
 Last Extracted:  1/31/14 04:40:14
 Last Changed:    7/18/13 11:42:20

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

=head1 SYNOPSIS

KLIB_HACMP_is_known_node

=head1 DESCRIPTION

Determines if the specified node is
configured within the cluster.

=head1 ARGUMENTS

 1. node [REQUIRED] [string]
    The label of the node that is to be searched for within the cluster.

=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_is_known_node {
    LINENO=2 . $HALIBROOT/log_entry "$0()" "$CL"
    : version=1.6, src/43haes/lib/ksh93/hacmp/KLIB_HACMP_is_known_node.sh, hacmp.assist, 61haes_r714
    : INPUTS: $*

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

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

    #===================================
    : Declare and initialize variables
    #===================================
    typeset -i rc=$RC_UNKNOWN
    typeset line= id=

    #=================
    : Validate input
    #=================
    if [[ -z $node ]]; 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
        : See if a node ID was provided, instead of a label
        typeset cmd="odmget"
        if [[ $node == +([[:digit:]]) ]]; then
            if (( ${#node} > 10 )); then  # Received a "GID"
                id=${node:10} # Remove the cluster ID, leaving only the node ID
            fi

            print "$0()[$LINENO]($SECONDS): /usr/bin/odmget -q node_id=$id HACMPnode" >>$CLMGR_TMPLOG  # Always log commands
            /usr/bin/odmget -q node_id=$id HACMPnode |\
            while read line; do
                rc=$RC_SUCCESS
                if [[ $line == *([[:space:]])name\ =\ * ]]; then
                    line=${line##* = \"}
                    node=${line%\"}
                    break
                fi
            done
        else
            cmd="clnodename"
            print "$0()[$LINENO]($SECONDS): $HAUTILS/clnodename" >>$CLMGR_TMPLOG  # Always log commands
            typeset NODES=$($HAUTILS/clnodename)
            node=$(CL=$LINENO escape $node)
            if [[ " $NODES " == *+([[:space:]])$node+([[:space:]])* ]]; then
                rc=$RC_SUCCESS
            fi
        fi

        (( $rc != RC_SUCCESS )) && rc=$RC_ERROR
        print "$cmd RC: $rc" >>$CLMGR_TMPLOG  # Always log command result

        print -- "$node"
    fi

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