kodun tepesine (bind satırlarının üstüne) :
Kod: Kodu kopyalamak için üzerine çift tıklayın!
set agalar {
"halamin-kizinin.kocasinin.ucuncu-kusaktan-kuzeninin-ilkokuldan-arkadasinin.babasinin-asker.arkadasi.com"
"uy-topragim.net"
"bubamin-oglu.com"
"emcemin-kayni.info"
}
komutları kullanma yetkisi verilecek kişilerin hostlarını girin ( alt alta " " tırnaklar içine alarak *!*@ gerek olmadan ,örneklerdeki gibi giriniz.) ( not: wildcard da kullanabilirsiniz .bu hostlarda ... sıkıntı olmaz...)
bind'lerin tetiklediği iki proc/prosedür var : doTimebomb ve doCutWire (kodun sonunda/altında yer alan iki proc/prosedür) bu iki "ana" proc üzerinden diğerlerine bağlanılıyor/işlem yaptırıyor.
bu her iki proc satırının bir altlarına gelecek şekilde :
Kod: Kodu kopyalamak için üzerine çift tıklayın!
set hostunuz [lindex [split $uhost "@"] 1]
foreach kaytar $::agalar {
if {![string match -nocase $hostunuz $kaytar]} {
puthelp "notice $nick :$::lastbind komutunu kullanmaya yetkiniz yok..."
return 0
}
}
satırlarını her iki proc doTimebomb ve proc doCutWire başına ekleyin.böylece bind'lerdeki komut/lar ile çağrılacak prosedürler ilk evvel ,komutu kullanan kişinin hostunu ,set agalar { ayarında ekli listelenmiş herbir hostla karşılaştıracak eşleşmiyorsa "yetkiniz yok" kişiye notice atacak ve prosedür sıfırlanacak/son bulacak...
Diğer deyişle ,sadece bu hostlara sahip kişiler prosedür/leri, komutla (bind) çağırıp/işletebilecek....
(doCutWire proc'una da eklenirse , komutları kullanma yetkisi verilmiş kişiler haricinde "ellerine bomba tutuşturulmuş kişilerin, doğru rengi seçipte kurtulma şansıda olmayacaktır. yani sadece ,yetki verilmiş kişilerin bu komuta erişimi olacaktır. o nedenle diğer kişilere (yetki verilmemiş kişilerin de doğru kabloyu bulma şansı olsun*) deniyorsa bu doCutWire proc'una yukardaki kodu eklemeyin.)