DNS. Tcl

[No_FeaR]

bind pub mnf|oaf !dns resolver_dns

proc resolver_dns {nick uhost hand chan text} {
if {![channel get $chan dns]} { return }
set q [lindex [split $text] 0]
if {[llength $q] eq 0} {
putserv "privmsg $chan :Usage : \002$::lastbind <host/nick>\002"
return 0
}
if {(![string match "*.*" $text]) && ([onchan $text $chan]) \
&& ([regexp -line -- {!?([a-f0-9]{1,4})\:([a-f0-9]{1,4})\:([a-f0-9]{1,4})\:.*$} $q] ne 1)} {
set q [lindex [split [getchanhost [lindex [split $text] 0] $chan] @] 1]
if {[string length $q]} { set text $q }
}
if {([regexp -line -- {!?([\d]{1,3}\.[\d]{1,3}\.[\d]{1,3}\.[\d]{1,3})$} $q] ne 0) \
|| ([regexp -line -- {!?([a-f0-9]{1,4})\:([a-f0-9]{1,4})\:([a-f0-9]{1,4})\:.*$} $q] eq 1)} {
putserv "privmsg $chan :Only valid \"host\" or \"nick\" please. k thnx"
return
}
if {[regexp -line -- {!?([\d]{1,3}\.[\d]{1,3}\.[\d]{1,3}\.[\d]{1,3})$} $q] eq 0} {
putserv "privmsg $chan :\00304->\003 [dnslookup $q f]"
}
return
}

proc f {a b c} { if {$c} { return \002$a\002 } { return \002$b\002 }}

setudef flag dns

putlog "ok..."

Yapımcısı ; saywhat