Code:

Connect >> Nick: X - IP: 192.184.9.108 - COUNTRY: United States - CODE: US - CITY: Los Angeles - ORG: Level 3, LLC - ASN: AS32421 Level 3 Parent, LLC - ASNAME: BLCC - REVERSE: highgate.irccloud.com - MOBILE: false - PROXY: false

Code:

package require httppackage require jsonset ExpChan "#Connect"bind raw - NOTICE Client_Connectproc json2dict {JSONtext} {string range [string trim [string trimleft [string map {\t {} \n {} \r {} , { } : { } \[ \{ \] \}} $JSONtext] {\uFEFF}]] 1 end-1}proc Client_Connect {from key arg} {if {[string match *!*@* $from] || ![string match -nocase "*client connecting*" $arg]} { return }if {[scan $arg %\[^\:\]\:%\[^(\](%\[^@\]@%\[^\)\] _ nick ident host] == "4"} {::http::config -useragent "lynx"set ipq [http::geturl http://ip-api.com/json/$host?fields=status,message,country,countryCode,city,org,as,asname,reverse,mobile,proxy,query]set    data                  [json2dict [http::data $ipq]]set    Getquery              [dict get $data query]set    Getcountry            [dict get $data country]set    GetcountryCode        [dict get $data countryCode]set    Getcity               [dict get $data city]set    Getorg                [dict get $data org]set    Getas                 [dict get $data as]set    Getasname             [dict get $data asname]set    Getreverse            [dict get $data reverse]set    Getmobile             [dict get $data mobile]set    Getproxy              [dict get $data proxy]::http::cleanup $ipqif {[dict get $data status] eq "success"} {puthelp "PRIVMSG $::ExpChan :\0033Connected \00314>> \00310Nick\0036:\00314 [regsub -all {([^:]+:)} $nick ""]\0036- \0033IP:\00314 $Getquery \0036- \0033COUNTRY:\00314 $Getcountry \0036- \0033CODE:\00314 $GetcountryCode \0036- \0033CITY:\00314 $Getcity \0036- \0033ORG:\00314 $Getorg \0036- \0033ASN:\00314 $Getas \0036- \0033ASNAME:\00314 $Getasname \0036- \0033REVERSE:\00314 $Getreverse \0036- \0033MOBILE:\00314 $Getmobile \0036- \0033PROXY:\00314 $Getproxy "} else {putcmdlog "Error! it fails to get data for this $host"}}return 0}