This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Populate metaconfig branch.
[metaconfig.git] / dist-3.0at70b / mcon / U / locdist.U
1 ?RCS: $Id: locdist.U,v 3.0.1.1 1994/05/06 15:09:20 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: locdist.U,v $
12 ?RCS: Revision 3.0.1.1  1994/05/06  15:09:20  ram
13 ?RCS: patch23: added support for multi-state regions (WED)
14 ?RCS:
15 ?RCS: Revision 3.0  1993/08/18  12:09:06  ram
16 ?RCS: Baseline for dist 3.0 netwide release.
17 ?RCS:
18 ?MAKE:locdist orgdist citydist statedist multistatedist cntrydist contdist: \
19         test newslibexp cat Myread Oldconfig
20 ?MAKE:  -pick add $@ %<
21 ?S:locdist:
22 ?S:     This variable contains the eventual value of the LOCDIST symbol,
23 ?S:     which is the local organization's distribution name for news.
24 ?S:.
25 ?S:orgdist:
26 ?S:     This variable contains the eventual value of the ORGDIST symbol,
27 ?S:     which is the organization's distribution name for news.
28 ?S:.
29 ?S:citydist:
30 ?S:     This variable contains the eventual value of the CITYDIST symbol,
31 ?S:     which is the city's distribution name for news.
32 ?S:.
33 ?S:statedist:
34 ?S:     This variable contains the eventual value of the STATEDIST symbol,
35 ?S:     which is the state's or province's distribution name for news.
36 ?S:.
37 ?S:multistatedist:
38 ?S:     This variable contains the eventual value of the MULTISTATEDIST symbol,
39 ?S:     which is the news distribution code for multi-state region.
40 ?S:.
41 ?S:cntrydist:
42 ?S:     This variable contains the eventual value of the CNTRYDIST symbol,
43 ?S:     which is the country's distribution name for news.
44 ?S:.
45 ?S:contdist:
46 ?S:     This variable contains the eventual value of the CONTDIST symbol,
47 ?S:     which is the continent's distribution name for news.
48 ?S:.
49 ?C:LOCDIST:
50 ?C:     This symbol contains the distribution name for the news system that
51 ?C:     restricts article distribution to the local organization.
52 ?C:.
53 ?C:ORGDIST:
54 ?C:     This symbol contains the distribution name for the news system that
55 ?C:     restricts article distribution to the organization.
56 ?C:.
57 ?C:CITYDIST:
58 ?C:     This symbol contains the distribution name for the news system that
59 ?C:     restricts article distribution to the city.
60 ?C:.
61 ?C:STATEDIST:
62 ?C:     This symbol contains the distribution name for the news system that
63 ?C:     restricts article distribution to the state or province.
64 ?C:.
65 ?C:MULTISTATEDIST:
66 ?C:     This symbol contains the distribution name for the news system that
67 ?C:     restricts article distribution to a multi-state region.
68 ?C:.
69 ?C:CNTRYDIST:
70 ?C:     This symbol contains the distribution name for the news system that
71 ?C:     restricts article distribution to the country.
72 ?C:.
73 ?C:CONTDIST:
74 ?C:     This symbol contains the distribution name for the news system that
75 ?C:     restricts article distribution to the continent.
76 ?C:.
77 ?H:#define LOCDIST "$locdist"           /**/
78 ?H:#define ORGDIST "$orgdist"           /**/
79 ?H:#define CITYDIST "$citydist"         /**/
80 ?H:#define MULTISTATEDIST "$multistatedist"     /**/
81 ?H:#define STATEDIST "$statedist"               /**/
82 ?H:#define CNTRYDIST "$cntrydist"               /**/
83 ?H:#define CONTDIST "$contdist"         /**/
84 ?H:.
85 : get the local distributions
86 $cat <<'EOH'
87  
88 Distribution groups are the things you use on the Distribution line to limit
89 where an article will go to.  You are likely to be a member of several
90 distribution groups, such as organization, city, state, province, country,
91 continent, etc.  For example, Los Angeles has the distribution code "la",
92 New Jersey has the code "nj", and Europe has the code "eunet".
93
94 The categories you will be asked are: 
95
96 local organization      (Could be just one machine or a cluster or an office)
97 organization            att, dec, kgb, ...
98 city                    la, ny, mosc, ...
99 state/province          ca, nj, bc, ...
100 multi-state region      pnw, ne, ...
101 country                 usa, can, rok, whatever
102 continent               na (North America), asia, etc.
103
104 EOH
105 if $test -f $newslibexp/distributions; then
106         case "$silent" in
107         true) ;;
108         *)      dflt='Hit return to continue'
109                 rp=''
110                 . ./myread
111                 ;;
112         esac
113         echo "Here is your distributions file:" >&4
114         echo " " >&4
115         $cat >&4 $newslibexp/distributions
116         echo " " >&4
117 fi
118 echo "Use 'none' for any distributions you don't have."
119 echo " "
120 case "$locdist" in
121 '') dflt="none";;
122 *)  dflt="$locdist";;
123 esac
124 rp="What is the distribution code for your local organization?"
125 . ./myread
126 locdist="$ans"
127 case "$orgdist" in
128 '') dflt="none";;
129 *)  dflt="$orgdist";;
130 esac
131 rp="What is the distribution code for your organization?"
132 . ./myread
133 orgdist="$ans"
134 case "$citydist" in
135 '') dflt="none";;
136 *)  dflt="$citydist";;
137 esac
138 rp="What is the distribution code for your city?"
139 . ./myread
140 citydist="$ans"
141 case "$statedist" in
142 '') dflt="none";;
143 *)  dflt="$statedist";;
144 esac
145 rp="What is the distribution code for your state/province?"
146 . ./myread
147 statedist="$ans"
148 case "$multistatedist" in
149 '') dflt="none";;
150 *) dflt="$multistatedist";;
151 esac
152 rp="What is the distribution code for your multi-state region?"
153 . ./myread
154 multistatedist="$ans"
155 case "$cntrydist" in
156 '') dflt="none";;
157 *)  dflt="$cntrydist";;
158 esac
159 rp="What is the distribution code for your country?"
160 . ./myread
161 cntrydist="$ans"
162 case "$contdist" in
163 '') dflt="none";;
164 *)  dflt="$contdist";;
165 esac
166 rp="What is the distribution code for your continent?"
167 . ./myread
168 contdist="$ans"
169 $cat <<'EOM'
170   
171 If you have any other distribution groups you will need to edit Pnews
172 and newsetup to add them.
173 EOM
174