event.

[aliasangelius]

Bonjour,

Voila je suis sur un souci que je n’arrive pas à éclaircir.

Je suis actuellement sur le système d'event.
Donc en gros lorsque sur le server il se produit un kill ceci n'est pas détecter par le putlog.

Mais tout ce qui et join,part etc et bien détecter et fonctionne parfaitement.
Pour le kill sa le fait dans le quit donc je voudrais savoir si dans le code il y a une erreur ou pas.

En espérant que vous pourrez m'aidez merci d'avance.
je post le quit et le kill :

tclcopier

proc controling_server {idx arg} {
  global geofront    
  set arg1 "[lindex $arg 0]"
  	    set arg2 "[lindex $arg 1]"
  	    set arg3 "[lindex $arg 2]"
  	    set arg4 "[lindex $arg 3]"
  	    set arg5 "[lindex $arg 4]"
  	    set arg6 "[lindex $arg 5]"
  	    set arg7 "[lindex $arg 6]"
  	    set arg8 "[lindex $arg 7]"
  	    set arg10 "[string trim [lrange $arg 3 end] :]"
  	if {$arg2=="PING"} {
    	putdcc $geofront(idx) ":$geofront(serv) PONG $geofront(ip) :$geofront(serv)"
  }
  if {$arg2=="QUIT"} {
    set pseudo [string trim [lindex $arg 0] :]
    set message [string trim [lrange $arg 2 end] :]
    putdcc $geofront(idx) ":$geofront(logservnick) PRIVMSG $geofront(log) :\0035° \0037Quit \0035° \0036$pseudo \0031a quitter le server : \0034$message"
  }
  if {$arg2=="KILL"} {
    set nick [string trim [lindex $arg 0] :]
    set nicks [lindex $arg 3]
    set raison [string trim [lrange $arg 4 end] :]
    putdcc $geofront(idx) ":$geofront(logservnick) PRIVMSG $geofront(log) :\0035° \0031Kill \0035° \0036$nick a été kill par $nicks  Raison:\0034$raison"
  }
}

PS: J'ai repris le système de Pooshy.