IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

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:

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"

    }

}

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
buraya postaladığım o kişiye yazdığım orjinal scriptin tercümesidir...