[metaconfig.git] / U / modified / myhostname.U

?RCS: $Id: myhostname.U,v 3.0.1.3 1997/02/28 16:15:55 ram Exp $
?RCS:
?RCS: Copyright (c) 1991-1993, 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 3.0.
?RCS:
?RCS: $Log: myhostname.U,v $
?RCS: Revision 3.0.1.3  1997/02/28  16:15:55  ram
?RCS: patch61: improved hostname lookup by using ypmatch when NIS is used
?RCS:
?RCS: Revision 3.0.1.2  1994/10/29  16:25:43  ram
?RCS: patch36: call ./xenix explicitely instead of relying on PATH
?RCS: patch36: now uses new Tr unit to convert to/from lowercase
?RCS:
?RCS: Revision 3.0.1.1  1994/06/20  07:06:20  ram
?RCS: patch30: now a little more clever for domain name guessing
?RCS:
?RCS: Revision 3.0  1993/08/18  12:09:18  ram
?RCS: Baseline for dist 3.0 netwide release.
?RCS:
?MAKE:myhostname phostname mydomain: contains sed test Myread Oldconfig \
	Guess Loc awk echo sort uniq +usrinc rm hostcat Tr
?MAKE:	-pick add $@ %<
?S:myhostname (hostname):
?S:	This variable contains the eventual value of the MYHOSTNAME symbol,
?S:	which is the name of the host the program is going to run on.
?S:	The domain is not kept with hostname, but must be gotten from mydomain.
?S:	The dot comes with mydomain, and need not be supplied by the program.
?S:.
?S:mydomain:
?S:	This variable contains the eventual value of the MYDOMAIN symbol,
?S:	which is the domain of the host the program is going to run on.
?S:	The domain must be appended to myhostname to form a complete host name.
?S:	The dot comes with mydomain, and need not be supplied by the program.
?S:.
?S:phostname:
?S:	This variable contains the eventual value of the PHOSTNAME symbol,
?S:	which is a command that can be fed to popen() to get the host name.
?S:	The program should probably not presume that the domain is or isn't
?S:	there already.
?S:.
?C:MYHOSTNAME (HOSTNAME):
?C:	This symbol contains name of the host the program is going to run on.
?C:	The domain is not kept with hostname, but must be gotten from MYDOMAIN.
?C:	The dot comes with MYDOMAIN, and need not be supplied by the program.
?C:	If gethostname() or uname() exist, MYHOSTNAME may be ignored. If MYDOMAIN
?C:	is not used, MYHOSTNAME will hold the name derived from PHOSTNAME.
?C:.
?C:MYDOMAIN:
?C:	This symbol contains the domain of the host the program is going to
?C:	run on.  The domain must be appended to HOSTNAME to form a complete
?C:	host name.  The dot comes with MYDOMAIN, and need not be supplied by
?C:	the program.  If the host name is derived from PHOSTNAME, the domain
?C:	may or may not already be there, and the program should check.
?C:.
?H:#define MYHOSTNAME "$myhostname"		/**/
?H:#define MYDOMAIN "$mydomain"		/**/
?H:.
?LINT:extern osname
?T:cont i tans tmp_re
: now get the host name
echo " "
echo "Figuring out host name..." >&4
case "$myhostname" in
'') cont=true
	echo 'Maybe "hostname" will work...'
	if tans=`sh -c hostname 2>&1` ; then
		myhostname=$tans
		phostname=hostname
		cont=''
	fi
	;;
*) cont='';;
esac
if $test "$cont"; then
	if ./xenix; then
		echo 'Oh, dear.  Maybe "/etc/systemid" is the key...'
		if tans=`cat /etc/systemid 2>&1` ; then
			myhostname=$tans
			phostname='cat /etc/systemid'
			echo "Whadyaknow.  Xenix always was a bit strange..."
			cont=''
		fi
	elif $test -r /etc/systemid; then
		echo "(What is a non-Xenix system doing with /etc/systemid?)"
	fi
