Détection du host caché

[fedora]

après avoir repris le tcl totalement il fonctionne bien maintenant .

bind join remis sur le raw 328

tclcopier

bind raw - 328 whois:answ

ajouté $nick lors de la demande de whois

tclcopier

proc whois:join { nick host hand chan } {
  putserv "WHOIS $nick $nick"
  return 0
}

et remplacé text par arg

tclcopier

proc whois:answ {from kw arg} {
  set nick [lindex $arg 1]
  set userhost [lindex $arg 7]
  if { [string first $::spamhost $userhost] != -1} {
    putquick "KICK $::chanm $nick :$::kick(spambot)"
    putquick "MODE $::chanm +b $userhost"
  }
  return 0
}

parcontre mon bot étant sur plusieurs salon j'aimerais bien qu'il pose le ban là ou le spambot ce trouve .je m'explique en faite là il kick ban sur le $salonm et pose aussi le ban sur les autres salon ou le bot ce trouve