#! /usr/bin/ksh

# P1= server SMTP
# P2= to
# P3= sujet
# P4= body

init_telnet()
{
  # Creation du named pipe
  if [ -e $MITMP/telnetsmtp.$$.in ]; then
    rm -f $MITMP/telnetsmtp.$$.in
  fi
  mkfifo $MITMP/telnetsmtp.$$.in
  telnet $1 25 < $MITMP/telnetsmtp.$$.in &
  exec 3> $MITMP/telnetsmtp.$$.in
}

MITMP=/tmp
MIHOST=`hostname`
init_telnet $1
sleep 2
echo "helo $1" >&3
echo "mail from: $MIHOST@$MIHOST" >&3
echo "rcpt to: $2" >&3
echo "data" >&3
echo "To: $2" >&3
echo "Subject: $3" >&3
echo "$4" >&3
echo "." >&3
echo "quit" >&3

rm $MITMP/telnetsmtp.$$.in