

function xlang() {

XLANG_ARG1=$1
XLANG_RES1=${!XLANG_ARG1}

if [ "${XLANG_RES1}" = "" ]; then
  echo "#${XLANG_ARG1}"
else
  echo ${XLANG_RES1}
fi

}



function newmap () {

I=$1

if [ "$I" = "all" ]; then
   MAP_="`xlang _WSZ`"
   return 1
fi

N=$[ I > 254 ]
IP=${SUBNET}$I
# MA=`cat /ips/nam/$IP 2> /dev/null`  
MA=`cat /ips/nam/$I 2> /dev/null`  

     maybeali $I
     if [ "$ALIIP" != ""  ]; then
       IP=$ALIIP
     fi


if [ "$QNAMES" = "1" ]; then

  if [ "$MA" = "" ]; then 
    if [ "$I" = "$ADR" ]; then
       MA="`xlang _ROUTER`"
    elif [ "$N" = "1"  -o -f "/ips/gro/c-$I" -o  -f "/ips/gro/s-$I"  ]; then
       MA="`xlang _CLASS`"
    else
       MA="`xlang _COMP`"
    fi
  fi

  MAP_="$I $MA"

else

    if [ "$N" = "1"  -o -f "/ips/gro/c-$I" -o  -f "/ips/gro/s-$I"  ]; then
       if [ "$MA" = "" ]; then 
         MA="`xlang _CLASS`"
       fi
        MAP_="$I $MA"
    else
        MAP_=$IP
    fi

fi

}


# 
function maybeali()
{

   ALIDEV=
   ALIIP=
   I_=$1
   
   F="/ips/ali/${I_}-dev"
   if [ -f $F ]; then
      ALIDEV=`cat $F 2> /dev/null`
   fi

   F="/ips/ali/${I_}-ip"
   if [ -f $F ]; then
      ALIIP=`cat $F 2> /dev/null`
   fi

}

# 1.10.5-6 #######################################################################

function egro() {

GRO=$*
T=
S=

for X in $GRO ; do

    J=`echo $X | cut -f1-1 -d "-"`
    if [ "$J" = "$X" ]; then

       T="$T$S$X"
       S=" "

    else
    
        CP=`echo $J | cut -f1-1 -d ":"`
        IP=`echo $J | cut -f2-2 -d ":"`

        if [ "$CP" = "$IP" ]; then  
	   # !
	   continue
        fi

        BR=`echo $X | cut -f2-2 -d "-"`

        NN="`echo $IP | cut -f4-4 -d "."`"
        N13="`echo $IP | cut -f1-3 -d "."`"

        while [ 0 ] ; do

          NET=${N13}.${NN}

          T="$T$S$CP:$NET"
          S=" "

          NN=$[ NN + 1 ]
          EN=$[ NN > BR ]
	  
	  if [ $EN = 1 ]; then
	     break
	  fi

        done

    fi


done

GRO=$T

}

function allips {

  ALLIPS=

  E=$1
  LIST=`ifconfig |  grep $E | cut -f1-1 -d " "`

  for T in $LIST;  do
  
      IP=`/sbin/ifconfig $T 2> /dev/null | grep 'inet addr' | cut -f2-2 -d ':'  | cut -f1-1 -d ' '` 
      if [ $? != 0 ]; then 
        continue 
      fi	
      if [ "$IP" = "" ]; then 
        continue 
      fi	
      #echo $IP

      if [ "$ALLIPS" != "" ]; then 
         S=" " 
      else
         S=
      fi	
      ALLIPS="$ALLIPS$S$IP"
  
  done    
  
}


