Détection du host caché

[CrazyCat]

Effectivement, la réponse au raw 311 est nick username address * :info
Ta procédure doit donc être:

tclcopier

proc whois:answ {from kw text} {
   set args [split $text]
   set nick [lindex $args 0]
   set userhost [concat "*!" [lindex $args 1] "@" [lindex $args 2]]
   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
}

Mais je ne comprends toujours pas pourquoi ton eggdrop réagit au part et non pas au join...