fi
if $test "$cont"; then
	echo 'No, maybe "uuname -l" will work...'
	if tans=`sh -c 'uuname -l' 2>&1` ; then
		myhostname=$tans
		phostname='uuname -l'
	else
		echo 'Strange.  Maybe "uname -n" will work...'
		if tans=`sh -c 'uname -n' 2>&1` ; then
			myhostname=$tans
			phostname='uname -n'
		else
			echo 'Oh well, maybe I can mine it out of whoami.h...'
			if tans=`sh -c $contains' sysname $usrinc/whoami.h' 2>&1` ; then
				myhostname=`echo "$tans" | $sed 's/^.*"\(.*\)"/\1/'`
				phostname="sed -n -e '"'/sysname/s/^.*\"\\(.*\\)\"/\1/{'"' -e p -e q -e '}' <$usrinc/whoami.h"
			else
				case "$myhostname" in
				'') echo "Does this machine have an identity crisis or something?"
					phostname='';;
				*)
					echo "Well, you said $myhostname before..."
					phostname='echo $myhostname';;
				esac
			fi
		fi
	fi
fi
: you do not want to know about this
set $myhostname
myhostname=$1

: verify guess
if $test "$myhostname" ; then
	dflt=y
	rp='Your host name appears to be "'$myhostname'".'" Right?"
	. ./myread
	case "$ans" in
	y*) ;;
	*) myhostname='';;
	esac
fi

: bad guess or no guess
while $test "X$myhostname" = X ; do
	dflt=''
	rp="Please type the (one word) name of your host:"
	. ./myread
	myhostname="$ans"
done

: translate upper to lower if necessary
case "$myhostname" in
*[A-Z]*)
	echo "(Normalizing case in your host name)"
	myhostname=`echo $myhostname | ./tr '[A-Z]' '[a-z]'`
	;;
esac

?X: Do not ask for domain name if this is not used later on. In that
?X: case, the hostname may keep its domain name, but it doesn't matter.
@if MYDOMAIN || mydomain
case "$myhostname" in
*.*)
	dflt=`expr "X$myhostname" : "X[^.]*\(\..*\)"`
	myhostname=`expr "X$myhostname" : "X\([^.]*\)\."`
	echo "(Trimming domain name from host name--host name is now $myhostname)"
	;;
*) case "$mydomain" in
	'')
?X:
?X: There is currently no way to say we do not want hostcat if mydomain is not
?X: used. One way to achieve that would be to put that code in a mydomain.U
?X: unit. However, we want to stick the sanity checks right after the domain
?X: name computation, or if none is done, right after the hostname computation.
?X:
		{
?X: If we use NIS, try ypmatch.
			test "X$hostcat" = "Xypcat hosts" &&
			ypmatch "$myhostname" hosts 2>/dev/null |\
				$sed -e 's/[	 ]*#.*//; s/$/ /' > hosts && \
			$test -s hosts
		} || {
?X: Extract only the relevant hosts, reducing file size,
?X: remove comments, insert trailing space for later use.
?X: Test to be sure we *have* a hostcat command.  os390 doesn't.
			test "X$hostcat" != "X" &&
		     	$hostcat | $sed -n -e "s/[	 ]*#.*//; s/\$/ /
					/[	 ]$myhostname[	. ]/p" > hosts
		}
		tmp_re="[	. ]"
		if $test -f hosts; then
			$test x`$awk "/[0-9].*[	 ]$myhostname$tmp_re/ { sum++ }
			     END { print sum }" hosts` = x1 || tmp_re="[	 ]"
			dflt=.`$awk "/[0-9].*[	 ]$myhostname$tmp_re/ {for(i=2; i<=NF;i++) print \\\$i}" \
				hosts | $sort | $uniq | \
				$sed -n -e "s/$myhostname\.\([-a-zA-Z0-9_.]\)/\1/p"`
			case `$echo X$dflt` in
			X*\ *)	echo "(Several hosts in the database matched hostname)"
				dflt=.
				;;
			X.) echo "(You do not have fully-qualified names in the hosts database)"
				;;
			esac
		else
			echo "(I cannot locate a hosts database anywhere)"
			dflt=.
		fi
		case "$dflt" in
		.)
			tans=`./loc resolv.conf X /etc /usr/etc`
			if $test -f "$tans"; then
				echo "(Attempting domain name extraction from $tans)"
