5 server=irc.freenode.net
21 echo QUIT : Leaving... > $netdir/data
30 date | awk '{print $4}' | awk -F ':' '{print "[" $1 ":" $2 "]"}'
35 echo PASS $serverpass > $netdir/data
36 echo USER $user foo bar :$realname > $netdir/data
37 echo NICK $nick > $netdir/data
39 echo PRIVMSG 'nickserv :'identify $"pass > $netdir/data
42 echo JOIN $target > $netdir/data
45 target = `{echo $target | awk -F',' '{print $NF}'}
49 echo QUIT : Leaving... > $netdir/data
56 eval `{mshift $cmd} | while(rc=`{read})echo 'PRIVMSG '^$target^' :' $rc | tee $netdir/data
58 msg = (MODE `{mshift $cmd})
62 msg = (NOTICE $cmd(1) : `{mshift $cmd})
64 msg = (TOPIC `{mshift $cmd})
66 msg = (WHOIS `{mshift $cmd})
68 msg = (AWAY : `{mshift $cmd})
73 msg = (JOIN `{mshift $cmd})
75 target = `{echo $target | awk -F',' '{print $NF}'}
78 msg = (LIST `{mshift $cmd})
84 out = '('^$to^') ⇐ '^$"cmd
85 msg = 'PRIVMSG '^$to^' :'^$"cmd
93 msg = (PART $cmd(1) : `{mshift $cmd})
97 target = `{mshift $cmd}
100 msg = (USERS `{mshift $cmd})
102 msg = (WHO `{mshift $cmd})
104 echo QUIT : Leaving... > $netdir/data
109 msg = 'PRIVMSG '^$target^' :'^$"cmd
110 out = '('^$target^') ⇐ '^$"cmd
113 echo $msg > $netdir/data
115 echo `{etime}^' '^$out
122 s/!~?[a-zA-Z0-9_@\-|.{=\/:]+ /:/' |
125 s = $2 " «" $1 "»\t" $3;
126 for(i = 4; i < NF+1; i++)
134 s/^NOTICE /:'^$server^':/
136 s/!~?[a-zA-Z0-9_@\-|.{=\/]+ /:/' |
139 s = "-" $1 "- ⇒\t" $3;
140 for(i = 4; i < NF+1; i++)
147 sed 's/^:[a-zA-Z0-9_@\-|.!=#]+ //
149 s/^353= /*** Users on /
150 s/^[0-9][0-9][0-9] ?:?/*** /'
156 s/!~?[a-zA-Z0-9_@\-|.{=\/:]+ PRIVMSG /» ⇒ :/
157 s/#[a-zA-Z0-9_@\-|.#]+/(&)/' |
161 for(i = 4; i < NF+1; i++)
168 while (line=`{read}) {
171 line = `{echo -n $line | privmsg}
172 case *JOIN* *QUIT* *PART* *NICK*
173 line = `{echo -n $line | misc}
175 line = `{echo -n $line | notice}
177 echo -n $line | sed 's/PING/PONG/' > $netdir/data
180 line = `{echo -n $line | numeric}
190 if (test -f /mnt/acme/$winid/ctl)
191 echo name /$server/$target/-ircrc > /mnt/acme/$winid/ctl
194 label $target@$server
217 echo 'usage: ircrc [-p port] [-P server password] [-r realname] [-t target] [-n nick] [-T] [server]' >[1=2]
226 server=im.bitlbee.org
235 userpass=`{auth/userpasswd 'server='^$server^' service=irc user='^$nick >[2]/dev/null}
243 echo connecting to tcp!$server!$port...
245 aux/trampoline tcp!$server!$port <>$p/data1 >[1=0] &
248 tlsclient tcp!$server!$port <>$p/data1 >[1=0] &
251 cat $netdir/data | tr -d '\x2\xd\x1f' | pretty &