Log Okuma Sistemi

Aşağıdaki kod kanalda mause üzerinde sağ tuşa tıkladığımızda kanal menüsü içerisinde log tarama sistemini gösterecektir.
Mevcut log tutulmuş kanallar menüyü açtığımız penceredeki kanalı:  #kanal <– şeklinde görünecektir.
Nick logları içinse: özel loglar <— kısmına tıklıyoruz ve logunu görüntülemek istediğimiz nick’i açılan pencereye yazıyoruz.
Gayet geliştirilmiş bir log okuma sistemi.
KOD;

menu channel {
Loglar menüsü
.# logu:kanal #
.Özel logları:falan $$?=”Log’unu okumak istediginiz nick’i giriniz:”
}
alias falan {
if $findfile($logdir,$+($1,*),0) >= 1 {
var %1 = $v1
$iif($input(Aradığınız nick için %1 adet veri bulundu açmak istiyormusunuz?,w) == $false,halt)
var %2 = 1,%3 = $findfile($logdir,$+($1,*),0)
while %2 <= %3 { run $findfile($logdir,$+($1,*),%2) | inc %2 }
}
else {
var %/ = $1,%½ = $left($1,1)
$iif($input(Aradığınız %/ nick’i için uygun kayıt bulunamadı. %½ harfi ile başlıyan loglar listelensinmi?,w) == $false,halt)
echo -at $left($1,1) ile başlıyan loglar sıralanıyor.
echo -at $findfile($logdir,$+($left($1,1),*),0,echo -at $gettok($1-,$numtok($1-,92),92))
}
}
alias kanal {
if $findfile($logdir,$+($1,*),0) >= 1 {
var %1 = $v1, %% = $1
$iif($input(Aradığınız %% kanal’ı için %1 adet veri bulundu açmak istiyormusunuz?,w) == $false,halt)
var %2 = 1,%3 = $findfile($logdir,$+($1,*),0)
while %2 <= %3 {
run $findfile($logdir,$+($1,*),%2)
inc %2
}
}
else {
var %& = $1
$input(%& kanal’ı için herhangi bir kayıt bulunamadı,ohud,UYARI,)
}
}