(Tcl) ipinfo.io IPv4 Geolocation Lookup

Demonstrates how to lookup Geolocation data for an IPv4 address using the ipinfo.io API.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

set http [new_CkHttp]

CkHttp_put_Login $http "ACCESS_TOKEN"
CkHttp_put_Password $http ""
CkHttp_put_Accept $http "application/json"

# Lookup an IPv4 address: 149.250.207.170  (this was a randomly chosen address)
set jsonStr [CkHttp_quickGetStr $http "https://ipinfo.io/149.250.207.170"]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    exit
}

set json [new_CkJsonObject]

CkJsonObject_put_EmitCompact $json 0
set success [CkJsonObject_Load $json $jsonStr]

puts [CkJsonObject_emit $json]

# Sample output:
# Use this online tool to generate parsing code from sample JSON: 
# Generate Parsing Code from JSON

# Note: This is the output for the free trial account.
# 
# {
#   "ip": "149.250.207.170",
#   "city": "",
#   "region": "",
#   "country": "DE",
#   "loc": "51.2993,9.4910",
#   "org": "AS15854 EntServ Deutschland GmbH"
# }

# A full response would look like this:

# {
#   "ip": "66.87.125.72",
#   "hostname": "66-87-125-72.pools.spcsdns.net",
#   "city": "Southbridge",
#   "region": "Massachusetts",
#   "country": "US",
#   "loc": "42.0707,-72.0440",
#   "postal": "01550",
#   "asn": {
#     "asn": "AS10507",
#     "name": "Sprint Personal Communications Systems",
#     "domain": "spcsdns.net",
#     "route": "66.87.125.0/24",
#     "type": "isp"
#   },
#   "company": {
#     "name": "Sprint Springfield POP",
#     "domain": "sprint.com",
#     "type": "isp"
#   },  
#   "carrier": {
#     "name": "Sprint",
#     "mcc": "310",
#     "mnc": "120"
#   }
# }
# 

set ip [CkJsonObject_stringOf $json "ip"]
set hostname [CkJsonObject_stringOf $json "hostname"]
set city [CkJsonObject_stringOf $json "city"]
set region [CkJsonObject_stringOf $json "region"]
set country [CkJsonObject_stringOf $json "country"]
set loc [CkJsonObject_stringOf $json "loc"]
set postal [CkJsonObject_stringOf $json "postal"]
set asnAsn [CkJsonObject_stringOf $json "asn.asn"]
set asnName [CkJsonObject_stringOf $json "asn.name"]
set asnDomain [CkJsonObject_stringOf $json "asn.domain"]
set asnRoute [CkJsonObject_stringOf $json "asn.route"]
set asnType [CkJsonObject_stringOf $json "asn.type"]
set companyName [CkJsonObject_stringOf $json "company.name"]
set companyDomain [CkJsonObject_stringOf $json "company.domain"]
set companyType [CkJsonObject_stringOf $json "company.type"]
set carrierName [CkJsonObject_stringOf $json "carrier.name"]
set carrierMcc [CkJsonObject_stringOf $json "carrier.mcc"]
set carrierMnc [CkJsonObject_stringOf $json "carrier.mnc"]

delete_CkHttp $http
delete_CkJsonObject $json