This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove trailing whitespace on meta-lines in unit files
[metaconfig.git] / dist / U / d_internet.U
CommitLineData
d8875586
MBT
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
cf39bd7e 4?RCS:
d8875586
MBT
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
33dflt=y
34case "$d_internet" in
35"$undef") dflt=n;;
36esac
37cat <<EOM
38
39Most mailers can deliver mail to addresses of the INTERNET persuasion,
40such as user@host.edu. Some older mailers, however, require the complete
41path to the destination to be specified in the address.
42
43EOM
44rp="Does your mailer understand INTERNET addresses?"
45. ./myread
46case "$ans" in
47y*) val="$define";;
48*) val="$undef";;
49esac
50set d_internet
51eval $setvar
52