Rajouter un ban au troisième kick

[Alucard`68]

Bonjour, je vient de me rendre compte que mon poste précédent n'était pas le bon code tcl je m'en excuse. Donc voila ou j'en suis actuellement et j'aimerais de l'aide pour réaliser se que je souhaite

tclcopier

set base(ban) "chemin/de/ma/base/des/host/enregistré.txt"
set vhostexempt {
 *Root@domain.tld
 *@TechAdmin.domain.tld
 *@autant.de.vhost.que.vous.voulez
}
 
set badwords {
 les
 badwords
 ici
 de
 cette
 façon
}
 
bind pubm -|- * bad:words
proc bad:words {nick host hand channel text} {
 global badwords vhostexempt base
 set bad ""
 foreach element $badwords {
   foreach element1 $text {
 if {$element1 == $element} {
set bad "$element"
   break
   }
}
 }
 if {$bad != ""} {
 
#ici j'ouvre ma base de donnée
  set fp [open $base(ban) a]
#la j'enregistre dedans
  puts $fp "je ne sais pas comment enregistrer une vhost dans un fichier ni comment agrémenter un compteur"
#la je la ferme
  close $fp
 
   set vichost [getchanhost $nick $channel]
   set protec 0
   foreach vhost $vhostexempt {
     if { [string match -nocase $vhost $vichost] } {
       set protec 1
     }
   }
   if { $protec == 1 } {
     return 0
     } else {
     putkick $channel $nick "\00312Merci de surveiller votre langage !!"
     }
  }
}

Donc suis-je sur la bonne voix ?
Ais-je oublié quelque chose avant ?
Comment enregistre t'on des vhost dans une base de donnée et comment on agrémente un compteur ?

Merci d'avance .

Bye.