#!/bin/sh
#
#	info-ortho header-file body-file info-file
#	
#	send info to user
#


# Adapted on April 17, 1997: T.K.

header=$1
body=$2
info=$3

# get the sender address

sender=`cat $header |
        grep "^From: " |
        cut -d: -f2`

from=`echo $sender |
      tr -s ' 	' '\012' |
      grep "@"`

# get the message subject

subject=`cat $header |
	 grep "^Subject: " |
	 cut -d: -f2`

# send info 
# Esta parte não funcionou em Solaris, não sei porque! (tk)

#

#tk#telnet dcc.unicamp.br smtp >>/dev/null 2>&1 <<eom
#tk#mail from: ortho-request
#tk#rcpt to: $from
#tk#data
#tk#To: $sender
#tk#Subject: Re: $subject
#tk#
#tk#`cat $info` 
#tk#.
#tk#quit
#tk#eom

# Quebra-galho

/usr/lib/sendmail  -f ortho-nobody $from <<EOF
To: $sender
Subject: Re: $subject

`cat $info`

EOF

# Mail -s "Re: $subject" $sender <$diagnostico

# rm /tmp/*.$$