sgi port, including migration to arch/@sys/bin paths

[moira.git] / clients / userreg / register

#!/bin/csh -f 

set machtype=`machtype`

if ( (${machtype}x != sun4x) && (${machtype}x != sgix) ) then
	stty dec
endif

if ( ${machtype}x != "sgix" ) then
	reset
endif

setenv SHELL csh

if ( ${?TERM} == 0 ) then
	setenv TERM network
endif

if ( ( ${TERM}x == networkx ) || ( ${TERM}x == switchx ) ) then
	set noglob; eval `tset -s -I -Q ?vt100` || unset noglob
else
	set noglob; eval `tset -s -I -Q` || unset noglob
endif

while (1)
	clear
	if ( $status ) then
		echo "Unknown (or not powerful enough) terminal type."
		set noglob; eval `tset -s -I -Q ?vt100` || unset noglob
	else
		break
	endif
end

cd /mit/register

while (1)
	/mit/register/arch/@sys/bin/userreg
	if ( ${machtype}x != "sgix") then
		reset
	endif
	echo -n "Do you want to register another user? "
	set answer = $<
	if ("${answer}x" =~ [nN]*) exit 0
end