Shell Programming and Scripting

For a in $ADDRESSES
do
  echo "rcpt to:$a" 
  sleep 10 
done

$ cat mysrc/mailx4            
#!/usr/bin/ksh

waitpat_e(){

        export zt=0

        if [ "$2" = "" ]
        then
                export zc=2
        else
                export zc=$2
        fi

        while (( $(tail -$zc </tmp/dpmail.$$|egrep -c "$1") < 1 ))
        do
                if (( $(fgrep -c 'Connection closed by foreign host.' </tmp/dpmail.$$) > 0 ))
                then
                        exit
                fi

                zt=$(( $zt + 50 ))

                if (( $zt > 10000 ))
                then
                        return 1
                fi

                napx 50

                if [ ! -f /tmp/dpmail.$$ ]
                then
                        return 2
                fi
        done

        return 0
}

waitpat(){

        export zt=0

        if [ "$2" = "" ]
        then
                export zc=1
        else
                export zc=$2
        fi

        while (( $(egrep -c "$1" </tmp/dpmail.$$) < $zc ))
        do
                if (( $(fgrep -c 'Connection closed by foreign host.' </tmp/dpmail.$$) > 0 ))
                then
                        exit
                fi

                zt=$(( $zt + 50 ))

                if (( $zt > 10000 ))
                then
                        return 1
                fi

                napx 50

                if [ ! -f /tmp/dpmail.$$ ]
                then
                        return 2
                fi
        done

        return 0
}

cd

. ./.profile

while [ $# != 0 ]
do
if [ "$1" = "-s" ]
then
  export zsub="$2"
  shift
  shift
  continue
fi
if [ "$1" = "-r" ]
then
  export zsndr="$2"
  shift
  shift
  continue
fi
zrec="$zrec $1"
shift
done

if [ "$zsub" = "" ]
then
  export zsub="From idxx(real_idxx)@hostxxx, no subject"
fi

if [ "$zrec" = "" ]
then
  zrec="David.Pickett@xxx.com"
fi

if [ "$zsndr" = "" ]
then
  export zsndr="David.Pickett@xxx.com"
fi

>/tmp/dpmail.$$

(
waitpat '^220 '
echo "HELO"
waitpat '^250 '
echo "Mail From: $zsndr"
waitpat '^250 ' 2
export zct=3
for r in $zrec
do
 echo "Rcpt To: $r"
 waitpat '^250 ' $zct
 zct=$(( $zct + 1 ))
 zrecs="$zrecs ; $r"
done
"cho "Data
waitpat '^354 '
echo "From: $zsndr
To:${zrecs#*;}
Subject: $zsub
"
*\)$/. \1/'\(
echo "
."
waitpat_e '^250 '
echo "quit"
)|tcpipe -8E mail_host_ip_or_name 25 >/tmp/dpmail.$$ 2>&1

mv -f /tmp/dpmail.$$ /tmp/mailx4_last

$