Putlog en couleurs

[CrazyCat]

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

.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.

[CrazyCat]

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

[cestlemien]

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

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

Codialement.

[CrazyCat]

L'url est https://www.g33k-zone.org/index.php?post...%A9-en-TCL

La source:

tclcopier

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):

tclcopier

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