?RCS: $Id: cf_email.U 167 2013-05-08 17:58:00Z rmanfredi $
?RCS:
?RCS: Copyright (c) 1991-1997, 2004-2006, Raphael Manfredi
?RCS: 
?RCS: You may redistribute only under the terms of the Artistic License,
?RCS: as specified in the README file that comes with the distribution.
?RCS: You may reuse parts of this distribution only within the terms of
?RCS: that same Artistic License; a copy of which may be found at the root
?RCS: of the source tree for dist 4.0.
?RCS: 
?RCS: $Log: cf_email.U,v $
?RCS: Revision 3.0.1.1  1994/01/24  14:05:06  ram
?RCS: patch16: created
?RCS:
?RCS:
?MAKE:cf_email: cat cf_by test myhostname mydomain Oldconfig Myread
?MAKE:	-pick add $@ %<
?S:cf_email:
?S:	Electronic mail address of the person who ran Configure. This can be
?S:	used by units that require the user's e-mail, like MailList.U.
?S:.
?T:cont maildomain
?LINT:extern MAILDOMAIN
: determine the e-mail address of the user who is running us
$cat <<EOM

I need to get your e-mail address in Internet format if possible, i.e.
something like user@host.domain. Please answer accurately since I have
no easy means to double check it. The default value provided below
is most probably close to reality but may not be valid from outside
your organization...

EOM
cont=x
while test "$cont"; do
	case "$MAILDOMAIN" in
	'')
		if $test -s /etc/mailname; then
			maildomain=`$cat /etc/mailname`
		else
			maildomain="$myhostname$mydomain"
		fi
		;;
	*)  maildomain="$MAILDOMAIN";;
	esac
	case "$cf_email" in
	'') dflt="$cf_by@$maildomain";;
	*)  dflt="$cf_email";;
	esac
	rp='What is your e-mail address?'
	. ./myread
	cf_email="$ans"
	case "$cf_email" in
	*@*.*) cont='' ;;
	*)
		rp='Address does not look like an Internet one.  Use it anyway?'
		case "$fastread" in
		yes) dflt=y ;;
		*) dflt=n ;;
		esac
		. ./myread
		case "$ans" in
		y*) cont='' ;;
		*) echo " " ;;
		esac
		;;
	esac
done