| saywhat | 09 Eylül 2013 23:56 |
Cevap: DNS çözümleme:
şu satırı : Kod:
set a [lindex [split $text] 0]
şunla değişirsek kod içinde: Kod:
set a [join [lrange [split $text] 0 end]]
diğer -flagları + gelişmiş arama özelliklerinide kullanabiliriz.
(onlar başta hesapta yoktu.)
yani : Kod:
;# 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...."
bu şekil tüm gelişmiş arama özellikleriyle kullanabiliriz. ->> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | 