ref: 32dae5e4a11c5d7876ce45d221930f84d37e83e2
dir: /bin/samchat/
#!/bin/rc
chan=/n/chat/chat
bind '#|' /mnt/samchat
data=/mnt/samchat/data1
{
while(){
<$data >>$chan ssam '
1 x/^/ c/'$user' : /
,s/\n\n\n+/\n\n/g
$-2,$-1 s/\n\n/\n/
$-#1,$ v/\n/ a/\n/'
}
} &
echo `{cat /proc/$pid/noteid} >/proc/$apid/noteid