The title says it all.
Contains $htmlfree by Freckle ::Thumbs up!::
; USAGE: /resolve <ip>
alias resolve {
set %resolve.ip $$1
sockopen resolve.ip_ $+ $$1 www.topwebhosts.org 80
}
on *:sockopen:resolve.ip*: {
var %a = sockwrite -n $sockname
%a GET $+(/tools/ip-locator.php?query=,%resolve.ip) HTTP/1.1
%a HOST: www.topwebhosts.org
%a $crlf
}
on *:sockread:resolve.ip*: {
window -e @resolve
sockread %sockread
%sockread = $htmlfree(%sockread)
if (*IP*AddressCountryRegionCityISP*.*.*.* iswm %sockread) {
set %resolved $remove($gettok(%sockread,3-4,20),$chr(20))
echo @resolve %resolved
sockclose $sockname
}
}
alias -l htmlfree {
var %x, %i = $regsub($replace($1-,<td>,$chr(32),<tr>,$chr(20),<br>,$chr(20)),/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
return %x
}
The popular $noHTML, as used on zigwap.com
alias noHTML return $regsubex($1, /<[^>]+(?:>|$)|^[^<>]+>/g, $null)