#! /bin/sh
#
#	reject-ortho header
#
#	sends a rejection message to sender
#


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

header=$1
#rejmsg=${STOLFIHOME}/PUB/notPUB/remote.rej
rejmsg=${STOLFIHOME}/ortho/remote/lib/remote.rej

# 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 rejmsg 

telnet dcc.unicamp.br smtp >>/dev/null 2>&1 <<eom
mail from: ortho-nobody
rcpt to: $from
data
To: $sender
Subject: Re: $subject

`cat $rejmsg` 
.
quit
eom

###########
# clean up

rm /tmp/*.$$