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 |