[Script] Petit TCL de gestion

[aliasangelius]

Salut,

Alors je relance le sujet, pour continuer.
Je suis navré pour le retard pour la continuation.. Mais je n'es pas pu plus tôt.

Donc voici le code que je vais te montrer pour comment faire pour commander une socket.
Ceci reste de l'exemple, je vais te faire voir, mais sa sera à toi de possitionner ceci..
Si tu as des difficulté que tu ne comprend pas ou que tu n'y arrive pas, dit le moi.
Ou voir même des questions il n'y a aucun soucis je serait la pour t'aider.

Dans la partie "controling_server", du code rajoute ceci :

tclcopier

set event [lindex $arg 1]

Si ceci tu ne comprend attend de voir la suite, et si malgré tout tu ne comprend pas hésite pas.
Maintenant ont va rajouter ceci dedans aussi :

tclcopier

set pseudo [string trim $arg1 :]

Nous mettons sa aussi :

tclcopier

set commande [string trim [lindex $arg 3] :]
set destinataire [lindex $arg 2]

Maintenant, Nous allons faire en sorte que lorsqu'on envoie un message à une socket elle répond.
Pour celà nous utilisons "privmsg", mais de façon différente.
Voici un exemple de code.

tclcopier

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"
         }
      }

Voilà un exemple, surtout ne le rajoute pas dans ton code pour le lancer.. là ce n'es qu'un exemple, pour que tu me dise si tu comprend ou pas.
Juste pour que tu sache comment faire, par la suite nous feront en sorte de mettre en place le tout.
Mais pour le moment nous allons appliquer des exemple, pour permettre la compréhension.