egghelp/eggheads community

ip-2-country.tcl - some Notice problems

2012-01-17T16:21:00-04:00

What type of look-up are you trying to get?

Because you can always use my whereis script to get geo-locations of users/IP's/host's. Maybe this will work for you?
!whereis 95.76.180.124
Ip: 95.76.180.124; Country code: RO; Country: Romania; State: Buzau; City: Buzau; Latitude: 45.1500; Longitude: 26.8333; Isp of this ip: UPC Romania SRL; Organization: UPC Romania BUZAU
Local time in romania: 2012-01-14 20:35

Yes, that's what I am looking for but your script doesn't seem to be working for me, I keep getting
"95.76.180.124 returns no useful information for me to reply with... ;/"

also when I do !wlogin I get
"Whereis: Account quota appears to have been exceeded...
Whereis: Logout Successful! Never logged in..."

but the account is newly made :/

Statistics: Posted by vladdeh — Tue Jan 17, 2012 4:21 pm

ip-2-country.tcl - some Notice problems

2012-01-14T14:41:54-04:00

What type of look-up are you trying to get?

Because you can always use my whereis script to get geo-locations of users/IP's/host's. Maybe this will work for you?

!whereis 95.76.180.124
Ip: 95.76.180.124; Country code: RO; Country: Romania; State: Buzau; City: Buzau; Latitude: 45.1500; Longitude: 26.8333; Isp of this ip: UPC Romania SRL; Organization: UPC Romania BUZAU
Local time in romania: 2012-01-14 20:35

Statistics: Posted by speechles — Sat Jan 14, 2012 2:41 pm

ip-2-country.tcl - some Notice problems

2012-01-13T20:23:26-04:00

That would be an issue with either ip2c_proc_pub doing a dns lookup when you already have an IP-address, or in dns_callback bailing out if the dnslookup status is 0 (failed to resolve) even if we still do have the ip address.

Statistics: Posted by nml375 — Fri Jan 13, 2012 8:23 pm

ip-2-country.tcl - some Notice problems

2012-01-13T20:11:36-04:00

Well, that's not a problem with the script, but is due to the fact that the IP address 95.76.180.124 can't be resolved to a dns-name.

* user is user@95.76.180.124 * user
<@me> !ip2c 95.76.180.124
<@bot> Mapped IP (95.76.180.124) to (Romania)
<@me> !ip2c user
<@bot> Couldn't assosicate an ip with (95.76.180.124)

If it probably works doing !ip2c the IP of user shouldn't it also work when doing !ip2c nick? I was expecting !ip2c to return the country of origin of the nick like it does when using the ip of the same person

Statistics: Posted by vladdeh — Fri Jan 13, 2012 8:11 pm

ip-2-country.tcl - some Notice problems

2012-01-13T19:47:37-04:00

Well, that's not a problem with the script, but is due to the fact that the IP address 95.76.180.124 can't be resolved to a dns-name.

Statistics: Posted by nml375 — Fri Jan 13, 2012 7:47 pm

ip-2-country.tcl - some Notice problems

2012-01-13T19:43:34-04:00

There's an error at these lines:

Code:

} else {    foreach {x} [split $error_format \n] {      if {[string equal {} $x]} {continue}      putserv "PRIVMSG $chan :[string trimleft [string map [list %e $lookup] $x]]"    }  }

Most likely, $lookup should've been $arg.

Code:

} else {    foreach {x} [split $error_format \n] {      if {[string equal {} $x]} {continue}      putserv "PRIVMSG $chan :[string trimleft [string map [list %e $arg] $x]]"    }  }

thanks that fixed !ip2c IP but !ip2c nick is still not working

<@me> !ip2c nick
<@Bot> Couldn't assosicate an ip with (95.76.180.124)

Statistics: Posted by vladdeh — Fri Jan 13, 2012 7:43 pm

ip-2-country.tcl - some Notice problems

2012-01-13T18:58:31-04:00

There's an error at these lines:

Code:

} else {    foreach {x} [split $error_format \n] {      if {[string equal {} $x]} {continue}      putserv "PRIVMSG $chan :[string trimleft [string map [list %e $lookup] $x]]"    }  }

Most likely, $lookup should've been $arg.

Code:

} else {    foreach {x} [split $error_format \n] {      if {[string equal {} $x]} {continue}      putserv "PRIVMSG $chan :[string trimleft [string map [list %e $arg] $x]]"    }  }

Statistics: Posted by nml375 — Fri Jan 13, 2012 6:58 pm

ip-2-country.tcl - some Notice problems

2012-01-13T18:08:13-04:00

