#! /bin/sh
#
# This program is called from AQgetentry to send a rejection message 
#
# usage: AQrefuse "destination" "username"

PATH=/adobe/server/bin:/usr/local/bin:/usr/ucb:/usr/bin:/bin:
export PATH
WHO="$2"; export WHO
/usr/lib/sendmail -ba "$1" << xxx
Subject: I'm Sorry....
From: Adobe PostScript File Server <ps-file-server>
In-reply-to: message from $WHO
To: $1

This message comes to you from the PostScript file server at Adobe Systems.
I'm sorry, but the server has been set up not to accept mail from this
address. For further information, you may send mail to "ps-file-manager"
at Adobe, and the mail will be delivered to the person in charge of the
file server, rather than being read by a program.

Thank you.
xxx
echo "`date`" refuse $1 $WHO >> /adobe/server/requestqueue/out.log