[profile] / bin / guest-console

#! /usr/bin/kermit +

take /etc/kermit/kermrc

set exit on-disconnect on

def GUESTDIR /mnt/guests
if def \$(GUESTDIR) assign GUESTDIR \$(GUESTDIR)

local guest
if != \v(argc) 2 -
	exit 1 Usage: GUEST [user/]guest
assign guest \%1
if not match {\m(guest)} */* -
	assign guest \v(userid)/\m(guest)

pipe nc -U \m(GUESTDIR)/\m(guest)/console
Commit	Line	Data
73bb9001 MW	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