ref: ce7c66bff42a5073a334915fda1f70398747828c
dir: /bin/wircrc/
#!/bin/rc
wins=()
cons=()
server=irc.oftc.net
port=6667
tls=0
pass=()
srvpass=()
chans=()
realname='<nil>'
nick=$user
while (~ $1 -*) {
switch ($1) {
case -c
chans=`{echo $2 | sed 's/,/ /'}
shift
case -n
nick=$2
shift
case -p
port=$2
shift
case -r
realname=$2
shift
case -T
tls=1
case -*
echo 'usage: wircrc [-c chans] [-n nick] [-p port] [-r realname] [-T] [server]' >[1=2]
exit 'usage'
}
shift
}
if(~ $#* 1)
server=$1
bind '#|' /n/wircrc
rfork en
fn wmk {
id=$1
>/n/wircrc/data1 {
@{
rfork s
d=/n/wircrc.$id
p=`{cat /dev/ppid}
mount $wsys $d 'new -scroll -pid '^$p || exit
echo -n $id | tr -d \x0a >$d/label
echo wnew $id $d $p
if(! ~ $#* 1)
echo cmsg $id $*(2-)
<$d/cons {
while(line=`{read}){
~ $line '' || echo wtype $id $line
}
}
}
echo wclose $id
}
exit
}
fn etime {
date -t | sed 's/-//g;s/^..(.*)T(..):(..).*/\1:\2\3/'
}
fn wio {
if(~ $1 $wins){
d=wd$1
d=$$d
@{echo `{etime} $*(2-) | tee -a /tmp/irc.^$1 >$d/cons}
}
}
fn sio {
d=$1
if(~ $d *!*)
d=`{echo $d | awk -F'!' '{print $1}'}
if(~ $d $cons){
d=cd$d
d=$$d
@{echo $*(2-) >$d/data}
@{echo $*(2-) | sed -n 's/^PRIVMSG [^ ]+ :/'^`{etime}^' '^$nick^' ⇒ /p' >>/tmp/irc^.$1}
}
}
fn wctl {
if(~ $1 $wins){
d=wd$1
d=$$d
shift
@{echo $* >$d/wctl}
}
}
fn hangup {
if(~ $1 $cons){
d=cpid$1
d=$$d
@{echo kill >/proc/$d/notepg}
}
}
fn getkey {
a=`{auth/userpasswd 'server='^$1^' service=irc user='^$nick >[2]/dev/null}
if(~ $#a 2)
pass=$a(2)
a=`{auth/userpasswd 'server='^$1^' service=ircsrv user='^$nick >[2]/dev/null}
if(~ $#a 2)
srvpass=$a(2)
a=()
}
fn dial {
c=/n/wircrc.$1
bind '#|' $c
if(~ $2 1){
tlsclient $1 <>$c/data1 >[1=0] &
}
if not{
aux/trampoline $1 <>$c/data1 >[1=0] &
}
<>$c/data >[1=0]{
$*(3-) $c $apid
exit
}
}
fn irc {
>[3]/n/wircrc/data1 {
echo cnew $* >[1=3]
tr -d '\x2\x8\xd\x1f' | @{
while(line=`{read}){
if(~ $line(1) PING)
echo PONG $line(2-)
if not {
line=`{echo $line | sed '
s/^:([^!]+)[^ ]+ PRIVMSG (#[^ ]+)[^:]+:(.*)/cmsg '$1'!\2 \1 \3/g;
s/^:([^!]+)[^ ]+ PRIVMSG :?([^ ]+)[^:]+:(.*)/cmsg '$1'!\1 \1 \3/g;
s/^:([^!]+)[^ ]+ NOTICE \*[^:]+:(.*)/cmsg '$1' \1 \2/g;
s/^:([^!]+)[^ ]+ NOTICE ([^ ]+)[^:]+:(.*)/cmsg '$1'!\1 \1 \3/g;
s/^:([^!]+)[^ ]+ (KICK) (#[^ ]+) ([^ ]+:?)(.*)/xmsg '$1'!\3 \2 \1 \4 \5/g;
s/^:([^!]+)[^ ]+ ([0-9]+)[^:]+:?(.*)/xmsg '$1' \2 \3/g;
s/^:([^!]+)[^ ]+ (MODE|TOPIC) (#[^ ]+) :?(.*)/xmsg '$1'!\3 \2 \4/g;
s/^:([^!]+)[^ ]+ (QUIT|NICK) :(.*)/xmsg '$1' \2 \1 \3/g;
s/^:([^!]+)[^ ]+ (JOIN|PART) (#[^\ ]+).*/xmsg '$1'!\3 \2 \1/g;
s/^:(.*) (PONG) [^ ]+[^:]+:(.*)/cmsg '$1'!\1 \1 \2/g;
'}
~ $line '' || echo $line >[1=3]
}
}
}
echo cclose $1 >[1=3]
}
}
fn shutdown {
for(i in $cons)
hangup $i
for(i in $wins){
d=wp$i
d=$$d
@{echo hangup >/proc/$d/notepg} &
}
{}>/n/wircrc/data
}
fn sighup {
shutdown
}
fn sigint {
shutdown
}
wmk $server &
dial tcp!$server!$port $tls irc $server &
</n/wircrc/data {
while(a=`{read}){
id=$a(2)
switch($a(1)){
case cnew
cd$id=$a(3)
cpid$id=$a(4)
cons=($id $cons)
getkey $id
if(! ~ $#srvpass 0)
sio $id PASS $srvpass
sio $id USER $user foo bar :$realname
sio $id NICK $nick
if(! ~ $#pass 0)
sio $id nickserv identify $pass
pass=()
srvpass=()
for(i in $chans){
if(~ $i $id!'#'*){
wmk $i &
sio $id JOIN `{echo $i | awk -F'!' '{print $2}'}
}
}
case cclose
d=cd$id
$d=()
oids=$cons
cons=()
for(i in $oids){
if(! ~ $i $id)
cons=($i $cons)
}
for(i in $wins){
if(~ $i $id || ~ $i $id!*)
wio $i HUNGUP $id
}
case wnew
wd$id=$a(3)
wp$id=$a(4)
wins=($id $wins)
x=wip$id
$x=()
case wclose
d=wd$id
p=wp$id
unmount $$d
$d=()
$p=()
oids=$wins
wins=()
for(i in $oids){
if(! ~ $i $id)
wins=($i $wins)
}
if(~ $id $chans){
oids=$chans
chans=()
for(i in $oids){
if(! ~ $i $id)
chans=($i $chans)
}
sio $id PART `{echo $id | awk -F'!' '{print $2}'}
}
case xmsg
if(~ $id $wins)
wio $id $a(3-)
if not {
for(i in $wins){
if(~ $i $id!*)
wio $i $a(3-)
}
}
case cmsg
x=wip$id
if(~ $id $wins)
wio $id $a(3) '⇒' $a(4-)
if not if(! ~ $#$x 0){
{ sleep 1; echo $a >/n/wircrc/data1 } &
}
if not if(! ~ $id *!'#'*){
$x=1
wmk $id $a(3-) &
}
case wtype
switch($a(3)){
case /x
shutdown
case /s
server=$a(4)
if(! ~ $server '' && ! ~ $server $cons){
if(! ~ $server $wins)
wmk $server &
if(~ $a(5) port)
port=$a(6)
dial tcp!$server!$port $tls irc $server &
}
case /j /t
target=$a(4)
server=`{echo $id | awk -F'!' '{print $1}'}
if(! ~ $target '' && ~ $server $cons){
id=$server!$target
if(~ $id $wins){
wctl $id unhide
wctl $id current
}
if not {
wmk $id &
}
if(~ $a(3) /j && ~ $target '#'*){
if(! ~ $id $chans){
chans=($id $chans)
sio $server JOIN $target
}
}
}
case /h
if(~ $a(4) $cons)
id=$a(4)
hangup `{echo $id | awk -F'!' '{print $1}'}
case /n
nick = $a(4)
server=`{echo $id | awk -F'!' '{print $1}'}
sio $server NICK $a(4)
case /p
server=`{echo $id | awk -F'!' '{print $1}'}
sio $server PING $server
case *
target=`{echo $id | awk -F'!' '{print $2}'}
if(~ $target '')
sio $id $a(3-)
if not {
a=$a(3-)
sio $id PRIVMSG $target ':'^$"a
}
}
}
}
}
shutdown