xTrivia — File Browser
xTriviav1.0 / xTriviav1.0 / xTriviaByRibellina / xtrivia / bot / Addons / LogMaster.mrc
LogMaster.mrc — 12.26 KB — Download this file
alias logmaster {
:start
if ($window(@LogMaster) == $null) {
window -l16x @LogMaster @LogMaster Verdana 13
window -nls @LogMaster2 Verdana 13
set %logmaster.count 1
:AddLog
set %logmaster.log $findfile($logdir,*.log,%logmaster.count)
if (%logmaster.log == $null) goto end
else {
aline -l @LogMaster2 $nopath(%logmaster.log)
inc %logmaster.count 1
goto addlog }
}
else { window -c @Logmaster | goto start }
:end
set %logmaster.lines $line(@LogMaster2,0,0)
set %logmaster.count 1
:lineadd
if (%logmaster.count > %logmaster.lines) goto end2
else {
aline -l @LogMaster $line(@LogMaster2,%logmaster.count)
inc %logmaster.count 1
goto lineadd
}
:end2
if (%logmaster.about == run) { logmaster.about | set %logmaster.about ran | goto end3 }
aline @LogMaster 8Log Master
aline @LogMaster $chr(160)
aline -p @LogMaster $str($chr(160),4) 8Per visualizzare una conversazione, fai doppio click su di essa nell'elenco laterale. E' anche possibile cliccare con il pulsante destro del mouse per accedere ad altri comandi.
:end3
iline -l @LogMaster 1 8Archivio LOG $str($chr(160),15)
iline -l @LogMaster 2 7 ————————————————— $str($chr(160),175)
window -c @LogMaster2
}
alias logrefresh {
:start
if ($window(@LogMaster) == $null) { logmaster }
else {
clear -l @LogMaster
window -nls @LogMaster2 Arial 11
set %logmaster.count 1
:AddLog
set %logmaster.log $findfile($logdir,*.log,%logmaster.count)
if (%logmaster.log == $null) goto end
else {
aline -l @LogMaster2 $nopath(%logmaster.log)
inc %logmaster.count 1
goto addlog }
}
:end
set %logmaster.lines $line(@LogMaster2,0,0)
set %logmaster.count 1
:lineadd
if (%logmaster.count > %logmaster.lines) goto end2
else {
aline -l @LogMaster $line(@LogMaster2,%logmaster.count)
inc %logmaster.count 1
goto lineadd
}
:end2
iline -l @LogMaster 1 4,1 $chr(160) Log Master %logmaster.version $str($chr(160),15)
iline -l @LogMaster 2 8,1 ————————————————— $str($chr(160),175)
window -c @LogMaster2
}
alias Logview {
if ($2 == $null) {
if ($sline(@LogMaster,1).ln == 1 || $sline(@LogMaster,1).ln == 2 || $sline(@LogMaster,1).ln == $null) { halt }
else {
set %logmaster.file $logdir $+ $sline(@LogMaster,1)
clear @LogMaster
iline @LogMaster 1 4Log Master $str($chr(160),15) 4,1 Visualizzazione: $sline(@LogMaster,1) ( $+ $lof(%logmaster.file) byte - $lines(%logmaster.file) righe) $str($chr(160),175)
titlebar @LogMaster - $sline(@LogMaster,1)
loadbuf -p @LogMaster logs\ $+ $sline(@LogMaster,1)
aline @LogMaster 4,1 Caricato con successo $calc($line(@LogMaster,0) - 1) di $lines(%logmaster.file) righe. $str($chr(160),175)
sline @LogMaster 15
window @LogMaster @LogMaster2
}
}
else {
set %logmaster.file $logdir $+ $2
clear @LogMaster
iline @LogMaster 1 8Log Master $str($chr(160),15) 4,1 Visualizzto: $2 ( $+ $lof(%logmaster.file) byte - $lines(%logmaster.file) righe) $str($chr(160),175)
titlebar @LogMaster - $2
loadbuf -p @LogMaster $logdir $+ $2
sline @LogMaster 15
window @LogMaster @LogMaster2
}
}
alias logview.newwindow {
if ($2 == $null) {
if ($sline(@LogMaster,1).ln == 1 || $sline(@LogMaster,1).ln == 2 || $sline(@LogMaster,1).ln == $null) { halt }
else {
set %logmaster.window @ [ $+ [ $sline(@LogMaster,1) ] ]
set %logmaster.file $logdir $+ $sline(@LogMaster,1)
window -x %logmaster.window @LogView Arial 11
iline %logmaster.window 1 8Log Master $str($chr(160),15) 4,1 Visualizzato: $sline(@LogMaster,1) ( $+ $lof(%logmaster.file) byte - $lines(%logmaster.file) righe) $str($chr(160),175)
loadbuf -p %logmaster.window $logdir $+ $sline(@LogMaster,1)
aline %logmaster.window 4,1 Caricato con successo $calc($line(%logmaster.window,0) - 1) di $lines(%logmaster.file) righe. $str($chr(160),175)
sline %logmaster.window 15
}
}
else {
set %logmaster.window @ [ $+ [ $2 ] ]
set %logmaster.file $logdir $+ $2
window -x %logmaster.window @LogView Arial 11
iline %logmaster.window 1 8Log Master $str($chr(160),15) 4,1 Visualizzato: $2 ( $+ $lof(%logmaster.file) byte - $lines(%logmaster.file) righe) $str($chr(160),175)
loadbuf -p %logmaster.window $logdir $+ $2
aline %logmaster.window 4,1 Caricato con successo $calc($line(%logmaster.window,0) - 1) di $lines(%logmaster.file) righe. $str($chr(160),175)
sline %logmaster.window 15
}
}
menu @LogMaster {
dclick:loglist2
Cerca:logsearch
-
Gestione file
.Elimina:dellog $sline(@LogMaster,1)
.Copia:copylog
.Rinomina:remlog
-
Aggiorna:logrefresh
Chiudi Log Master:window -c @LogMaster
}
menu @LogMaster2 {
dclick:loglist2
Trova nel file:logsearch
Aggiorna file:lrefresh
Vai
.All'inizio:sline @LogMaster 15
.Alla fine:sline @LogMaster $line(@LogMaster,0)
.-
.Alla riga?:sline @LogMaster $?="Immettere un numero di riga"
-
Gestione file
.Elimina:dellog $sline(@LogMaster,1)
.Copia:copylog
.Rinomina:remlog
-
Refresh file:logrefresh
Chiudi Log Master:window -c @LogMaster
-
}
alias lrefresh {
if (($window(@Logmaster).title == - Guida) || ($window(@Logmaster).title == - Informazioni su Utilità di Gestione File Registro)) { halt }
else {
set %logmaster.title $window(@Logmaster).title
set %logmaster.title.2 $len(%logmaster.title)
set %logmaster.title $mid(%logmaster.title,3,%logmaster.title.2)
logview %logmaster.title
}
}
alias LogList2 {
if ($sline(@LogMaster,1).ln == 1 || $sline(@LogMaster,1).ln == 2 || $sline(@LogMaster,1).ln == $null) { halt }
else logview $sline(@LogMaster,1)
}
menu @Logview {
Trova nel file:logsearch.nw
Visualizza:clear $active | logview.newwindow $remove($active,@)
Vai
.All'inizio:sline $active 15
.Alla fine:sline $active $line($active,0)
.-
.Alla riga?:sline $active $?="Immettere un numero di riga"
-
Chiudi Log Master:window -c $active
}
menu @Confirm.Delete {
dclick:Confirm.Delete
}
alias Confirm.Delete {
if ($sline(@Confirm.Delete,1).ln == 1 || $sline(@Confirm.Delete,1).ln == 2 || $sline(@Confirm.Delete,1).ln == 3 || $sline(@Confirm.Delete,1).ln == 4) { halt }
if ($sline(@Confirm.Delete,1).ln == 12) { remove logs\ $+ %logmaster.log.delete | window -c @Confirm.Delete | dline -l @LogMaster $sline(@LogMaster,1).ln | echo 8Log Master 9 %logmaster.log.delete 13Eliminato }
if ($sline(@Confirm.Delete,1).ln == 13) { window -c @Confirm.Delete }
}
alias copylog {
if ($sline(@LogMaster,1).ln == 1 || $sline(@LogMaster,1).ln == 2 || $sline(@LogMaster,1).ln == $null) { halt }
/copy logs\ $+ $sline(@LogMaster,1) $sdir="Selezionare la cartella di destinazione di $sline(@LogMaster,1) :" $+ $sline(@LogMaster,1)
}
alias remlog {
if ($sline(@LogMaster,1).ln == 1 || $sline(@LogMaster,1).ln == 2 || $sline(@LogMaster,1).ln == $null) { halt }
else {
set %logmaster.newname $?="Inserire nuovo nome file:"
if (%logmaster.newname == $null) { halt }
else {
rename logs\ $+ $sline(@LogMaster,1) logs\ $+ %logmaster.newname
logrefresh
}
}
}
alias dellog {
if ($sline(@LogMaster,1).ln == 1 || $sline(@LogMaster,1).ln == 2 || $sline(@LogMaster,1).ln == $null) { halt }
else {
set %logmaster.log.delete $sline(@LogMaster,1)
window -l @Confirm.Delete 20 20 150 111 @Confirm.Delete tahoma 12
aline @Confirm.Delete 1.
aline @Confirm.Delete 1.
aline @Confirm.Delete 1.
aline @Confirm.Delete 1.
aline @Confirm.Delete 1.
aline @Confirm.Delete 1.
aline @Confirm.Delete 8Log Master
aline @Confirm.Delete 7,1 Si è sicuri di voler $str($chr(160),10)
aline @Confirm.Delete 7,1 eliminare: $str($chr(160),50)
aline @Confirm.Delete 4,1 %logmaster.log.delete $+ ? $str($chr(160),100)
aline @Confirm.Delete 7,1 ------------------------------------ $str($chr(160),10)
aline @Confirm.Delete 4,1 SI $str($chr(160),50)
aline @Confirm.Delete 4,1 NO $str($chr(160),50)
}
}
alias dellog2 {
set %logmaster.log.delete $remove($active,@)
window -l @Confirm.Delete 20 20 150 111 @Confirm.Delete2 tahoma 12
aline @Confirm.Delete 1.
aline @Confirm.Delete 1.
aline @Confirm.Delete 1.
aline @Confirm.Delete 1.
aline @Confirm.Delete 1.
aline @Confirm.Delete 1.
aline @Confirm.Delete 8Log Master
aline @Confirm.Delete 7,1 Si è sicuri di voler $str($chr(160),10)
aline @Confirm.Delete 7,1 eliminare: $str($chr(160),50)
aline @Confirm.Delete 4,1 %logmaster.log.delete $+ ? $str($chr(160),100)
aline @Confirm.Delete 7,1 ------------------------------------ $str($chr(160),10)
aline @Confirm.Delete 4,1 SI $str($chr(160),50)
aline @Confirm.Delete 4,1 NO $str($chr(160),50)
}
menu @Confirm.Delete2 {
dclick:Confirm.Delete2
}
alias Confirm.Delete2 {
if ($sline(@Confirm.Delete,1).ln == 1 || $sline(@Confirm.Delete,1).ln == 2 || $sline(@Confirm.Delete,1).ln == 3 || $sline(@Confirm.Delete,1).ln == 4) { halt }
if ($sline(@Confirm.Delete,1).ln == 12) { remove $logdir $+ %logmaster.log.delete | window -c @Confirm.Delete | logrefresh | echo 8Log Master 9 %logmaster.log.delete 13Eliminato! }
if ($sline(@Confirm.Delete,1).ln == 13) { window -c @Confirm.Delete }
}
alias lognotepad {
if ($sline(@LogMaster,1).ln == 1 || $sline(@LogMaster,1).ln == 2 || $sline(@LogMaster,1).ln == $null) { halt }
else run notepad.exe $logdir $+ $sline(@LogMaster,1)
}
alias logsearch {
if ($sline(@LogMaster,1).ln == 1 || $sline(@LogMaster,1).ln == 2 || $sline(@LogMaster,1).ln == $null) { halt }
if ($window(@Logmaster).title == - $sline(@LogMaster,1)) goto next
else { logview $sline(@LogMaster,1) | goto next }
:next
if ($window(@LogSearch) != $null) /window -c @LogSearch
window -lx @LogSearch @LogSearch tahoma 12
set %logmaster.file $logdir $+ $sline(@LogMaster,1)
set %logmaster.log $sline(@LogMaster,1)
titlebar @LogSearch - %logmaster.log
set %logmaster.searchstring * [ $+ [ $?="Inserire il testo da trovare:" ] $+ ] *
if ($! == $null) {
aline @LogSearch 1.
aline @LogSearch 1.
aline @LogSearch 1.
aline @LogSearch 1.
aline @LogSearch 1.
aline @LogSearch 1.
aline @LogSearch 8Log Master
aline @LogSearch 8,1 $str($chr(160),20) Ricerca in %logmaster.log per:4,1 Nulla (L'utente ha premuto Annulla) $str($chr(160),500)
}
else {
aline @LogSearch 1.
aline @LogSearch 1.
aline @LogSearch 1.
aline @LogSearch 1.
aline @LogSearch 1.
aline @LogSearch 1.
aline @LogSearch 8Log Master
aline @LogSearch 8,1 $str($chr(160),20) Ricerca in 4 %logmaster.log 8per:4,1 %logmaster.searchstring $str($chr(160),500)
filter -fwn %logmaster.file @LogSearch %logmaster.searchstring
}
alias logsearch2 {
if ($sline(@LogSearch,1).ln == 1 || $sline(@LogLogSearch,1).ln == 2 || $sline(@LogSearch,1).ln == $null) { halt }
else {
sline @LogMaster $calc($gettok($sline(@LogSearch,1),1,32) + 10)
window -a @LogMaster
}
}
alias logsearch.nw {
set %logmaster.window $remove($active,@)
if ($window(@LogSearch) != $null) window -c @LogSearch
window -lx @LogSearch @LogSearch.nw Arial 11
set %logmaster.file $logdir $+ %logmaster.window
titlebar @LogSearch - %logmaster.window
set %logmaster.searchstring * [ $+ [ $?="Inserire il testo da trovare:" ] $+ ] *
aline @LogSearch 4,1 Log Master %logmaster.version $str($chr(160),150) 8,1Ricercatore $str($chr(160),100)
aline @LogSearch 8,1 $str($chr(160),20) Ricerca di:4,1 %logmaster.searchstring $str($chr(160),500)
filter -fwn %logmaster.file @LogSearch %logmaster.searchstring
aline @LogSearch 4,1 Trovate $calc($line(@LogSearch,0) - 2) occorrenze di %logmaster.searchstring in %logmaster.window $str($chr(160),500)
}
alias logsearchnw {
if ($sline(@LogSearch,1).ln == 1 || $sline(@LogSearch,1).ln == 2 || $sline(@LogSearch,1).ln == $null) { halt }
else {
set %logmaster.window2 @ $+ %logmaster.window
sline %logmaster.window2 $calc($gettok($sline(@LogSearch,1),1,32) + 10)
window -a %logmaster.window2
}
}
}