Putlog en couleurs
#1
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.
  Répondre   Avertir
#2
Pour info, la version en tclsh est sur http://www.g33k-zone.org/post/2016/10/09...%A9-en-TCL
  Répondre   Avertir
#3
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.
  Répondre   Avertir
#4
L'url est https://www.g33k-zone.org/index.php?post...%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
}


  Répondre   Avertir


Atteindre :


Utilisateur(s) parcourant ce sujet : 1 visiteur(s)