X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/d0cefd73aa7c228adf3819d272bdb61dcf996906..73bb9001656336e456a7e71c5db8098f805f9474:/bin/guest-console

diff --git a/bin/guest-console b/bin/guest-console
new file mode 100755
index 0000000..0ff8848
--- /dev/null
+++ b/bin/guest-console
@@ -0,0 +1,17 @@
+#! /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