#csh
/mit/forms/library/libmakeblank $$
setenv XFILESEARCHPATH /mit/forms/library/%N
/mit/forms/library/aformdisp /mit/forms/library/widget.def /tmp/lib_raw.$$
if ($status == 0) then
	setenv RECIPIENT	`cat /tmp/lib_raw.$$ | sed 4,4\\!d`
	/mit/forms/library/dumpascii /mit/forms/library/widget.def /tmp/lib_raw.$$ > /tmp/lib_cooked.$$
	/usr/ucb/mail -s "Incoming form" `whoami`  < /tmp/lib_cooked.$$
	echo "In production use, this form would have been mailed to $RECIPIENT,"
	echo "but it's been sent to you instead."
	rm /tmp/lib_cooked.$$
else
	echo "Form has been cancelled"
endif
rm /tmp/lib_raw.$$