[TCL] Petit TCL de gestion

[BaGrift]

Salut, :)

Donc si je suis pas blond et que je comprend bien sa donnerais ca ? ;)

Code:

tclcopier

proc controling_server {idx arg} {
   variable aurore
   set arg1 [lindex [split $arg " "] 0]
   set arg2 [lindex [split $arg " "] 1]
   set arg3 [lindex [split $arg " "] 2]
   set arg4 [lindex [split $arg " "] 3]
   set arg5 [lindex [split $arg " "] 4]
   set arg6 [lindex [split $arg " "] 5]
   set arg7 [lindex [split $arg " "] 6]
   set arg8 [lindex [split $arg " "] 7]
   set arg10 [string trim [lrange [split $arg " "] 3 end] :]
   set event [lindex $arg 1]
   set pseudo [string trim $arg1 :]
   set commande [string trim [lindex $arg 3] :]
   set destinataire [lindex $arg 2]
   if {$arg2=="PING"} {
      putdcc $aurore(idx) ":$aurore(serv) PONG $aurore(ip) :$aurore(serv)"
    }   
}

#***********************#
# Reponce de la sockets #
#***********************#
 
if {$event=="PRIVMSG"} {
      if {$destinataire=="$aurore(nick)"} {
         if {$commande=="VERSION"} {
            putdcc $aurore(idx) ":$aurore(nick) NOTICE $pseudo :\037\034aurore1.0 Pour le Réseau blabla..\037\0034"
            putdcc $aurore(idx) ":$aurore(nick) PRIVMSG $aurore(log) :\0031\[\0034Chan-Log\0031\0031]\0031 \037\00314Commande Version par\037\00314 \037\0034$pseudo\037\0034"
         }
      }

Bon oui j'ai copié bêtement mais c'est pour voir si j'ai bien compris le fonctionnement :)