Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


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

Quote:.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.
zeolia: tchat gratuit, sans inscription ni publicité
Merci de ne pas demander d'aide en MP
Away
#2
Pour info, la version en tclsh est sur http://www.g33k-zone.org/post/2016/10/09...%A9-en-TCL
zeolia: tchat gratuit, sans inscription ni publicité
Merci de ne pas demander d'aide en MP
Away
#3
salut,
petite ereure , le lien http://www.g33k-zone.org/post/2016/10/09...%A9-en-TCL

Quote: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.
#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
}

zeolia: tchat gratuit, sans inscription ni publicité
Merci de ne pas demander d'aide en MP
Away


Possibly Related Threads…
Thread Author Replies Views Last Post
  [Astuce] Avoir des Binds PUB qui ce déclenche meme avec de la couleurs ZarTek 0 145 24/10/2022, 06:29
Last Post: ZarTek

Forum Jump:


Users browsing this thread: 1 Guest(s)