yine bir kullanıcının isteği üzerine yazdığım küçük scriptlerden biri...
ne iş yapar :
komutla istenen dosyanın (.uzantısı fark etmez .txt , .tcl .conf vs vs ..) kaç satır olduğunu ve boyutunu verir.
sorgulanmak istenen dosya, bot ana dizinindeyse (misal ; eggdrop.conf vs ise) direk dosya adıyla sorgu yapılabilir. ancak ,bilgi istenen dosya, botun alt dizinlerinden birindeyse yada bot dizini dışında bir yerdeyse,o halde scriptin bulabilmesi için dosyanın diziniyle sorgulanmalı....
örnek : bota yüklü bir scriptin boyutu sorgulanacaksa ,scripts/ dizini içinde olacağından
.dosya scripts/falanca.tcl
şeklinde sorgulanmalı yada ;
.dosya /home/kullanıcı/.bash_history
yada :
.dosya /home/kullanıcı/bot/scripts/filan.tcl
Kod: Kodu kopyalamak için üzerine çift tıklayın!
bind pub - ".dosya" line_counter
proc line_counter {nick uhost hand chan text} {
set myfile [lindex [split $text] 0]
if {[llength $myfile] eq "0"} {
puthelp "privmsg $chan :Kullanımı : $::lastbind <dosya-adı>"
return 0
} elseif {[file exists $myfile] && [llength $myfile] > "1"} {
puthelp "privmsg $chan :$myfile adında birden fazla dosya var."
return 0
} elseif {![file readable $myfile] || ![file exists $myfile] || [file isdirectory $myfile]} {
puthelp "privmsg $chan :$myfile okunamıyor.böyle bir dosya yok yada bir dizin adı olabilir."
return 0
} else {
set infile [open "$myfile" r]
set number 0
while {[gets $infile line] >= "0"} {
incr number
}
close $infile
if {[format %.2f [expr {[file size $myfile] / 1024.0}]] > "1024.0"} {
set size "[format %.3f [expr {[file size $myfile] / 1024.0 / 1024.0}]] MB"
} else {
set size "[format %.2f [expr {[file size $myfile] / 1024.0}]] KB"
}
puthelp "privmsg $chan :$myfile $number satır, boyutu : $size"
}
}
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
buraya postaladığım o kişiye yazdığım orjinal scriptin tercümesidir...