Commit | Line | Data |
---|---|---|
959f3c4c JH |
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 |