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"
    }
}