Communauté Eggdrop
Putlog en couleurs - Version imprimable

+- Communauté Eggdrop (https://forum.eggdrop.fr)
+-- Forum : Eggdrop et TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=8)
+--- Forum : Bouts de Scripts (https://forum.eggdrop.fr/forumdisplay.php?fid=17)
+--- Sujet : Putlog en couleurs (/showthread.php?tid=1636)



Putlog en couleurs - CrazyCat - 08/10/2016

Le but de ce petit script est de pouvoir faire un putlog avec une mise en couleur du texte en fonction du degré d'importance du message.

Source: http://tools.eggdrop.fr/pasteme/view/46ad7d7b

Le fonctionnement est très simple:
Code :
::d::putlog "votre message à coloriser" [level]
level comprend 6 possibilités: error, warning, notice, debug, info, success
Si vous ne mettez pas de niveau de criticité, ou qu'il ne fait pas parti de la liste prévue, le message est affiché normalement.
Vous pouvez tester l'affichage en faisant en party-line: .dtest

Citation :.dtest
[17:31:29] Level is set to error
[17:31:29] Level is set to warning
[17:31:29] Level is set to notice
[17:31:29] Level is set to debug
[17:31:29] Level is set to info
[17:31:29] Level is set to success


Avertissement : Ce script fonctionne parfaitement sous linux et sous environnement de type Cygwin, mais je ne l'ai pas testé sous un environnement pur windows.


RE: Putlog en couleurs - CrazyCat - 09/10/2016

Pour info, la version en tclsh est sur http://www.g33k-zone.org/post/2016/10/09/Log-color%C3%A9-en-TCL


RE: Putlog en couleurs - cestlemien - 13/01/2018

salut,
petite ereure , le lien http://www.g33k-zone.org/post/2016/10/09...%A9-en-TCL

Citation :Error 502 Ray ID: 3dc9570a488c14e5 • 2018-01-13 15:20:31 UTC
Bad gateway

Si quelqu'un l'a, peut être voir à mettre sur la parttie download Smile

Codialement.


RE: Putlog en couleurs - CrazyCat - 15/01/2018

L'url est https://www.g33k-zone.org/index.php?post/2016/10/09/Log-color%C3%A9-en-TCL

La source:
TCL
namespace eval d {
   variable levels {"error" "warning" "notice" "debug" "info" "success"}
   foreach {name value} {r 1 g 2 b 4 c 6 m 5 y 3} {
      proc $name {} "return \033\\\[01\\;3${value}m"
      proc [string toupper $name] {} "return \033\\\[01\\;4${value}m"
   }
   proc n {} {return \033\[\;0m}
   proc puts {text {level ""}} {
      switch -nocase $level {
         "error" { ::puts "[r]$text[n]" }
         "warning" { ::puts "[y]$text[n]" }
         "notice" { ::puts "[c]$text[n]" }
         "debug" { ::puts "[m]$text[n]" }
         "info" { ::puts "[b]$text[n]" }
         "success" { ::puts "[g]$text[n]" }
         default { ::puts "$text" }
      }
   }
}



Utilisation (exemple):
TCL
#/usr/bin/tclsh
source debugger.tcl
foreach level $::d::levels {
   ::d::puts "Level is set to $level" $level
}