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 / orgname.U
1 ?RCS: $Id: orgname.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: orgname.U,v $
12 ?RCS: Revision 3.0.1.1  1993/09/13  16:10:25  ram
13 ?RCS: patch10: added support for /local/src to the search (WAD)
14 ?RCS:
15 ?RCS: Revision 3.0  1993/08/18  12:09:27  ram
16 ?RCS: Baseline for dist 3.0 netwide release.
17 ?RCS:
18 ?MAKE:orgname: sed cat Myread Loc Oldconfig
19 ?MAKE:  -pick add $@ %<
20 ?S:orgname:
21 ?S:     This variable contains the eventual value of the ORGNAME symbol,
22 ?S:     which contains either the organizaton name or the full pathname
23 ?S:     of a file containing the organization name.
24 ?S:.
25 ?C:ORGNAME:
26 ?C:     This symbol contains either the organizaton name or the full pathname
27 ?C:     of a file containing the organization name, which the program must
28 ?C:     be prepared to open and substitute the contents of.
29 ?C:.
30 ?H:#define ORGNAME "$orgname"           /**/
31 ?H:.
32 ?T:longshots xxx
33 : get organization name
34 longshots='/local/src /usr/src/new /usr/src/local /usr/local/src'
35 case "$orgname" in
36 '') if xxx=`./loc news/src/defs.h x $longshots`; then
37                 dflt=`$sed -n 's/^.*MYORG[      ]*"\(.*\)".*$/\1/p' $xxx`
38         else
39                 dflt=''
40         fi
41         ;;
42 *)  dflt="$orgname";;
43 esac
44 $cat << 'EOH'
45  
46 Please type the name of your organization as you want it to appear on the
47 Organization line of outgoing articles.  (It's nice if this also specifies
48 your location.  Your city name is probably sufficient if well known.)
49 For example:
50
51     University of Southern North Dakota, Hoople
52
53 You may also put the name of a file, as long as it begins with a slash.
54 For example:
55
56     /etc/organization
57
58 EOH
59 orgname=""
60 while test "X$orgname" = "X"; do
61         rp='Organization:'
62         . ./myread
63         orgname="$ans"
64 done
65