#!/bin/rc

cat /dev/kmesg /dev/kprint &
fn sighup sigint sigterm{
	@{echo kill >/proc/$apid/note} &
	{walk -es '/tmp/ircs/#cat-v' ; echo 500-p} | dc >'/tmp/ircs/offsets/#cat-v'
	{walk -es /tmp/ircs/gridchat ; echo 500-p} | dc >/tmp/ircs/offsets/gridchat
	exit
}

userpass=`{auth/userpasswd 'server=irc.oftc.net service=irc user='^$user >[2]/dev/null}
if(~ $#userpass 2)
	echo PRIVMSG nickserv : IDENTIFY $userpass(2) $userpass(1) >>/srv/ircs

echo 'JOIN #cat-v' >>/srv/ircs

<[3]'/tmp/ircs/#cat-v' <[4]/tmp/ircs/gridchat{
	bytes = `{cat '/tmp/ircs/offsets/#cat-v'}
	if(! test 0 -lt $bytes -a $bytes -le `{walk -es '/tmp/ircs/#cat-v'}) bytes = 0
	read -c $bytes <[0=3] >/dev/null
	bytes = `{cat /tmp/ircs/offsets/gridchat}
	if(! test 0 -lt $bytes -a $bytes -le `{walk -es /tmp/ircs/gridchat}) bytes = 0
	read -c $bytes <[0=4] >/dev/null
	while(sleep 1){
		cat <[0=3]
		cat <[0=4]
	}
}