clients/userreg/register

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