#! /bin/ksh
#
#	Author: Mike Fleming mike@tauzero.co.uk
#
#	Send an email to a named recipient, getting To:, Cc:, Subject: and
#	content interactively
#
#	Options
#
#	-f	Content is a filename (must be a text file)
#	-v	Do sendmail verbosely

FILE=N
VFLAG=
USAGE="domail [ -f ] [ -v ]"

while getopts :fv opt
do
	case $opt in
	f)	FILE=Y;;
	v)	VFLAG=-v;;
	?)	echo Unknown option $OPTARG
		echo $USAGE
		return 1;;
	*)	echo $USAGE
		return 1;;
	esac
done

shift $((OPTIND - 1))

read TO?To:
read CC?Cc:
read SUBJECT?Subject:
read CONTENT?Contents:

if [[ "$FILE" = "Y" ]]
then
	echo "Subject: $SUBJECT\nTo: $TO\nCc: $CC\n\n$(cat CONTENT)\n.\n" | \
		/usr/sbin/sendmail $VFLAG -t
else
	echo "Subject: $SUBJECT\nTo: $TO\nCc: $CC\n\n$CONTENT\n.\n" | \
		/usr/sbin/sendmail $VFLAG -t
fi