Tcl Domain

################################
### Domain.tcl
### Version 1.0
### edit By Arch_fajri
### arch_fajri@yahoo.co.id
### http://lampunghacker.blogspot.com
### Google@allnetwork
### Desember @ 2010
################################

bind pub - !owner owner
proc owner {nick host handle chan text} {

set server "isfree.schlundtec.com"
set port 80
set l 14
set i 0
set path "/cgi-bin/isfree.cgi?nodesign=1&domain=[lindex $text 0]"
set sockdw [socket $server $port]

puts $sockdw "GET $path HTTP/1.0"
puts $sockdw "User.Agent:Mozilla"
puts $sockdw "Host: $server"
puts $sockdw ""

flush $sockdw
while {$i <= $l} {
gets $sockdw linedw
putlog $linedw
if {[string match "*Domain*frei*" $linedw]} {
putserv "PRIVMSG $chan :DOMAIN [lindex $text 0] is not exist"
close $sockdw
return 0
}
if {[string match "*Domain*registriert*" $linedw]} {
gets $sockdw
putserv "PRIVMSG $chan :Owner : [html [gets $sockdw]]"
putserv "PRIVMSG $chan :Address : [html [gets $sockdw]]"
putserv "PRIVMSG $chan :City : [html [gets $sockdw]]"
putserv "PRIVMSG $chan :Country : [html [gets $sockdw]]"
close $sockdw
return 0
}
incr i
}
close $sockdw
}

Download di sini