sockclose google
set %search $replace($1-,$chr(32),+)
sockopen google
www.google.com 80
/sockmark google /search?q= $+ %search $+ &ie=UTF-8&oe=UTF-8&hl=en&meta=)
}
on *:sockopen:google:{
if ($sockerr > 0) { return }
sockwrite -n google GET $sock($sockname).mark HTTP/1.1
sockwrite -n google ACCEPT: */*
sockwrite -n google HOST:
www.google.com $+ $crlf $+ $crlf
}
on *:sockread:google:{
sockread %result
echo -a $chr(32) $htmlfree(%result)
}
alias htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
return %x
}