Détection du host caché

[fedora]

bonsoir,je revient car j'arrive toujours pas à faire en sorte que mon bot kick ban le spam quand il joint le salon.En fait il ne fait aucune action et je n'est aucune erreur en pl :(

tclcopier

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

#-//-//-//-//-#
#   VersiOn   #
#-//-//-//-//-#
 
set versionb "EpsilOn.tcl"

# Configuration du host,Salon message de kick 
 
set chan "#Nantes"
set spamhost "2531986971.fr"      
set kick(spambot) "\002\[\02Système AntiSpam\002]\2  Anti SpamBot!!!"

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

#-//-//-//-//-#
#  PROCEDURE  #
#-//-//-//-//-#
 
proc whois:join { nick host hand chan } {
putserv "WHOIS $nick $nick"
   return 0
}
 
proc whois:answ {from kw arg} {
  set nick [lindex $arg 1]
  set userhost [lindex $arg 7]
  if { [string first $::spamhost $userhost] != -1} {
  foreach chan [channels] {
   if {[onchan $nick $chan] == 1} {
    putkick $chan $nick $::kick(spambot)
   }
   pushmode $chan +b $userhost
   }
}
  flushmode
}
putlog "$::versionb AntiSpambOt by DnS"

cordialement.