Code:

bind raw - NOTICE serv:removedproc serv:removed {from keyword text} {putlog "from=($from) keyword=($keyword) text=($text)"if {![string match -nocase "*G:Line removed*" $text] && ![string match -nocase "*Z:line removed*" $text] && ![string match -nocase "*Shun removed*" $text] && ![string match -nocase "*global z-line removed*" $text] && ![string match -nocase "*used AKILL to remove*" $text]} {#putlog "Nothing matches..."return}set nick [lindex [split $text] 2 ]set removed [lindex [split $text] 3 ]set mask [join [lrange [split $text] 4 6 ]]set set_at [join [lrange [split $text] 7 12 ]]set reason [join [lrange [split $text] 13 end ]]putserv "privmsg #services :\00310$nick\00314 $removed \0034$mask\00310 $set_at \0034$reason\003"}

Code:

package require httppackage require jsonset ExpChan "#psychoz"bind raw - NOTICE Clientproc Client {from key arg} {   if {[string match *!*@* $from] || ![string match -nocase "*Client connecting*" $arg]} { return }   if {[scan $arg %\[^\:\]\:%\[^(\](%\[^@\]@%\[^\)\] _ nick ident host] == "4"} {      set token [http::geturl http://ip-api.com/json/$host?fields=status,message,country,countryCode,region,continent,continentCode,regionName,city,zip,lat,lon,timezone,district,isp,org,as,asname,reverse,mobile,proxy,hosting,query]      set data [json::json2dict [http::data $token]]      ::http::cleanup $token      #if {[dict get $data status] eq "success"} { return }         puthelp "PRIVMSG $::ExpChan 0,3CONN: 5[regsub -all {([^:]+:)} $nick ""]- 3IP14: [dict get $data query] - 3Shteti14: [dict get $data country] - 3Qyteti14: [dict get $data city] - 3ISP14: [dict get $data asname] - 3Mobile4: [dict get $data mobile] - 3VPN-Proxy4: [dict get $data proxy]"} else {         putcmdlog "Error! it fails to get data for this $host"      }   }   return 0}