Ip Check for Eggdrop
Platform: TCL
Published Jun 20, 2011
Updated Feb 11, 2012
This script grabs some ip information from
www.melissadata.com and returns it to irc.
Default trigger is: !ipinfo
Syntax: !ipinfo 1.2.3.4
Chanset: +ipinfo
ScreenShot:
##############################################################################################
## ## Ipinfo.tcl for eggdrop by Ford_Lawnmower irc.geekshed.net #Script-Help ## ##
##############################################################################################
## To use this script you must set channel flag +ipinfo (ie .chanset #chan +ipinfo) ##
##############################################################################################
##############################################################################################
## ## Start Setup. ## ##
##############################################################################################
## Change the character between the "" below to change the command character/trigger. ##
set Ipinfocmdchar "!"
proc Ipinfo {nick host hand chan search} {
if {[lsearch -exact [channel info $chan] +ipinfo] != -1} {
## Change the format codes between the "" below to change the color/state of the text. ##
set titlef "\0034"
set textf "\003\002"
##############################################################################################
## ## End Setup. ## ##
##############################################################################################
set Ipinfosite "www.melissadata.com"
if {$search == ""} {
putserv "PRIVMSG $chan :${textf}You must provide an ip address to check!"
} else {
set Ipinfourl "/lookups/iplocation.asp?ipaddress=${search}"
if {[catch {set Ipinfosock [socket -async $Ipinfosite 80]} sockerr]} {
putlog "$Ipinfosite $Ipinfourl $sockerr error"
return 0
} else {
puts $Ipinfosock "GET $Ipinfourl HTTP/1.0"
puts $Ipinfosock "Host: $Ipinfosite"
puts $Ipinfosock "User-Agent: Opera 9.6"
puts $Ipinfosock ""
flush $Ipinfosock
while {![eof $Ipinfosock]} {
set Ipinfovar " [gets $Ipinfosock] "
if {[regexp {<div align='center' class='Lookupserror'>([^<]*)<b>([^<]*)<\/b>([^<]*)<br>([^<]*)<\/div>} $Ipinfovar]} {
putserv "PRIVMSG $chan : ${titlef}Syntax error: ${textf}Ip must be in the form of 1.2.3.4"
close $Ipinfosock
return 0
} elseif {[regexp {<td class='columresult'>([^<]*)<\/td><td align='left'><b>([^<]*)<\/b><\/td><\/tr>} $Ipinfovar]} {
set IPResult [regexp -all -inline {<td class='columresult'>([^<]*)<\/td><td align='left'><b>([^<]*)<\/b><\/td><\/tr>} $Ipinfovar]
set IPResults "${titlef}[lindex $IPResult {1}]: ${textf}[lindex $IPResult {2}] [lindex $IPResult {3}]"
putserv "PRIVMSG $chan : [ipinforecode $IPResults]"
}
}
close $Ipinfosock
return 0
}
}
}
}
proc ipinforecode { textin } {
return [string map {" \" · "" & & ""} [subst [regsub -nocase -all {&#([0-9]{1,5});} $textin {\u\1}]]]
}
bind pub - ${Ipinfocmdchar}ipinfo Ipinfo
setudef flag ipinfo
putlog "Ipinfo Script by Ford_Lawnmower successfully loaded! irc.geekshed.net #Script-Help"
