Need help with IPinfo Script

[nobody]

Forgot to reply back. Script works flawless now. Thank you

can you post the complete working script here bro , if you don't mind?

[simo]

Code: Select all

package require http
package require json

bind pub m|- !ginfo Pub:Geo:INFO

proc Pub:Geo:INFO {nick uhost hand chan text} {
   if {[scan $text {%s} lookup] != 1} {
      puthelp "NOTICE $nick :Error, syntax is: !Ginfo <ip>"
      return
   }
   if {![regexp {([0-9]+\.)([0-9]+\.)([0-9]+\.)([0-9]+)} $lookup]} {
      puthelp "NOTICE $nick :Error, the IP you mentioned is not valid."
      return
   }
   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]
   foreach ele {ip hostname city region country loc postal phone org} {
      set $ele [expr {[lsearch $keys $ele] > -1 ? [dict get $json $ele] : "n/a"}]
   }
   puthelp "NOTICE $nick :IP: $ip - Hostname: $hostname - City: $city - Region: $region - Country: $country - Location: $loc - Organization: $org"
}

[caesar]

And the version that uses ip library to do the IP v4 and v6 validation rather than that regexp that won't match IP v6:

Code: Select all

package require http
package require json
package require ip

bind raw - NOTICE server:notices

proc server:notices {from keyword text} {
	if {![string match -nocase "*client connecting*" $text]} return
	set lookup [lindex [split $text] 6]
	if {[::ip::version $lookup] < 4} return
	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]
	foreach ele {ip hostname city region country loc postal phone org} {
		set $ele [expr {[lsearch $keys $ele] > -1 ? [dict get $json $ele] : "n/a"}]
	}
	puthelp "PRIVMSG #Opers :$nick -  $ip - $country"
}

[nobody]

this is good for ircop?

[nobody]

how to see errors?

<guy> witch rehash
-witch- Reloading scripts/settings..
<guy> !test
-witch- Error, syntax is: !Ginfo <ip>
<guy> !test 1.1.1.1


- no response at all im currently using blackip.tcl using ip-info.com service but i found ipinfo.io near to accurate.

[BLaCkShaDoW]

Hello, why do you say that ipinfo.io is more accurate then the the source from BlackIP.tcl ?

[nobody]

good morning, because that's my opinion when i tried checking the ip on both website.

[caesar]

The command is !ginfo ip not !test ip, unless you changed the command from !ginfo to !test.

[RoKiTo]

Will you be able to adapt this api please caesar
https://proxycheck.io/v2/2806:10be:a:76 ... :6b6c:7a23

{
"status": "ok",
"2806a:7699:e094:f36d:6b6c:7a23": {
"proxy": "no",
"type": "Business"
}
}