Log Okuma Sistemi

Aşağıdaki kod kanalda mause üzerinde sağ tuşa tıkladığımızda kanal ü içerisinde tarama sistemini gösterecektir.


Gayet geliştirilmiş bir .
KOD;

menu channel {
Loglar menüsü
.# logu:kanal #
.Özel logları:falan $$?=”Log'unu okumak istediginiz nick'i giriniz:”
}
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)

}
else {
var %/ = $1,%½ = $left($1,1)
$iif($input(Aradığınız %/ nick'i için uygun kayıt bulunamadı. %½ harfi 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)

run $findfile($logdir,$+($1,*),%2)
inc %2
}
}
else {
var %& = $1
$input(%& kanal'ı için herhangi bir kayıt bulunamadı,ohud,UYARI,)
}
}

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir