ipinfo.tcl

package require http
package require json

bind pub - !geo geo

proc geo {nick uhost hand chan text} {
   set lookup [lindex [split $text] 0]
   catch {set http [::http::geturl http://ipinfo.io/$lookup/json -timeout 6000]} error
   set data [::http::data $http]
   set json [::json::json2dict $data]
   ::http::cleanup $http
   set keys [dict keys $json]
   set expecting {ip hostname city region country loc postal phone org}
   foreach ele $expecting {
   if {[lsearch $keys $ele] != -1} { set $ele [dict get $json $ele]
   } else {  set $ele "n/a"
   }
}
   putserv "PRIVMSG $chan :IP: $ip - Hostname: $hostname - City: $city - Region: $region - Country: $country - Location: $loc - Organization: $org"
}