set page [::http::data $token]

upvar 0 $token stateif {$state(status) ne "ok"} {   putlog "HTTP Error : $state(url) made $state(status) error"   return 1}

Code:

  # this one not worked  set data [::json2dict $page]   #also not wrked  set data [::json::json2dict [http::data $page]]   #this one worked  set data [dict get [json::json2dict $page]]  #showing results  set country [dict get $data country]  putserv "PRIVMSG $chan :IP-API: $country"

Code:

# -----------------------------------# IP/DOMAIN API info from ip-api.com# -----------------------------------  bind pub - !ip ipapiproc  bind pub - !ipapi ipapiproc  bind pub - !ipinfo ipapiproc  package require http  package require tls  package require json  proc ipapiproc {nick host hand chan text} {  http::register https 443 [list ::tls::socket -autoservername true]  if {![llength [split $text]]} {    putserv "NOTICE $nick :Use: !ip 127.0.0.1 or !ip mydomain.com"    return 0  }  # JSON regexp  set url "http://ip-api.com/json/$text"   set token [::http::geturl $url -timeout 10000]  set page [::http::data $token]  upvar 0 $token state  if {$state(status) ne "ok"} {   putlog "HTTP Error : $state(url) made $state(status) error"   return 1  }  ::http::cleanup $token  ::http::unregister https    # Page=status,message,country,countryCode,region,regionName,city,zip,lat,lon,timezone,isp,org,as,asn,query,continent,continentCode,currency,asname,mobile,proxy,hosting  # $page is the result of your geturl  set data [dict get [json::json2dict $page]]  set ip [string map {" " ":"} [dict get $data query]]  set isp [dict get $data isp]  set country [dict get $data country]  set org [dict get $data org]  set city [dict get $data city]  set regionName [dict get $data regionName]  set lat [dict get $data lat]  set lon [dict get $data lon]  if { [dict get $data status] eq "succes"} { set status Failed } else { set status Succes }  # Works only on HTTPS and url needs to be set as:  https://ip-api.com/$text  #if { [dict get $data mobile] eq "true"} { set mobile avaible } else  { set mobile n/a }  #if { [dict get $data proxy] eq "true"} { set proxy avaible } else  { set proxy n/a }  #if { [dict get $data hosting] eq "true"} { set hosting avaible } else  { set hosting n/a }    if {[info exists country]} {    putserv "PRIVMSG $chan :IP-API: $ip - SP: $isp - ORG: $org - COUNTRY: $country"  if {[info exists lat]} {    putserv "PRIVMSG $chan :IP-API: STATUS: $status - CITY: $city - REGION: $regionName ($lat,$lon)"  if {[info exists mobile]} {    putserv "PRIVMSG $chan :IP-API: HOSTING: $hosting - PROXY: $proxy - MOBILE: $mobile"  else { putserv "PRIVMSG $chan :IP-API: Invalid address or IP not found" }   }  } }}  putlog "\[SCRiPT\] IP-API Info :: Loaded successfully."

set page [http::data [http::geturl $url -timeout 10000]]::http::cleanup $page::http::unregister https

set token [::http::geturl $url -timeout 10000]set page [::http::data $token]# putlog "Got this in page: $page"::http::cleanup $token::http::unregister https

Code:

# -----------------------------------# IP/DOMAIN API info from ip-api.com# -----------------------------------  bind pub - !ip ipapi  bind pub - !ipapi ipapi  bind pub - !ipinfo ipapi  package require http  package require tls  package require json  proc ipapi {nick host hand chan arg} {  http::register https 443 [list ::tls::socket -autoservername true]  if {![llength [split $arg]]} {    putserv "notice $nick :Use: !ip 127.0.0.1 or !ip mydomain.com"    return 0  }  # JSON regexp  set url "http://ip-api.com/json/$arg"   set page [http::data [http::geturl $url -timeout 10000]]  ::http::cleanup $page  ::http::unregister https    # Page=status,message,country,countryCode,region,regionName,city,zip,lat,lon,timezone,isp,org,as,query  # $page is the result of your geturl  set data [::json2dict $page]  set country [dict get $data country]  putserv "privmsg $chan :IP-API: $arg $country"  }

# $page is the result of your geturlset data [::json2dict $page]set ip [string map {" " ":"} [dict get $data query]]set country [dict get $data country]set city [dict get $data city]set lat [dict get $data lat]set lon [dict get $data lon]set isp [dict get $data isp]set org [dict get $data org]set asn [dict get $data as]set asname [dict get $data asname]if { [dict get $data mobile] eq "true"} { set mobile 1 } else  { set mobile 0 }if { [dict get $data proxy] eq "true"} { set proxy 1 } else  { set proxy 0 }if { [dict get $data hosting] eq "true"} { set hosting 1 } else  { set hosting 0 }

Code:

