lanugage

on ^*:INPUT:[color:red]#chan[/color]:{
dowebrequest $1-
halt
}
alias dowebrequest {
sockopen webreq www.[color:red]sitename.ext[/color] 80
sockwrite -n webreq GET [color:red]/path/to/the/translator[/color] HTTP/1.1
sockwrite -n webreq Host: www.[color:red]sitename.ext[/color]
sockwrite -n webreq Connection: Keep-Alive
sockwrite -n webreq $crlf $crlf
}
on *:SOCKREAD:webreq:{
var %tmp = $null ;declare
sockread -f %tmp
webreq_parse $sockname %tmp
}
alias webreq_parse {
if ([color:red]$xxx == yyy[/color]) {
var %msg = $remove($2-,[color:red]any html stuff[/color])
msg [color:red]#chan[/color] %msg
sockclose webreq
}
}