That seems rather odd. The dnslookup command in 1.6.20 accepts 2 or more arguments, and uses a callback mechanism. Also, the error message for incorrect arguments looks as follows in 1.6.20
Code:
Tcl error: wrong # args: should be "dnslookup ip-address/hostname proc ?args...?"
Are you using any other scripts that might've replaced the dnslookup command?

Hmm looks like you were right, I had a script that was messing with it, it's fixed now but script is still bugged

This is what I get when I do !ip2c for a nick
!ip2c Nick
Couldn't assosicate an ip with (95.76.180.24)

And this is what I get when I do !ip2c IP
[22:07:12] Tcl error [ip2c_proc_pub]: can't read "lookup": no such variable

Surprinsgly it works properly if I do !ip2c Nick on a nick that has a hostname...doesnt work on a nick that has an IP

Statistics: Posted by vladdeh — Fri Jan 13, 2012 6:08 pm

ip-2-country.tcl - some Notice problems

2012-01-10T13:59:04-04:00

That seems rather odd. The dnslookup command in 1.6.20 accepts 2 or more arguments, and uses a callback mechanism. Also, the error message for incorrect arguments looks as follows in 1.6.20

Code:

Tcl error: wrong # args: should be "dnslookup ip-address/hostname proc ?args...?"

Are you using any other scripts that might've replaced the dnslookup command?

Statistics: Posted by nml375 — Tue Jan 10, 2012 1:59 pm

ip-2-country.tcl - some Notice problems

2012-01-09T23:31:53-04:00

The fact that the dnslookup command only accepts one argument suggests that you are using an eggdrop that predates Dec 26 1999... Which would most likely be a 1.3.x eggdrop?

I think it's safe to say that this script was written for 1.6 eggdrops, and that there'd be a fair deal of work backporting this script for those older branches.

I'm using Eggdrop v1.6.20 :/

Statistics: Posted by vladdeh — Mon Jan 09, 2012 11:31 pm

ip-2-country.tcl - some Notice problems

2012-01-09T16:36:12-04:00

The fact that the dnslookup command only accepts one argument suggests that you are using an eggdrop that predates Dec 26 1999... Which would most likely be a 1.3.x eggdrop?

I think it's safe to say that this script was written for 1.6 eggdrops, and that there'd be a fair deal of work backporting this script for those older branches.

Statistics: Posted by nml375 — Mon Jan 09, 2012 4:36 pm

ip-2-country.tcl - some Notice problems

2012-01-09T14:33:26-04:00

Could someone please fix this

Code:

##  TCL scripts by Ofloo all rights reserved.##  HomePage: http://ofloo.net/#  CVS: http://cvs.ofloo.net/#  Email: support[at]ofloo.net##  This program is free software; you can redistribute it and/or#  modify it under the terms of the GNU General Public License#  as published by the Free Software Foundation; either version 2#  of the License, or (at your option) any later version.##  This program is distributed in the hope that it will be useful,#  but WITHOUT ANY WARRANTY; without even the implied warranty of#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the#  GNU General Public License for more details.##  You should have received a copy of the GNU General Public License#  along with this program; if not, write to the Free Software#  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.###  Requires lib ip2c#  svn co https://narf.ofloo.net/svn/ip2c.tcl/trunk ip2c### Now supports ipv6 lookups, reserved ranges are returned with abbreviation ZZ#package require ip2cpackage require ip## Change the command trigger#set trigger "!ip2c"## Change the bind permissions#set permis "-|-"## Cookie list# %2 : Two letter country abbreveration# %3 : Tree letter country abbreveration# %c : Full country name# %i : IP# %a : Time allocated IP space# %r : Assinged registry#set message_format "Mapped IP \(\002%i\002\) to \(\002%c\002\)"## Error locate for input# %e : locate input#set error_format "No result found for \(\002%e\002\)"## DNS error# %i : Failed IP# %h : Failed host#set dns_format "Couldn't assosicate an ip with \(\002%h\002\)"## Time output format http://tcl.tk/man/tcl8.5/TclCmd/clock.htm#M26 for more information#set time_format {%D}##  DO NOT EDIT BELOW#set ip-to-country 0.8proc locate {chan arg}  {  global message_format error_format time_format  if {[ip2c::locate -ip $arg]} {    foreach {x} [split $message_format \n] {      if {[string equal {} $x]} {continue}      set i 0      foreach {n} [ip2c::abbr -short] {        array set short [list $i $n]        incr i      }      set i 0      foreach {n} [ip2c::abbr -long] {        array set long [list $i $n]        incr i      }      set i 0      foreach {n} [ip2c::country] {        array set country [list $i $n]        incr i      }      set i 0      foreach {n} [ip2c::country] {        array set country [list $i $n]        incr i      }      set i 0      foreach {n} [ip2c::assigned] {        array set assigned [list $i $n]        incr i      }      set i 0      foreach {n} [ip2c::registry] {        array set registry [list $i $n]        incr i      }      for {set i 0} {$i < [llength [ip2c::assigned]]} {incr i} {        putserv "PRIVMSG $chan :[string trimleft [string map [list \          %2 $short($i) \          %3 $long($i) \          %c [join $country($i)] \          %i [ip2c::address] \          %a [clock format $assigned($i) -format [list $time_format]] \          %r $registry($i) \        ] $x]]"      }    }    ip2c::cleanup  } else {    foreach {x} [split $error_format \n] {      if {[string equal {} $x]} {continue}      putserv "PRIVMSG $chan :[string trimleft [string map [list %e $lookup] $x]]"    }  }}proc dns_callback {ip host status chan}  {  global dns_format  if {$status} {    locate $chan $ip  } else {    foreach {x} [split $dns_format \n] {      if {[string equal {} $x]} {continue}      putserv "PRIVMSG $chan :[string trimleft [string map [list %i $ip %h $host] $x]]"    }  }}proc ip2c_proc_pub {nick host hand chan arg}  {  set locate [lindex [split $arg] 0]  if {[ip::is ipv4 $locate] || [ip::is ipv6 $locate]} {    locate $chan $locate  } else {    if {[string equal {} $locate]} {      dnslookup [lindex [split [getchanhost $nick] @] end] dns_callback $chan    } else {      dnslookup [lindex [split [getchanhost $locate] @] end] dns_callback $chan    }  }}bind pub $permis $trigger ip2c_proc_pubputlog "Loaded ip-to-country script ${ip-to-country}"

