dist-3.0at70b/mcon/U/cf_email.U

   1 ?RCS: $Id: cf_email.U,v 3.0.1.1 1994/01/24 14:05:06 ram Exp $
   2 ?RCS:
   3 ?RCS: Copyright (c) 1991-1993, 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 3.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 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
  23 $cat <<EOM
  24
  25 I need to get your e-mail address in Internet format if possible, i.e.
  26 something like user@host.domain. Please answer accurately since I have
  27 no easy means to double check it. The default value provided below
  28 is most probably close to the reality but may not be valid from outside
  29 your organization...
  30
  31 EOM
  32 cont=x
  33 while test "$cont"; do
  34         case "$cf_email" in
  35         '') dflt="$cf_by@$myhostname$mydomain";;
  36         *) dflt="$cf_email";;
  37         esac
  38         rp='What is your e-mail address?'
  39         . ./myread
  40         cf_email="$ans"
  41         case "$cf_email" in
  42         *@*.*) cont='' ;;
  43         *)
  44                 rp='Address does not look like an Internet one.  Use it anyway?'
  45                 case "$fastread" in
  46                 yes) dflt=y ;;
  47                 *) dflt=n ;;
  48                 esac
  49                 . ./myread
  50                 case "$ans" in
  51                 y*) cont='' ;;
  52                 *) echo " " ;;
  53                 esac
  54                 ;;
  55         esac
  56 done
  57