after   append   apply   array   binary   break
catch   chan   clock   close   concat   continue
dict   eof   error   eval   expr   fblocked
fcopy   fileevent   flush   for   foreach   format
gets   global   if   incr   info   interp
join   lappend   lassign   lindex   linsert   list
llength   lrange   lrepeat   lreplace   lsearch
lset   lsort   namespace   package   pid   proc
puts   read   regexp   regsub   rename   return
scan   seek   set   split   string   subst
switch  tell   time   trace   unset   update
uplevel   upvar   variable   vwait   while

bind pub n !tcl tcleval
 
proc tcleval {nick host hand chan arg} {
    catch [list uplevel #0 $ag] error
    foreach line [split $error "\n"] {
        if {$line!=""} {
            putserv "PRIVMSG $chan :\002TCL ->\002 $line"
        }
    }
    putserv "PRIVMSG $chan :\002Done.\002"
}

Quote:Ce script est fort utile lorsque tu veux montrer en direct quelque chose, sans avoir à copier/coller ce que tu fais en party-line.

djkenny Wrote:en réalité (meme si tu n'as pas tout a fait tord) c'était plutôt dans l esprit de procurer une commande publique accessible à tous les users (ou une partie selon le % de boulets présent :p ) permettant donc de tester publiquement son code (par exemple sur un chan réserve au tcl ou à eggdrop) sans avoir besoin de ramener le bot ou de faire des c/c a rallonge.