LOG POUR MIRC

alias logs {
  if ($window(@Logs) == $null) { window -moabel15 @Logs 100 100 600 300 @Logs Verdana 12 }
  else { clear -l @Logviewer }
  window -nls @Loglist Verdana 12
  aline -l @logs 4Fichiers log :4
  set %logview.num 1
  :loop
  set %logview.log $findfile($logdir,*.log,%logview.num)
  if (%logview.log == $null) { goto part2 }
  aline -l @Loglist $nopath(%logview.log)
  inc %logview.num 1
  goto loop
  :part2
  set %logview.total $line(@Loglist,0,0)
  set %logview.num 1
  :loop2
  if (%logview.num > %logview.total) { goto end }
  aline -l @Logs $line(@Loglist,%logview.num)
  inc %logview.num 1
  goto loop2
  :end
  aline @Logs Fin de listage des logs.
  window -c @Loglist
  unset %logview.*
}


alias -l logview.viewlog {
  if (($sline(@Logs,1).ln == 1) || ($sline(@Logs,1) == $null)) { halt }
  set %logview.file $logdir $+ $sline(@Logs,1)
  set %nameof.défautlog $sline(@Logs,1)
  clear @Logs
  aline @Logs Visualisation de   $+ $sline(@Logs,1) $+ :
  titlebar @Logs ( $+ $sline(@Logs,1) $+ )
  loadbuf -p @Logs $shortfn(%logview.file)
  sline @Logs 20
  unset %logview.file
}
alias -l logview.search {
  if (%nameof.défautlog == $null) { aline @logs 4Error!  Tu dois voir un log en premier. | halt }
  if ($window(@IDTLogsearch) == $null) { window -moabel @IDTLogsearch 150 150 450 300 @IDTLogsearch Verdana 12 }
  else { /clear @IDTLogsearch }
  set %logview.file $logdir $+ %nameof.défautlog
  titlebar @IDTLogsearch ( $+ %nameof.défautlog $+ )
  set %logview.searchstring * ( $+ ( $$?="Text to search for?" ) $+ ) *
  aline @IDTLogsearch Searching %nameof.défautlog for %logview.searchstring 
  aline @IDTLogsearch (#)____________(Texte)________________________________________
  filter -fwnp %logview.file @IDTLogsearch %logview.searchstring
  unset %logview.*
}
alias -l logview.gotoline {
  if (($sline(@IDTLogsearch,1).ln == 1) || ($sline(@IDTLogsearch,1).ln == 2) || ($sline(@IDTLogsearch,1).ln == $null)) { halt }
  sline @logs $calc($gettok($sline(@IDTLogsearch,1),1,32) + 2)
  window -a @logs
}
alias -l logview.delete {
  if (($sline(@logs,1).ln == 1) || ($sline(@logs,1) == $null)) { halt }
  set %logview.total $sline(@logs,0)
  set %logview.num 1
  :loop
  if (%logview.num > %logview.total) { goto end }
  ;set %logview.file $logdir $+ $sline(@logs,%logview.num) 
  set %logview.file $sline(@logs,%logview.num) 
  set %logview.yesno $$?!="Veux tu effacer $sline(@logs,%logview.num) $+ ?"
  if (%logview.yesno) {
    remove %logview.file 
    if (%nameof.défautlog == $sline(@logs,%logview.num)) { clear @logs | unset %nameof.défautlog }
  }
  inc %logview.num
  goto loop
  :end
  unset %logview.*
  idtlogs
}
alias kk { run $scriptdir $+ logs }
alias -l logview.copy {
  if (($sline(@logs,1).ln == 1) || ($sline(@logs,1) == $null)) { halt }
  set %logview.total $sline(@logs,0)
  set %logview.num 1
  :loop
  if (%logview.num > %logview.total) { goto end }
  set %logview.file $logdir $+ $sline(@logs,%logview.num)
  set %logview.yesno $$?!="Veux tu copier $sline(@logs,%logview.num) $+ ?"
  if (%logview.yesno) {
    copy %logview.file $$sdir="Sélectionner un répertoire à copier $sline(@logs,%logview.num) to:" $+ $sline(@logs,%logview.num)
    if (%nameof.défautlog == $sline(@logs,%logview.num)) { clear @logs | unset %nameof.défautlog }
  }
  inc %logview.num
  goto loop
  :end
  unset %logview.*
  idtlogs
}
alias -l logview.rename {
  if (($sline(@logs,1).ln == 1) || ($sline(@logs,1) == $null)) { halt }
  set %logview.total $sline(@logs,0)
  set %logview.num 1
  :loop
  if (%logview.num > %logview.total) { goto end }
  set %logview.file $logdir $+ $sline(@logs,%logview.num)
  set %logview.yesno $$?!="Veux tu renommer $sline(@logs,%logview.num) $+ ?"
  if (%logview.yesno) {
    rename $logdir $+ $sline(@logs,%logview.num) $logdir $+ $$?="Entrer un nouveau nom de fichier :"
    if (%nameof.défautlog == $sline(@logs,%logview.num)) { clear @logs | unset %nameof.défautlog }
  }
  inc %logview.num
  goto loop
  :end
  unset %logview.*
  idtlogs
}

alias -l logview.notepad {
  if (($sline(@logs,1).ln == 1) || ($sline(@logs,1) == $null)) { halt }
  set %logview.total $sline(@logs,0)
  set %logview.num 1
  :loop
  if (%logview.num > %logview.total) { goto end }
  set %logview.file $logdir $+ $sline(@logs,%logview.num)
  run notepad.exe %logview.file
  inc %logview.num
  goto loop
  :end
  unset %logview.*
  idtlogs
}
menu @logs {
  dclick logview.viewlog $sline(@logs,1)
  Lister les logs:/idtlogs
  Voir le log:/logview.viewlog $sline(@logs,1)
  Chercher dans log:/logview.search
  Copier log(s):/logview.copy
  Effacer log(s):/logview.delete
  Aller au dossier des logs:/kk
  Renommer log(s):/logview.rename
  Ouvrir log(s) dans notepad:/logview.notepad
  Effacer:/clear @logs
  Fermer:/window -c @logs
}

menu @IDTLogsearch {
  dclick /logview.gotoline
  Goto line:/logview.gotoline
  Close:/window -c @IDTLogsearch
  ReSearch:/logview.search
}
on *:CLOSE:@logs: { unset %nameof.défautlog }
on 1:UNLOAD: { unset %nameof.défautlog %logview.* }