when doing !ip2c IP it works fine

but when I do !ip2c it returns Tcl error [ip2c_proc_pub]: wrong # args: should be "dnslookup host"

Statistics: Posted by vladdeh — Mon Jan 09, 2012 2:33 pm

ip-2-country.tcl - some Notice problems

2011-11-22T20:57:12-04:00

By all means I'd like to ask for a feature for tcl developers.

First, could you offer the downloadable database again? I don't like the idea to do a http request on your server for every query and you probable also wouldn't like it if I do a ip2c request for everyone in channel every few hours. (for a statistics script)

As a tcl developer I'd like to have a small proc. Like:

Code:

proc ip2country { hostname_or_ip } { set country [...do the magic...] return $country}

Example:

.tcl ip2country xxx.adsl.com
US

Somehow like this. If that is not possible without callback then with callback...

Probable I could hack your script to do that, I've done that in past. But now there is a new version, new database and I forgot how to do so. Unfortunately I am very bad at understanding source written by someone else, takes long. Of course that is not your fault, your code is fine, it's my weakness.

I hope I am not asking for something difficult or to much. So it would be great if you could offer the downloadable database and such a function (proc) for developers.

Statistics: Posted by desired — Tue Nov 22, 2011 8:57 pm

ip-2-country.tcl - some Notice problems

2011-08-19T03:25:47-04:00

Well i noticed ip-to-coutry that was used with the old script was outdated, .. and ip-to-country site where i used to get my data hasn't updated it's csv since 2010 so i figured it was time to start doing something about it it

anyone who wants to use these server feel free, i've set them up to update the data base monthly, .. since the previous source isn't doing it so ..

oh also i noticed overlapping masks in ipv6 i think this has to do with tunnel providers, .. they show as reserved (ZZ) and show a country as the sample above, .. also normal an 6to4 address shows reserved range however i just mapped it back to it's ipv4 range.

http://api.ip2c.info/xml/10.0.0.1

supported xml, json, csv, null, if you just null it shows csv format by default and shows where your ip is located.

Sorry didn't write an info or intro whatever had little to much work, if there is any issues let me know.

if there's any suggestions or features to the script let me know, .. please don't ask for city, geo location whatever this is ridiculously inaccurate, it only shows the location of the ISP not the real location of the IP, for example my isp is located in sint-niklaas, BE so when i geolocate my ip it shows that info while i'm at the other side of the country, .. so basically only shows the location of the isp's office, because ip2c databases get their records from whois records. shared by registry. So every script that is going to pinpoint your location on the hand of your IP is just providing you with false information, .. unless the ISP is a local ISP, or if the ISP set whois records according to location. Though the country seems to be correct in most cases. Because registry require this unless it's an IPN ofcourse.

Statistics: Posted by Ofloo — Fri Aug 19, 2011 3:25 am

ip-2-country.tcl - some Notice problems

2011-08-18T08:02:53-04:00

Statistics: Posted by DmitRex — Thu Aug 18, 2011 8:02 am