transl(){
  a=`printf "%x" $1`
  for i in .. ... ....
  do
    if [ `expr $a : $i` -eq 0 ]
    then
      a=0$a
    fi
  done
  a=`echo $a | tr '[:upper:]' '[:lower:]'`
}

##############
if [ -z "$2" ]
then
  echo USE: $0 'node [-k|-t] files'
  echo -t - TFS flag
  echo -k - KFS flag
  exit
fi
# FLAWOR
flawor=f
# MODE (LEAVE)
mode='@'
#
n=$1
shift
if [ .$1 = .-t ]; then shift; mode='#'; fi
if [ .$1 = .-k ]; then shift; mode='^'; fi
list=$*
set `echo $n | awk '{
  if(!index($1,":")) printf "2 "
  if(!index($1,"/")) printf "464 "
  gsub("[:/.]"," ",$1)
  print $1
  exit
}'`
transl $1; z=$a
transl $2; n=$a
transl $3; f=$a
if [ -z "$4" ]
then
  p=0000
else
  transl $4; p=$a
fi
echo Zone: $z, Net: $n, Node: $f, Point: $p
flo=/var/spool/ifmail/outb
if [ $z != 0002 ]
then
  echo Only for zone 2
  exit
fi
if [ $p != 0000 ]
then
  flo=$flo/$n$f.pnt/0000$p.${flawor}lo
else
  flo=$flo/$n$f.${flawor}lo
fi
echo ${flawor}lo: $flo
a=`pwd`
for i in $list
do
  echo Attaching $i
  if echo $i | fgrep -q '/'
  then
    echo $mode$i >> $flo
  else
    echo $mode$a/$i >> $flo
  fi
done
chown fnet.fnet $flo $list
echo done.

