set a [lindex [split $text] 0]

set a [join [lrange [split $text] 0 end]]

;# komut başına gelecek sembol-işaret ne olacak:
set semb "!"

;# hangi komutla sorgu yapılacak:
set kmt "dns"

;# gösterilmesini istediğiniz maksimum satır sayısı:
set sonuc "5"

;# komutları kullanma hakkı hangi kullanıcı flaglarına tanınacak:
set kflags "mn|oa"

;#############ayarlar bitti############################################################################### 

bind pub $::kflags $::semb$::kmt dns:captcha

 proc dns:captcha {nick uhost hand chan text} {
  set a [join [lrange [split $text] 0 end]]
  if {$a == ""} { puthelp "privmsg $chan :\002kullanımı :\002 \00314$::lastbind IP/host/domain\00304 ..." return 0;}
  set b "host $a"
  catch {eval exec $b} c
  set output $c
  set i 0
  foreach line [split $output "\n"] {
    if {$i == $::sonuc} break
	set out [string map -nocase {
	"compares SOA records on authoritative nameservers" "SOA kayıtlarıyla geçerli sunucuları karşılaştırır"
	"specifies query class for non-IN data" "IN olmayan veri sorgu sınıfı"
	"usage" "kullanımı" "class" "sınıfı" "type" "türü"
	"time" "süre" "number" "sayısı" "is equivalent to" "eşdeğeri"
	"has no PTR record" "PTR kaydı yok" "3(NXDOMAIN)" ""
	"child process exited abnormally" "işlem yapılamıyor" "not found" "bulunamadı"
	"has address" "adresi" "is handled by" "tarafından sunuluyor"
	"domain name pointer" "etki alanı sahibi" "has IPv6 address" "IPv6 adresi"
	"is an alias for" "diğer adıyla" "server" "sunucu"} [join $line]]
	
      putserv "privmsg $chan :\00304$out\00304"
     incr i
     }
   return 0
}

putlog "ok...."