bind dans une $var ?

[m4st3r]

Bonjour, j'ai une question qui peut sembler bete mais y'a t'il moyen de savoir quel bind a ete utiliser et de le set dans une $var ?

J'ai besoin de setter le bind utiliser dans une var pour l'envoyer dans une autre fonction >;)

quelque chose qui ressemblerais a ceci:

tclcopier

bind pub - !test pub:test
proc pub:test {nick uhost hand chan arg} {
set bind <c'est ici je je bloque !>
putlog "$nick a utiliser $bind
}

Je sais je pourrais simplement faire set bind "!test" mais je veux savoir s'il est possible de le faire autrement :D

Merci !

[CrazyCat]

J'ai bien peur que tu ne puisses pas, d'autant plus que ta procédure dépend du bind.

[djkenny]

salut,
regardes du coté de la commande "lastbind"

édit: c'est pas la commande "lastbind" mais la variable globale "$lastbind"

[CrazyCat]

Bonne réponse de djkenny:

10. Global variables
lastbind
Value: the last command binding which was triggered. This allows you to identify which command triggered a Tcl proc.
Module: core

[m4st3r]

Ah genial, merci beaucoup !
Je vais jeter un oeil et je vous reviens la dessus :D

[m4st3r]

He bien merci beaucoup djkenny!
Ca fonctionne nikel.

tclcopier

bind pub - !test pub:test
proc pub:test {nick uhost hand chan arg} {
putserv "PRIVMSG $chan :Last used bind was $::lastbind by $nick with args $arg"
}

Ce qui me retourne

[10:44:25] <MyS3lf> !test PATATE
[10:44:25] <Bot> Last used bind was !test by MyS3lf with args PATATE