#!/bin/ksh93
# IBM_PROLOG_BEGIN_TAG 
# This is an automatically generated prolog. 
#  
# 61haes_r714 src/43haes/lib/ksh93/hacmp/KLIB_HACMP_get_net_with_most_interfaces.sh 1.8 
#  
# 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 
# @(#)05        1.8 src/43haes/lib/ksh93/hacmp/KLIB_HACMP_get_net_with_most_interfaces.sh, hacmp.assist, 61haes_r714 5/10/13 11:23:52

#================================================
# 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_get_net_with_most_interfaces

=head1 VERSION

 Version Number:  1.8
 Last Extracted:  1/31/14 04:40:15
 Last Changed:    5/10/13 11:23:52

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

=head1 SYNOPSIS

KLIB_HACMP_get_net_with_most_interfaces

=head1 DESCRIPTION

Get the network name that has the most number of interfaces defined
this is used in the two node configuration assistant to determine 
which network to place a service IP alias on.

=head1 ARGUMENTS

None

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

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

    #===================================
    : Declare and initialize variables
    #===================================
    typeset -i IFCNT=0 LOCAL_IF_ON_NET ALL_IF_ON_NET rc=$RC_SUCCESS
    typeset NETWORKS= OUTVAL= nw=

    print -- "$0()[$LINENO]($SECONDS): $HAUTILS/clodmget -f name HACMPnetwork" >>$CLMGR_TMPLOG  # Always log commands
    $HAUTILS/clodmget -f name HACMPnetwork | \
    while read nw; do
        nw=${nw//\"/}
        [[ -n $NETWORKS ]] && NETWORKS="$NETWORKS "
        NETWORKS="$NETWORKS$nw"
    done
    print "clodmget RC: $?; NETWORKS == \"$NETWORKS\"" >>$CLMGR_TMPLOG  # Always log command result

    if [[ -z $NETWORKS ]]; then
        rc=$RC_MISSING_DEPENDENCY

    elif [[ -z $LOCAL_NODE ]]; then
        rc=$RC_MISSING_DEPENDENCY

    else
        #===========================================
        : Loop through each network in the cluster
        #===========================================
        for nw in $NETWORKS
        do
            : Count all the interfaces in the cluster and all on the node
            ALL_IF_ON_NET=$(/usr/bin/odmget -q "network = $nw" HACMPadapter | /usr/bin/grep "HACMPadapter:" | /usr/bin/wc -l)
            LOCAL_IF_ON_NET=$(/usr/bin/odmget -q "network = $nw and nodename = $LOCAL_NODE" HACMPadapter | /usr/bin/grep "HACMPadapter:" | /usr/bin/wc -l)

            : remember the network that has the most interfaces on this node
            : that is also present on the other node
            if  (( $IFCNT < $LOCAL_IF_ON_NET )) &&
                (( $ALL_IF_ON_NET >= $LOCAL_IF_ON_NET ))
            then
                IFCNT=$LOCAL_IF_ON_NET
                OUTVAL=$nw
            fi
        done

        : Are there any networks that meet the needs of SystemMirror?
        if [[ -z $OUTVAL ]]
        then
            rc=$RC_MISSING_DEPENDENCY
        else
            : This is the best network to use
            print -- "$OUTVAL"
        fi
    fi

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