| View previous topic :: View next topic |
| Author |
Message |
spithash
Master
Joined: 12 Jul 2007
Posts: 248
Location: Libera
|
 Posted: Sun Sep 08, 2013 1:12 pm Post subject: whoisinfo.tcl help |
 |
|
I am having an "Error" in both of my bots (running from the same machine when I try to trigger this script, could someone help around? or if anyone has a similar script, that would be very very useful to me...
| Code: | ##############################
# whoisinfo.tcl v0.1
##############################
##############################
# SETTINGS
##############################
# version
set whoisinfo(version) "0.1"
# trigger
set whoisinfo(trigger) "!ip"
# whois port
set whoisinfo(port) 43
# ripe server
set whoisinfo(ripe) "whois.ripe.net"
# arin server
set whoisinfo(arin) "whois.arin.net"
# apnic server
set whoisinfo(apnic) "whois.apnic.net"
# lacnic server
set whoisinfo(lacnic) "whois.lacnic.net"
# afrinic server
set whoisinfo(afrinic) "whois.afrinic.net"
##############################
# BINDS
##############################
bind pub - $whoisinfo(trigger) pub_whoisinfo
##############################
# CODE
##############################
proc whoisinfo_setarray {} {
global query
set query(netname) "(none)"
set query(country) "(none)"
set query(orgname) "(none)"
set query(orgid) "(none)"
set query(range) "(none)"
}
proc whoisinfo_display { chan } {
global query
putlog "Firstline: $query(firstline)"
puthelp "PRIVMSG $chan :\[\002IP Whois\002\] Range: $query(range), Netname: $query(netname), Organisation: $query(orgname), Country: $query(country)"
}
proc pub_whoisinfo {nick uhost handle chan search} {
global whoisinfo
global query
whoisinfo_setarray
if {[whoisinfo_whois $whoisinfo(arin) $search]==1} {
if {[string compare [string toupper $query(orgid)] "RIPE"]==0} {
if {[whoisinfo_whois $whoisinfo(ripe) $search]==1} {
whoisinfo_display $chan
}
} elseif {[string compare [string toupper $query(orgid)] "APNIC"]==0} {
if {[whoisinfo_whois $whoisinfo(apnic) $search]==1} {
whoisinfo_display $chan
}
} elseif {[string compare [string toupper $query(orgid)] "LACNIC"]==0} {
if {[whoisinfo_whois $whoisinfo(lacnic) $search]==1} {
whoisinfo_display $chan
}
} elseif {[string compare [string toupper $query(orgid)] "AFRINIC"]==0} {
if {[whoisinfo_whois $whoisinfo(afrinic) $search]==1} {
whoisinfo_display $chan
}
} else {
whoisinfo_display $chan
}
} else {
if { [info exist query(firstline)] } {
puthelp "PRIVMSG $chan :\[\002Whois\002\] Firstline: $query(firstline)"
} else {
puthelp "PRIVMSG $chan :\[\002Whois\002\] Error?"
}
}
}
proc whoisinfo_whois {server search} {
global whoisinfo
global query
set desccount 0
set firstline 0
set reply 0
putlog "Whois: $server:$whoisinfo(port) -> $search"
if {[catch {set sock [socket -async $server $whoisinfo(port)]} sockerr]} {
puthelp "PRIVMSG $chan :\[\002Whois\002\] Error: $sockerr. Try again later."
close $sock
return 0
}
puts $sock $search
flush $sock
while {[gets $sock whoisline]>=0} {
putlog "Whois: $whoisline"
if {[string index $whoisline 0]!="#" && [string index $whoisline 0]!="%" && $firstline==0} {
if {[string trim $whoisline]!=""} {
set query(firstline) [string trim $whoisline]
set firstline 1
}
}
if {[regexp -nocase {netname:(.*)} $whoisline all item]} {
set query(netname) [string trim $item]
set reply 1
} elseif {[regexp -nocase {owner-c:(.*)} $whoisline all item]} {
set query(netname) [string trim $item]
set reply 1
} elseif {[regexp -nocase {country:(.*)} $whoisline all item]} {
set query(country) [string trim $item]
set reply 1
} elseif {[regexp -nocase {descr:(.*)} $whoisline all item] && $desccount==0} {
set query(orgname) [string trim $item]
set desccount 1
set reply 1
} elseif {[regexp -nocase {orgname:(.*)} $whoisline all item]} {
set query(orgname) [string trim $item]
set reply 1
} elseif {[regexp -nocase {owner:(.*)} $whoisline all item]} {
set query(orgname) [string trim $item]
set reply 1
} elseif {[regexp -nocase {orgid:(.*)} $whoisline all item]} {
set query(orgid) [string trim $item]
set reply 1
} elseif {[regexp -nocase {inetnum:(.*)} $whoisline all item]} {
set query(range) [string trim $item]
set reply 1
} elseif {[regexp -nocase {netrange:(.*)} $whoisline all item]} {
set query(range) [string trim $item]
set reply 1
}
}
close $sock
return $reply
}
putlog "whoisinfo.tcl v$whoisinfo(version) by JeFFOsZ: loaded."
|
_________________
Libera ##rtlsdr & ##re - Nick: spithash
Click here for troll.tcl |
|
| Back to top |
|
 |
CrazyCat
Revered One
Joined: 13 Jan 2002
Posts: 1032
Location: France
|
| Posted: Mon Sep 09, 2013 8:53 am Post subject: |
|
|
I'd just copy/paste your source in a file, loaded it and tryed:
| Quote: | 14:51:30 <@CrazyCat> !ip 93.24.58.127
14:51:31 <@Artus> [IP Whois] Range: 93.24.0.0 - 93.27.255.255, Netname: N9UF-DYN-DSL, Organisation: Dynamic pools, Country: FR |
Artus is eggdrop 1.6.21
What's the error you get ? On wich eggdrop version ?
_________________
https://www.eggdrop.fr - French IRC network
Offer me a coffee - Do not ask me help in PM, we are a community. |
|
| Back to top |
|
|
spithash
Master
Joined: 12 Jul 2007
Posts: 248
Location: Libera
|
| Posted: Mon Sep 09, 2013 8:58 am Post subject: |
|
|
the error I get is just
| Quote: | | My name is nagger and I am running eggdrop v1.8.0+preinit, on Linux 3.11.0. |
But I've tried it on v1.6.21 too with the same error...
_________________
Libera ##rtlsdr & ##re - Nick: spithash
Click here for troll.tcl |
|
| Back to top |
|
|
CrazyCat
Revered One
Joined: 13 Jan 2002
Posts: 1032
Location: France
|
|
| Back to top |
|
|
spithash
Master
Joined: 12 Jul 2007
Posts: 248
Location: Libera
|
| Posted: Mon Sep 09, 2013 9:15 am Post subject: |
|
|
I just tried the IP you tried
| Quote: | [16:13:27] <@spithash> !ipwhois 93.24.58.127
[16:13:42] <@nagger> [Whois] Error?
|
here's the party line
| Code: | | [16:13] Whois: whois.arin.net:43 -> 93.24.58.127 |
_________________
Libera ##rtlsdr & ##re - Nick: spithash
Click here for troll.tcl |
|
| Back to top |
|
|
CrazyCat
Revered One
Joined: 13 Jan 2002
Posts: 1032
Location: France
|
|
| Back to top |
|
|
spithash
Master
Joined: 12 Jul 2007
Posts: 248
Location: Libera
|
| Posted: Mon Sep 09, 2013 9:34 am Post subject: |
|
|
| Code: | telnet> open whois.arin.net 43
Trying 199.71.0.48...
Connected to whois.arin.net.
Escape character is '^]'.
|
_________________
Libera ##rtlsdr & ##re - Nick: spithash
Click here for troll.tcl |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
