Tcl Dns

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

#--------------------------------------------------------------------------
# !Dns Version 3.1 Based on Script by I_strike - edited by depthCoRE team!
# Commands:
# !dns
# !User@host
# !dnsnick
# !amsg
#-------------------------------------------------------

# SET THE CHARACTER THAT WILL BE USED BEFORE PUBLIC QUERRIES
# EXAMPLE: "#" => #seen, #op .... DEFAULT: "!"

set dnshost(cmdchar) "!"


#-----------------please don't CHANGE ANY OF THE FOLLOWING LINES----------------------
bind pub - [string trim $dnshost(cmdchar)]dns dns:res
bind pub n|n [string trim $dnshost(cmdchar)]amsg pub:amsg
bind pub - [string trim $dnshost(cmdchar)]userhost pub:host
bind pub - [string trim $dnshost(cmdchar)]version pub:ver
bind pub - [string trim $dnshost(cmdchar)]dnsnick dns:nick
bind raw * 311 raw:host
bind raw * 401 raw:fail

set dns_chan ""
set dns_host ""
set dns_nick ""
set dns_bynick ""

proc pub:host {nick uhost hand chan arg} {
global dns_chan
set dns_chan "$chan"
putserv "WHOIS [lindex $arg 0]"
}

Download di sini