?X: Look for either a search or a domain directive.
				dflt=.`$sed -n -e 's/	/ /g' \
				  -e 's/^search  *\([^ ]*\).*/\1/p' $tans \
				  | ./tr '[A-Z]' '[a-z]' 2>/dev/null`
				case "$dflt" in
				.) dflt=.`$sed -n -e 's/	/ /g' \
				     -e 's/^domain  *\([^ ]*\).*/\1/p' $tans \
				     | ./tr '[A-Z]' '[a-z]' 2>/dev/null`
  					;;
				esac
			fi
			;;
		esac
		case "$dflt" in
		.) echo "(No help from resolv.conf either -- attempting clever guess)"
			dflt=.`sh -c domainname 2>/dev/null`
			case "$dflt" in
			'') dflt='.';;
			.nis.*|.yp.*|.main.*) dflt=`echo $dflt | $sed -e 's/^\.[^.]*//'`;;
			esac
			;;
		esac
		case "$dflt$osname" in
		.os390) echo "(Attempting domain name extraction from //'SYS1.TCPPARMS(TCPDATA)')"
			dflt=.`awk '/^DOMAINORIGIN/ {print $2}' "//'SYS1.TCPPARMS(TCPDATA)'" 2>/dev/null`
			;;
		esac
		case "$dflt" in
		.) echo "(Lost all hope -- silly guess then)"
			dflt='.uucp'
			;;
		esac
		$rm -f hosts
		;;
	*) dflt="$mydomain";;
	esac;;
esac
echo " "
rp="What is your domain name?"
. ./myread
tans="$ans"
case "$ans" in
'') ;;
.*) ;;
*) tans=".$tans";;
esac
mydomain="$tans"

: translate upper to lower if necessary
case "$mydomain" in
*[A-Z]*)
	echo "(Normalizing case in your domain name)"
	mydomain=`echo $mydomain | ./tr '[A-Z]' '[a-z]'`
	;;
esac

@end
: a little sanity check here
case "$phostname" in
'') ;;
*)
	case `$phostname | ./tr '[A-Z]' '[a-z]'` in
	$myhostname$mydomain|$myhostname) ;;
	*)
		case "$phostname" in
		sed*)
			echo "(That doesn't agree with your whoami.h file, by the way.)"
			;;
		*)
			echo "(That doesn't agree with your $phostname command, by the way.)"
			;;
		esac
	;;
	esac
	;;
esac
Commit	Line	Data
edd6115f JH	1	?RCS: $Id: myhostname.U,v 3.0.1.3 1997/02/28 16:15:55 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: myhostname.U,v $
	12	?RCS: Revision 3.0.1.3 1997/02/28 16:15:55 ram
	13	?RCS: patch61: improved hostname lookup by using ypmatch when NIS is used
	14	?RCS:
	15	?RCS: Revision 3.0.1.2 1994/10/29 16:25:43 ram
	16	?RCS: patch36: call ./xenix explicitely instead of relying on PATH
	17	?RCS: patch36: now uses new Tr unit to convert to/from lowercase
	18	?RCS:
	19	?RCS: Revision 3.0.1.1 1994/06/20 07:06:20 ram
	20	?RCS: patch30: now a little more clever for domain name guessing
	21	?RCS:
	22	?RCS: Revision 3.0 1993/08/18 12:09:18 ram
	23	?RCS: Baseline for dist 3.0 netwide release.
	24	?RCS:
	25	?MAKE:myhostname phostname mydomain: contains sed test Myread Oldconfig \
