chiark - git - mdw - profile/blob - bin/guest-console

   1 #! /usr/bin/kermit +
   2
   3 take /etc/kermit/kermrc
   4
   5 set exit on-disconnect on
   6
   7 def GUESTDIR /mnt/guests
   8 if def \$(GUESTDIR) assign GUESTDIR \$(GUESTDIR)
   9
  10 local guest
  11 if != \v(argc) 2 -
  12         exit 1 Usage: GUEST [user/]guest
  13 assign guest \%1
  14 if not match {\m(guest)} */* -
  15         assign guest \v(userid)/\m(guest)
  16
  17 pipe nc -U \m(GUESTDIR)/\m(guest)/console