diff options
Diffstat (limited to 'mcon/U/cf_email.U')
| -rw-r--r-- | mcon/U/cf_email.U | 25 |
1 files changed, 18 insertions, 7 deletions
diff --git a/mcon/U/cf_email.U b/mcon/U/cf_email.U index d9d0af8..3eb9606 100644 --- a/mcon/U/cf_email.U +++ b/mcon/U/cf_email.U @@ -1,11 +1,11 @@ -?RCS: $Id: cf_email.U 1 2006-08-24 12:32:52Z rmanfredi $ +?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 Licence, +?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 Licence; a copy of which may be found at the root +?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 $ @@ -13,13 +13,14 @@ ?RCS: patch16: created ?RCS: ?RCS: -?MAKE:cf_email: cat cf_by myhostname mydomain Oldconfig Myread +?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 +?T:cont maildomain +?LINT:extern MAILDOMAIN : determine the e-mail address of the user who is running us $cat <<EOM @@ -32,9 +33,19 @@ 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@$myhostname$mydomain";; - *) dflt="$cf_email";; + '') dflt="$cf_by@$maildomain";; + *) dflt="$cf_email";; esac rp='What is your e-mail address?' . ./myread |