df0bcc5d	26	Guess Loc awk echo sort uniq +usrinc rm hostcat Tr
edd6115f JH	27	?MAKE: -pick add $@ %<
	28	?S:myhostname (hostname):
	29	?S: This variable contains the eventual value of the MYHOSTNAME symbol,
	30	?S: which is the name of the host the program is going to run on.
	31	?S: The domain is not kept with hostname, but must be gotten from mydomain.
	32	?S: The dot comes with mydomain, and need not be supplied by the program.
	33	?S:.
	34	?S:mydomain:
	35	?S: This variable contains the eventual value of the MYDOMAIN symbol,
	36	?S: which is the domain of the host the program is going to run on.
	37	?S: The domain must be appended to myhostname to form a complete host name.
	38	?S: The dot comes with mydomain, and need not be supplied by the program.
	39	?S:.
	40	?S:phostname:
	41	?S: This variable contains the eventual value of the PHOSTNAME symbol,
	42	?S: which is a command that can be fed to popen() to get the host name.
	43	?S: The program should probably not presume that the domain is or isn't
	44	?S: there already.
	45	?S:.
	46	?C:MYHOSTNAME (HOSTNAME):
	47	?C: This symbol contains name of the host the program is going to run on.
	48	?C: The domain is not kept with hostname, but must be gotten from MYDOMAIN.
	49	?C: The dot comes with MYDOMAIN, and need not be supplied by the program.
	50	?C: If gethostname() or uname() exist, MYHOSTNAME may be ignored. If MYDOMAIN
	51	?C: is not used, MYHOSTNAME will hold the name derived from PHOSTNAME.
	52	?C:.
	53	?C:MYDOMAIN:
	54	?C: This symbol contains the domain of the host the program is going to
	55	?C: run on. The domain must be appended to HOSTNAME to form a complete
	56	?C: host name. The dot comes with MYDOMAIN, and need not be supplied by
	57	?C: the program. If the host name is derived from PHOSTNAME, the domain
	58	?C: may or may not already be there, and the program should check.
	59	?C:.
	60	?H:#define MYHOSTNAME "$myhostname" /**/
	61	?H:#define MYDOMAIN "$mydomain" /**/
	62	?H:.
77506990	63	?LINT:extern osname
edd6115f JH	64	?T:cont i tans tmp_re
	65	: now get the host name
	66	echo " "
	67	echo "Figuring out host name..." >&4
	68	case "$myhostname" in
	69	'') cont=true
	70	echo 'Maybe "hostname" will work...'
df0bcc5d	71	if tans=`sh -c hostname 2>&1` ; then
edd6115f JH	72	myhostname=$tans
	73	phostname=hostname
	74	cont=''
	75	fi
	76	;;
	77	*) cont='';;
	78	esac
	79	if $test "$cont"; then
	80	if ./xenix; then
	81	echo 'Oh, dear. Maybe "/etc/systemid" is the key...'
	82	if tans=`cat /etc/systemid 2>&1` ; then
	83	myhostname=$tans
	84	phostname='cat /etc/systemid'
	85	echo "Whadyaknow. Xenix always was a bit strange..."
	86	cont=''
	87	fi
	88	elif $test -r /etc/systemid; then
	89	echo "(What is a non-Xenix system doing with /etc/systemid?)"
	90	fi
	91	fi
	92	if $test "$cont"; then
	93	echo 'No, maybe "uuname -l" will work...'
df0bcc5d	94	if tans=`sh -c 'uuname -l' 2>&1` ; then
edd6115f JH	95	myhostname=$tans
	96	phostname='uuname -l'
	97	else
	98	echo 'Strange. Maybe "uname -n" will work...'
