MircALem.gen.tr

alias logs {
  window -aekl21S @Log Verdana 12
  .titlebar @Log Dosyalar? ...
  editbox @Log Ekranda arama yapaca??n?z kelimeyi buraya girin...
  echo 7 @Log $findfile($logdir,*.log,0,aline -l 6 @Log $remove($1-,$logdir)) adet dosya mevcut
  echo 12 @Log Görüntülemek istedi?iniz dosyay? seçin.
}
menu @Log {
  lbclick:{
    clear @Log | loadbuf @Log $+($shortfn($logdir),$line(@Log,$1,1))
    window -b @Log
  }
  $iif(!$sline(@Log,0),$style(2)) ??lem
  .Bilgi: {
    aline @Log $str(-,5)
    aline @Log 4Dosya bilgileri...
    aline @Log 2Boyutu     :7 $bytes($file($+($logdir,$$1)).size).suf
    aline @Log 2Dosya Ad?  :7 $$1
    aline @Log 2Dosya Yolu :7 $logdir $+ $$1
    aline @Log 2?lk oturum :7 $replace($asctime($file($+($logdir,$$1)).ctime),mon,Pazartesi,tue,Sal?,wed,Çar?amba,thu,Per?embe,fri,Cuma,sun,Pazar,jan,Ocak,Feb,?ubat,Mar,Mart,sat,Cumartesi,apr,Nisan,May,May?s,Jun,Haziran,Jul,Temmuz,Aug,A?ustos,Sep,Eylül,Oct,Ekim,Nov,Kas?m,Dec,Aral?k)
    aline @Log 2Son kapan??:7 $replace($asctime($file($+($logdir,$$1)).mtime),mon,Pazartesi,tue,Sal?,wed,Çar?amba,thu,Per?embe,fri,Cuma,sun,Pazar,jan,Ocak,Feb,?ubat,Mar,Mart,sat,Cumartesi,apr,Nisan,May,May?s,Jun,Haziran,Jul,Temmuz,Aug,A?ustos,Sep,Eylül,Oct,Ekim,Nov,Kas?m,Dec,Aral?k)
    aline @Log $str(-,5)
  }
  .Listeden Ç?kar:dline -l @Log $sline(@Log,1).ln
  .Tamamen Sil:{
    clear @Log
    .remove $+($shortfn($logdir),$$1)
    echo 4 @Log $$1 dosyas? silindi.
    dline -l @Log $sline(@Log,1).ln
  }
  .Dosya Arama: {
    var %t = $$?=\\"Aranacak kelimeyi girin\\"
    if $findfile($logdir,$+(*,%t,*).log,0) {
      clear @Log
      clear -l @Log
      echo 5 @Log $findfile($logdir,$+(*,%t,*).log,0,aline -l 6 @Log $remove($1-,$logdir)) adet dosya mevcut
    }
    else { clear @Log | echo 4 @Log Arama kay?tlar?nda $qt(%t) bulunamad?... }
  }
  .Tüm Liste:clear @Log | clear -l @Log | echo 7 @Log $findfile($logdir,*.log,0,aline -l 6 @Log $remove($1-,$logdir)) adet dosya mevcut
}
on *:input:@Log:{
  if $left($1,1) == / { return }
  if $fline(@Log,$+(*,$1-,*),0) {
    aline 3 @Log || Arama yap?l?yor ||
    var %Jenk = 1, %\\\' = ||
    while %Jenk <= $fline(@Log,$+(*,$1-,*),0) {
      if ($mid($fline(@Log,$+(*,$1-,*),%Jenk).text,1,2) != %\\\') {
        aline -p @Log || $+ $fline(@Log,$+(*,$1-,*),%Jenk).text
      }
      inc %Jenk
    }
    aline 5 @log || Arama sona erdi ||
  }
  else { aline 4 @Log || Arama kayd? bulunamad? || }
}
VN:F [1.1.8_518]