;GeoIP

Alias geoip {
  set %geo.target $1
  sockClose geochecker
  sockOpen geochecker rscript.org 80
}
on *:SockOpen:geochecker: {
  sockwrite -nt geochecker GET /lookup.php?type=ipdns&ip= $+ %geo.target HTTP/1.0
  sockwrite -nt geochecker Host: rscript.org
  sockwrite -nt geochecker $crlf
}
on *:SockRead:geochecker: {
  var %read
  sockRead %read
  if (*Country: * iswm %read) { tokenize 32 %read | echo 3 -a Location of: %geo.target = $2- | unset %geo.* }
  if (*INVALID: please enter a valid IP address or hostname.* iswm %read) { echo 3 -a please use a valid IP address or hostname. | unset %geo.* }
}