df0bcc5d	99	if tans=`sh -c 'uname -n' 2>&1` ; then
edd6115f JH	100	myhostname=$tans
	101	phostname='uname -n'
	102	else
	103	echo 'Oh well, maybe I can mine it out of whoami.h...'
df0bcc5d	104	if tans=`sh -c $contains' sysname $usrinc/whoami.h' 2>&1` ; then
edd6115f JH	105	myhostname=`echo "$tans" \| $sed 's/^."\(.\)"/\1/'`
	106	phostname="sed -n -e '"'/sysname/s/^.\"\\(.\\)\"/\1/{'"' -e p -e q -e '}' <$usrinc/whoami.h"
	107	else
	108	case "$myhostname" in
	109	'') echo "Does this machine have an identity crisis or something?"
	110	phostname='';;
	111	*)
	112	echo "Well, you said $myhostname before..."
	113	phostname='echo $myhostname';;
	114	esac
	115	fi
	116	fi
	117	fi
	118	fi
	119	: you do not want to know about this
	120	set $myhostname
	121	myhostname=$1
	122
	123	: verify guess
	124	if $test "$myhostname" ; then
	125	dflt=y
	126	rp='Your host name appears to be "'$myhostname'".'" Right?"
	127	. ./myread
	128	case "$ans" in
	129	y*) ;;
	130	*) myhostname='';;
	131	esac
	132	fi
	133
	134	: bad guess or no guess
	135	while $test "X$myhostname" = X ; do
	136	dflt=''
	137	rp="Please type the (one word) name of your host:"
	138	. ./myread
	139	myhostname="$ans"
	140	done
	141
	142	: translate upper to lower if necessary
	143	case "$myhostname" in
	144	[A-Z])
	145	echo "(Normalizing case in your host name)"
	146	myhostname=`echo $myhostname \| ./tr '[A-Z]' '[a-z]'`
	147	;;
	148	esac
	149
	150	?X: Do not ask for domain name if this is not used later on. In that
	151	?X: case, the hostname may keep its domain name, but it doesn't matter.
	152	@if MYDOMAIN \|\| mydomain
	153	case "$myhostname" in
	154	.)
	155	dflt=`expr "X$myhostname" : "X[^.]\(\..\)"`
	156	myhostname=`expr "X$myhostname" : "X\([^.]*\)\."`
	157	echo "(Trimming domain name from host name--host name is now $myhostname)"
	158	;;
	159	*) case "$mydomain" in
	160	'')
	161	?X:
	162	?X: There is currently no way to say we do not want hostcat if mydomain is not
	163	?X: used. One way to achieve that would be to put that code in a mydomain.U
	164	?X: unit. However, we want to stick the sanity checks right after the domain
	165	?X: name computation, or if none is done, right after the hostname computation.
	166	?X:
	167	{
	168	?X: If we use NIS, try ypmatch.
169	test "X$hostcat" = "Xypcat hosts" &&
170	ypmatch "$myhostname" hosts 2>/dev/null \|\
171	$sed -e 's/[ ]#.//; s/$/ /' > hosts && \
172	$test -s hosts
173	} \|\| {
174	?X: Extract only the relevant hosts, reducing file size,
175	?X: remove comments, insert trailing space for later use.
176	?X: Test to be sure we have a hostcat command. os390 doesn't.
177	test "X$hostcat" != "X" &&
178	$hostcat \| $sed -n -e "s/[ ]#.//; s/\$/ /
179	/[ ]$myhostname[ . ]/p" > hosts
180	}
181	tmp_re="[ . ]"
f9ecdbac PP	182	if $test -f hosts; then
f9ecdbac PP	183	$test x`$awk "/[0-9].*[ ]$myhostname$tmp_re/ { sum++ }
edd6115f	184	END { print sum }" hosts` = x1 \|\| tmp_re="[ ]"
f9ecdbac PP	185	dflt=.`$awk "/[0-9].*[ ]$myhostname$tmp_re/ {for(i=2; i<=NF;i++) print \\\$i}" \
	186	hosts \| $sort \| $uniq \| \
	187	$sed -n -e "s/$myhostname\.\([-a-zA-Z0-9_.]\)/\1/p"`
	188	case `$echo X$dflt` in
	189	X\ ) echo "(Several hosts in the database matched hostname)"
	190	dflt=.
	191	;;
	192	X.) echo "(You do not have fully-qualified names in the hosts database)"
	193	;;
	194	esac
	195	else
	196	echo "(I cannot locate a hosts database anywhere)"
