From 83e0c120a3e25a86e6af0009239bc1fe582ee171 Mon Sep 17 00:00:00 2001
From: jweiss <jweiss>
Date: Wed, 31 Jul 1996 02:09:09 +0000
Subject: [PATCH] This is what we've been running in the register locker since
 8/93.

---
 clients/userreg/register | 31 ++++++++++++++++++++++++++++++-
 1 file changed, 30 insertions(+), 1 deletion(-)

diff --git a/clients/userreg/register b/clients/userreg/register
index 2dcee1d0..ae24cd90 100644
--- a/clients/userreg/register
+++ b/clients/userreg/register
@@ -1,7 +1,36 @@
 #!/bin/csh -f 
+set path=( /mit/register/@sys $path )
+if ( `machtype`x != sun4x ) then
+	stty dec
+endif
+
 reset
+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)
-	/mit/register/userreg.`/bin/athena/machtype`
+	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/@sys/userreg
 	reset
 	echo -n "Do you want to register another user? "
 	set answer = $<
-- 
2.45.2