01/03/2009, 19:36
voila j'ai ajouté un putlog au tout debut et mit le raw 311
le .binds raw
et le code modifié
tcl
|18:33:03| <BoX-Nantes> [18:33] PeTiTLu (127HNantes@3569517.eu) left #Nantes.
|18:33:04| <BoX-Nantes> [18:33] whois PeTiTLu effectué
|18:33:04| <BoX-Nantes> [18:33] PeTiTLu (127HNantes@3569517.eu) joined #Nantes.
|18:33:05| <BoX-Nantes> [18:33] whois:answ effectué
le .binds raw
tcl
|18:35:14| <BoX-Nantes> Liaisons de commande:
|18:35:14| <BoX-Nantes> TYPE FLGS COMMAND HITS BINDING (TCL)
|18:35:14| <BoX-Nantes> raw -|- 311 6 whois:answ
et le code modifié
tcl
bind raw - 311 whois:answ
proc whois:answ {from kw text} {
putlog "whois:answ effectué"
set nick [lindex $text 1]
set userhost [lindex $text 7]
if { [string first $::spamhost $userhost] != -1} {
putquick "KICK $::chanm $nick :$::kick(spambot)"
putquick "MODE $::chanm +b $userhost"
putserv "PRIVMSG $::salonm :Alerte ! SpambOt détécté sous le pseudo: $nick Host: $userhost "
}
return 0
}