edd6115f	197	dflt=.
f9ecdbac	198	fi
edd6115f JH	199	case "$dflt" in
	200	.)
	201	tans=`./loc resolv.conf X /etc /usr/etc`
	202	if $test -f "$tans"; then
	203	echo "(Attempting domain name extraction from $tans)"
	204	?X: Look for either a search or a domain directive.
	205	dflt=.`$sed -n -e 's/ / /g' \
	206	-e 's/^search \([^ ]\).*/\1/p' $tans \
	207	\| ./tr '[A-Z]' '[a-z]' 2>/dev/null`
	208	case "$dflt" in
	209	.) dflt=.`$sed -n -e 's/ / /g' \
	210	-e 's/^domain \([^ ]\).*/\1/p' $tans \
	211	\| ./tr '[A-Z]' '[a-z]' 2>/dev/null`
	212	;;
	213	esac
	214	fi
	215	;;
	216	esac
	217	case "$dflt" in
	218	.) echo "(No help from resolv.conf either -- attempting clever guess)"
df0bcc5d	219	dflt=.`sh -c domainname 2>/dev/null`
edd6115f JH	220	case "$dflt" in
	221	'') dflt='.';;
	222	.nis.\|.yp.\|.main.) dflt=`echo $dflt \| $sed -e 's/^\.[^.]//'`;;
	223	esac
	224	;;
	225	esac
8b0d65e1 JH	226	case "$dflt$osname" in
8b0d65e1 JH	227	.os390) echo "(Attempting domain name extraction from //'SYS1.TCPPARMS(TCPDATA)')"
02129eaa	228	dflt=.`awk '/^DOMAINORIGIN/ {print $2}' "//'SYS1.TCPPARMS(TCPDATA)'" 2>/dev/null`
8b0d65e1 JH	229	;;
8b0d65e1 JH	230	esac
edd6115f JH	231	case "$dflt" in
	232	.) echo "(Lost all hope -- silly guess then)"
	233	dflt='.uucp'
	234	;;
	235	esac
	236	$rm -f hosts
	237	;;
	238	*) dflt="$mydomain";;
	239	esac;;
	240	esac
	241	echo " "
	242	rp="What is your domain name?"
	243	. ./myread
	244	tans="$ans"
	245	case "$ans" in
	246	'') ;;
	247	.*) ;;
	248	*) tans=".$tans";;
	249	esac
	250	mydomain="$tans"
	251
	252	: translate upper to lower if necessary
	253	case "$mydomain" in
	254	[A-Z])
	255	echo "(Normalizing case in your domain name)"
	256	mydomain=`echo $mydomain \| ./tr '[A-Z]' '[a-z]'`
	257	;;
	258	esac
	259
	260	@end
	261	: a little sanity check here
	262	case "$phostname" in
	263	'') ;;
	264	*)
	265	case `$phostname \| ./tr '[A-Z]' '[a-z]'` in
	266	$myhostname$mydomain\|$myhostname) ;;
	267	*)
	268	case "$phostname" in
	269	sed*)
	270	echo "(That doesn't agree with your whoami.h file, by the way.)"
	271	;;
	272	*)
	273	echo "(That doesn't agree with your $phostname command, by the way.)"
	274	;;
	275	esac
	276	;;
	277	esac
	278	;;
	279	esac
	280