GeoIP.mrc

;Script by Dragone2
Alias geoip {
  unset %geo.*
  set %geo.target $1
  set %geo.lettura 0
  sockClose geochecker
  sockOpen geochecker rest.db.ripe.net 80
}
on *:SockOpen:geochecker: {
  sockwrite -nt geochecker GET /search.xml?query-string= $+ %geo.target $+ &flags=no-filtering HTTP/1.0
  sockwrite -nt geochecker Host: rest.db.ripe.net
  sockwrite -nt geochecker $crlf
}
on *:SockRead:geochecker: {
  var %read
  sockRead %read
  if (*<attribute name="address" value="* iswm %read) {
    if (%geo.lettura == 3) { tokenize 32 %read | echo -a La locazione di %geo.target è $remove($remove($1-,<attribute name="address" value="), "/>) }
    inc %geo.lettura 1
  }
}