This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add the files from dist/meta to perl's repo
[metaconfig.git] / dist / U / d_hidnet.U
1 ?RCS: $Id: d_hidnet.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_hidnet.U,v $
12 ?RCS: Revision 3.0  1993/08/18  12:06:20  ram
13 ?RCS: Baseline for dist 3.0 netwide release.
14 ?RCS:
15 ?MAKE:d_hidnet hiddennet: cat sed myhostname mydomain Myread Oldconfig
16 ?MAKE:  -pick add $@ %<
17 ?S:d_hidnet:
18 ?S:     This variable conditionally defines the symbol HIDDEN_NET, which
19 ?S:     tells the C program that it should pretend it is on a different
20 ?S:     host for purposes of advertising a mailing address.
21 ?S:.
22 ?S:hiddennet:
23 ?S:     This variable contains the value eventually given to the symbol
24 ?S:     HIDDEN_NET, if d_hidnet defines it.  If defined, it's the name
25 ?S:     of the host which serves as the mail server for a network that
26 ?S:     is invisible to the outside world.
27 ?S:.
28 ?C:HIDDEN_NET (HIDDENNET):
29 ?C:     This symbol, if defined, contains the host name that you want to
30 ?C:     advertise to the outside world.  This name can be different from
31 ?C:     your actual host name, as long as the machine you specify knows
32 ?C:     how to forward mail to you.
33 ?C:.
34 ?H:#$d_hidnet HIDDEN_NET "$hiddennet"   /**/
35 ?H:.
36 : now get the host name to advertise as our mailing address
37 case "$hiddennet" in
38 '') dflt=n;;
39 *) dflt=y;;
40 esac
41 $cat <<EOM
42  
43 Some sites are on "hidden" networks, in the sense that the network appears
44 to the outside world as a single machine.  The advertised name of any host
45 on this hidden network is the name of one machine on the local network which
46 knows how to forward mail to any other host on the hidden network.
47
48 Do you wish to advertise a different hostname to the world than the one your
49 own host ($myhostname$mydomain) has?
50
51 EOM
52 rp='Use "hidden" network?'
53 . ./myread
54 case "$ans" in
55 n*) d_hidnet="$undef" hiddennet='';;
56 *)
57         d_hidnet="$define"
58         echo " "
59         case "$hiddennet" in
60         '') dflt=`echo $mydomain | $sed -e 's/^\.//'`;;
61         *) dflt="$hiddennet";;
62         esac
63         rp='What hostname do you wish to advertise?'
64         . ./myread
65         hiddennet="$ans"
66         ;;
67 esac
68