https://perl5.git.perl.org / metaconfig.git / blame
| Commit | Line | Data |
|---|---|---|
| d8875586 MBT |
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 |