blob: cd13f4179ceb4704495a889d5a441439e905053f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
?RCS: $Id$
?RCS:
?RCS: Copyright (c) 1991-1997, 2004-2006, Raphael Manfredi
?RCS:
?RCS: You may redistribute only under the terms of the Artistic Licence,
?RCS: as specified in the README file that comes with the distribution.
?RCS: You may reuse parts of this distribution only within the terms of
?RCS: that same Artistic Licence; a copy of which may be found at the root
?RCS: of the source tree for dist 4.0.
?RCS:
?RCS: $Log: d_newsadm.U,v $
?RCS: Revision 3.0.1.2 1997/02/28 15:36:53 ram
?RCS: patch61: added Guess dependency
?RCS:
?RCS: Revision 3.0.1.1 1994/10/29 16:14:33 ram
?RCS: patch36: call ./eunice explicitely instead of relying on PATH
?RCS:
?RCS: Revision 3.0 1993/08/18 12:06:42 ram
?RCS: Baseline for dist 3.0 netwide release.
?RCS:
?MAKE:d_newsadm newsadmin: cat contains Guess Setvar Myread Oldconfig
?MAKE: -pick add $@ %<
?S:d_newsadm:
?S: This variable conditionally defines the NEWS_ADMIN symbol, which
?S: indicates to the C program that there is a user who is in charge
?S: of news administration.
?S:.
?S:newsadmin:
?S: This variable holds the login name of the news administrator, if any.
?S:.
?C:NEWS_ADMIN (NEWSADMIN):
?C: This symbol, if defined, contains the login name of the news
?C: administrator.
?C:.
?H:#$d_newsadm NEWS_ADMIN "$newsadmin" /**/
?H:.
?LINT:set d_newsadm
: get news administrator name
case "$newsadmin" in
'')
if $contains "^news:" /etc/passwd >/dev/null 2>&1 ; then
dflt=news
elif $contains "^usenet:" /etc/passwd >/dev/null 2>&1 ; then
dflt=usenet
elif ./eunice; then
dflt=system
else
dflt=root
fi
;;
*)
dflt="$newsadmin"
;;
esac
$cat <<'EOM'
Many systems keep their news in a private directory, or have a non-superuser
in charge of administering news. (If you don't have such a user, take the
default answer.) I need the login name (not directory) which is used for
news administration.
EOM
rp="News admin login?"
. ./myread
newsadmin="$ans"
case "$newsadmin" in
root) val="$undef" ;;
*) val="$define" ;;
esac
set d_newsadm
eval $setvar
|