Détection du host caché

[fedora]

bonsoir je revient encore vers vous car j'ai tjr le même problème :( mon bot pose le ban du host caché sur les salon qui sont dans la TCL et j'arrive pas et faire en sorte qu'il agisse seulement sur le salon ou le spambot join .
exemple: si le spambot join X mon bot faudrait qu'il agisse en kb seulement sur le salon X enfin j'espère que vous m'avez compris :x

tclcopier

#-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-#
###--------------Anti-Spam Bot Orange-----------###
#-------------------------DnS---------------------#
# Remerciement à BdS et CrazyCat pour leur aides  #
#-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-#

#-//-//-//-//-#
#   VersiOn   #
#-//-//-//-//-#

 
 
### (mettre des espaces entre les différents chans) :
 
set chanm "#salon #DnS #salonnnn"

# Configuration du host,message de kick
 
set spamhost "2531986971.fr"
set kick(spambot) "Dégage .."

#-//-//-//-#
#---Bind---#
#-//-//-//-#
 
bind join - "*" whois:join
bind raw - "328" whois:answ

#-//-//-//-//-#
# PROCEDURE #
#-//-//-//-//-#
 
proc whois:join { nick host hand chan } {
 foreach kbchan [split $::chanm] {
  if {$chan == $kbchan} {
   putserv "WHOIS $nick $nick"
   set bkchan "$chan"
   set bkchan ""
  }
 }
}
 
 
proc whois:answ {from kw arg} {
  set nick [lindex $arg 1]
  set userhost [lindex $arg 7]
  if { [string first $::spamhost $userhost] != -1} {
    putquick "KICK $::bkchan $nick :$::kick(spambot)"
    putquick "MODE $::bkchan +b $userhost"
  }
  return 0
}