# -----------------------------------# IP/DOMAIN API info from ip-api.com# -----------------------------------  # Setup the triggers  bind pub - !ip ipapi  bind pub - !host ipapi  bind pub - !ipapi ipapiproc ipapi {nick host hand chan txt} {  package require http  if {![catch {package require tls}]} { ::http::register https 443 [list ::tls::socket -autoservername true] }  if {![llength [split $txt]]} {    putserv "notice $nick :Use: !ip 127.0.0.1 or !ip mydomain.com"    return 0  }  # XML regexp api request  set url "http://ip-api.com/xml/$txt"   set page [http::data [http::geturl $url -timeout 10000]]  ::http::cleanup $page  ::http::unregister https    # Page=status,message,country,countryCode,region,regionName,city,zip,lat,lon,timezone,isp,org,as,query  regexp {<isp>(.*?)<\/isp>} $page a isp  regexp {<country>(.*?)<\/country>} $page a country  regexp {<timezone>(.*?)<\/timezone>} $page a timezone  regexp {<status>(.*?)<\/status>} $page a status  regexp {<city>(.*?)<\/city>} $page a city  regexp {<regionName>(.*?)<\/regionName>} $page a regionName  regexp {<lat>(.*?)<\/lat>} $page a lat  regexp {<lon>(.*?)<\/lon>} $page a lon  regexp {<zip>(.*?)<\/zip>} $page a zip  regexp {<org>(.*?)<\/org>} $page a org  regexp {<query>([0-9]+(\.[0-9]+)+)</query>} $page a query  regexp {<hosting>(.*?)<\/hosting>} $page a hosting  regexp {<proxy>(.*?)<\/proxy>} $page a proxy  regexp {<mobile>(.*?)<\/mobile>} $page a mobile    # Announce to channel  if {[info exists country]} {        putserv "privmsg $chan :\00303IP-API:\003 $query \00303ISP:\003 $isp \00303ORG:\003 $org \00303COUNTRY:\003 $country"  if {[info exists lat]} {        putserv "privmsg $chan :\00303IP-API:\003 \00303CITY:\003 $city ($zip) \00303REGION:\003 $regionName ($lat,$lon) \00303TIMEZONE:\003 $timezone"  }  if {[info exists hosting]} {        putserv "privmsg $chan :\00303IP-API:\003 \00303HOSTING:\003 $hosting \00303PROXY:\003 $proxy \00303MOBILE:\003 $mobile"  }  } else {  putserv "privmsg $chan :\00303IP-API:\003 No data found. Used correct IP/Domain?" }}  putlog "\[SCRiPT\] IP-API XML Info :: Loaded successfully."

Code:

# -----------------------------------# IP/DOMAIN API info from ip-api.com# ----------------------------------- bind pub - !ip ipapiproc bind pub - !host ipapiproc bind pub - !ipapi ipapiproc bind pub - !ipinfo ipapiproc package require http package require tls package require jsonproc ipapiproc {nick host hand chan text} { ::http::register https 443 [list ::tls::socket -autoservername true] if {![llength [split $text]]} { putserv "NOTICE $nick :Use: !ip 127.0.0.1 or !ip mydomain.com" return 0 } # JSON regexp API call set url "http://ip-api.com/json/$text"  set token [::http::geturl $url -timeout 10000] set page [::http::data $token] upvar 0 $token state if {$state(status) ne "ok"} { putserv "PRIVMSG $chan :\00303IP-API:\003 $state(url) made $state(status) error" return 0 } ::http::cleanup $token ::http::unregister https # $page is the result of your geturl # Page=status,message,country,countryCode,region,regionName,city,zip,lat,lon,timezone,isp,org,as,asn,query,continent,continentCode,currency,asname,mobile,proxy,hosting set data [json::json2dict $page] set ip [string map {" " ":"} [dict get $data query]] set isp [dict get $data isp] set country [dict get $data country] set countryCode [dict get $data countryCode] set org [dict get $data org] set city [dict get $data city] set zip [dict get $data zip] set regionName [dict get $data regionName] set lat [dict get $data lat] set lon [dict get $data lon] # Works only on HTTPS (paid service) #if { [dict get $data mobile] eq "true"} { set mobile avaible } else  { set mobile n/a } #if { [dict get $data proxy] eq "true"} { set proxy avaible } else  { set proxy n/a } #if { [dict get $data hosting] eq "true"} { set hosting avaible } else  { set hosting n/a } # Announce data to $chan if {[dict get $data status] eq "fail"} { set status [dict get $data message] putserv "PRIVMSG $chan :\00303IP-API:\003 $message ($ip). Used correct IP/Domain?" return  0 } if {[info exists country]} { putserv "PRIVMSG $chan :\00303IP-API:\003 $ip - \00303ISP:\003 $isp \00303ORG:\003 $org \00303COUNTRY:\003 $countryCode, $country" } if {[info exists lat]} { putserv "PRIVMSG $chan :\00303IP-API:\003 \00303CITY:\003 $city \00303ZIP:\003 $zip\00303 REGION:\003 $regionName ($lat,$lon)" } if {[info exists mobile]} { putserv "PRIVMSG $chan :\00303IP-API:\003 \00303HOSTING:\003 $hosting \00303PROXY:\003 $proxy \00303MOBILE:\003 $mobile" } else { putserv "PRIVMSG $chan :\00303IP-API:\003 No data found. Used correct IP/Domain?" }}  putlog "\[SCRiPT\] IP-API Info :: Loaded successfully."