dis/demo/chat/chatclient


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

#!/dis/sh
load std
autoload=std
ndb/cs

chatroom=$1

fn ck {
	or {$*} {
		echo chatclient: exiting >[1=2]
		raise error
	}
}
user="{cat /dev/user}

ck mount -A 'tcp!$registry!registry' /mnt/registry
ck /dis/grid/remotelogon wm/wm {
	k = /usr/$user/keyring/default
	grid/find -a resource chat -a pk `{getpk -s $k} Enter {demo/chat/chat /n/client} Shell {wm/sh}
}