clients/userreg/register

   1 #!/bin/csh -f
   2
   3 set machtype=`machtype`
   4
   5 if ( (${machtype}x != sun4x) && (${machtype}x != sgix) ) then
   6         stty dec
   7 endif
   8
   9 if ( ${machtype}x != "sgix" ) then
  10         reset
  11 endif
  12
  13 setenv SHELL csh
  14
  15 if ( ${?TERM} == 0 ) then
  16         setenv TERM network
  17 endif
  18
  19 if ( ( ${TERM}x == networkx ) || ( ${TERM}x == switchx ) ) then
  20         set noglob; eval `tset -s -I -Q ?vt100` || unset noglob
  21 else
  22         set noglob; eval `tset -s -I -Q` || unset noglob
  23 endif
  24
  25 while (1)
  26         clear
  27         if ( $status ) then
  28                 echo "Unknown (or not powerful enough) terminal type."
  29                 set noglob; eval `tset -s -I -Q ?vt100` || unset noglob
  30         else
  31                 break
  32         endif
  33 end
  34
  35 cd /mit/register
  36
  37 while (1)
  38         /mit/register/arch/@sys/bin/userreg
  39         if ( ${machtype}x != "sgix") then
  40                 reset
  41         endif
  42         echo -n "Do you want to register another user? "
  43         set answer = $<
  44         if ("${answer}x" =~ [nN]*) exit 0
  45 end