#!/bin/rc # 9p.zone domain is gone#srv tcp!registry.9p.zone!6675 registry /n/registry#srv -c tcp!9p.zone!9991 9p.zone.disk /n/disk srv tcp!chat.only9fans.com!9990 chat.only9fans.com /n/9chat fn clean {	echo $1 | sed 's/.*!([^!]+)!.*/\1/'} for(s in /n/registry/tcp*){	s=`{basename $s}	srv $s `{clean $s} /n/^`{clean $s} &} >/tmp/chatcat cat <<'...'#!/bin/rcchan=$1label $chanecho JOIN $nick to chat >>/n/9chat/$chancat /n/9chat/$chan &while() cat | sed '1s/^/'$nick' → /' >>/n/9chat/$chan...chmod +x /tmp/chatcat >/tmp/gridrio cat <<'...'#!/bin/rcfor(c in chat commits noise)	window -scroll /tmp/chatcat $c...chmod +x /tmp/gridrio echo '	Type a (multi-line) message ending with a newline'echo '	and press control-d (EOT) to send.'echoecho -n 'Please enter nickname to use, finish with ENTER: 'nick=`{read}if(~ $#nick 0)	nick=$user exec rio -s -i /tmp/gridrio