LakLakSohbet.Com Paylasim Platformu

LaklakSohbet.Com Paylaşım Platformu

Kayıt Ol
 
SMF - Henüz Yeni Yüklendi!

Log Okuma Sistemi
Okunma sayısı 171 defa
17 Aralık 2017, 18:37:13
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,)
}
}
« Son Düzenleme: 17 Aralık 2017, 19:05:39 Gönderen: KingofNight »

Kayıtlı
tyfozel