dist/U/cf_email.U

   1 ?RCS: $Id$
   2 ?RCS:
   3 ?RCS: Copyright (c) 1991-1997, 2004-2006, Raphael Manfredi
   4 ?RCS:
   5 ?RCS: You may redistribute only under the terms of the Artistic Licence,
   6 ?RCS: as specified in the README file that comes with the distribution.
   7 ?RCS: You may reuse parts of this distribution only within the terms of
   8 ?RCS: that same Artistic Licence; a copy of which may be found at the root
   9 ?RCS: of the source tree for dist 4.0.
  10 ?RCS:
  11 ?RCS: $Log: cf_email.U,v $
  12 ?RCS: Revision 3.0.1.1  1994/01/24  14:05:06  ram
  13 ?RCS: patch16: created
  14 ?RCS:
  15 ?RCS:
  16 ?MAKE:cf_email: cat cf_by test myhostname mydomain Oldconfig Myread
  17 ?MAKE:  -pick add $@ %<
  18 ?S:cf_email:
  19 ?S:     Electronic mail address of the person who ran Configure. This can be
  20 ?S:     used by units that require the user's e-mail, like MailList.U.
  21 ?S:.
  22 ?T:cont maildomain
  23 ?LINT:extern MAILDOMAIN
  24 : determine the e-mail address of the user who is running us
  25 $cat <<EOM
  26
  27 I need to get your e-mail address in Internet format if possible, i.e.
  28 something like user@host.domain. Please answer accurately since I have
  29 no easy means to double check it. The default value provided below
  30 is most probably close to reality but may not be valid from outside
  31 your organization...
  32
  33 EOM
  34 cont=x
  35 while test "$cont"; do
  36         case "$MAILDOMAIN" in
  37         '')
  38                 if $test -s /etc/mailname; then
  39                         maildomain=`$cat /etc/mailname`
  40                 else
  41                         maildomain="$myhostname$mydomain"
  42                 fi
  43                 ;;
  44         *)  maildomain="$MAILDOMAIN";;
  45         esac
  46         case "$cf_email" in
  47         '') dflt="$cf_by@$maildomain";;
  48         *)  dflt="$cf_email";;
  49         esac
  50         rp='What is your e-mail address?'
  51         . ./myread
  52         cf_email="$ans"
  53         case "$cf_email" in
  54         *@*.*) cont='' ;;
  55         *)
  56                 rp='Address does not look like an Internet one.  Use it anyway?'
  57                 case "$fastread" in
  58                 yes) dflt=y ;;
  59                 *) dflt=n ;;
  60                 esac
  61                 . ./myread
  62                 case "$ans" in
  63                 y*) cont='' ;;
  64                 *) echo " " ;;
  65                 esac
  66                 ;;
  67         esac
  68 done
  69