sockopen proxy <httpproxy> <port>
on *:sockopen:proxy: {
if ($sock($sockname).status == active) {
sockwrite -tn $sockname CONNECT <ircserver>:<port> HTTP/1.0
sockwrite -tn $sockname $lf
}
}
on *:sockread:proxy: {
if ($sockerr > 0) return
:sockread
sockread %read
if ($sockbr == 0) return
if (%read) {
if (($gettok(%read,2,32) == 200) || ($gettok(%read,2,32) == 504)) {
sockwrite -n $sockname NICK <nick>
sockwrite -n $sockname USER ...
}
if ($gettok(%read,1,32) == PING) {
sockwrite -n $sockname PONG : $+ $gettok(%read,2,58)
}
}
goto sockread
}