This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[UTIL] Perl system does not default to $_
[metaconfig.git] / dist / U / d_internet.U
1 ?RCS: $Id: d_internet.U 1 2006-08-24 12:32:52Z rmanfredi $
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: d_internet.U,v $
12 ?RCS: Revision 3.0.1.1  1993/09/13  16:02:04  ram
13 ?RCS: patch10: most mailers support Internet addresses nowadays (WAD)
14 ?RCS:
15 ?RCS: Revision 3.0  1993/08/18  12:06:24  ram
16 ?RCS: Baseline for dist 3.0 netwide release.
17 ?RCS:
18 ?MAKE:d_internet: Myread Oldconfig Setvar
19 ?MAKE:  -pick add $@ %<
20 ?S:d_internet:
21 ?S:     This variable conditionally defines the INTERNET symbol, which
22 ?S:     indicates to the C program that there is a mailer available which
23 ?S:     supports internet-style addresses (user@site.domain).
24 ?S:.
25 ?C:INTERNET:
26 ?C:     This symbol, if defined, indicates that there is a mailer available
27 ?C:     which supports internet-style addresses (user@site.domain).
28 ?C:.
29 ?H:#$d_internet INTERNET        /**/
30 ?H:.
31 ?LINT:set d_internet
32 : check for internet mailer
33 dflt=y
34 case "$d_internet" in
35 "$undef") dflt=n;;
36 esac
37 cat <<EOM
38  
39 Most mailers can deliver mail to addresses of the INTERNET persuasion,
40 such as user@host.edu.  Some older mailers, however, require the complete
41 path to the destination to be specified in the address.
42
43 EOM
44 rp="Does your mailer understand INTERNET addresses?"
45 . ./myread
46 case "$ans" in
47 y*) val="$define";;
48 *)  val="$undef";;
49 esac
50 set d_internet
51 eval $setvar
52