pseudo dans un db

[fedora]

merci Merwin pour ton aide.

je rencontre toujours le même souci passer 4 pseudo dans la liste .db le bot laisse entrer tous le monde.

|21:14:55| <Arena> ** Liste Des Nicks Autoriser **
|21:14:55| <Arena> (1) [arenaaaaa_]
|21:14:55| <Arena> (2) [oni_-]
|21:14:55| <Arena> (3) testtttttt]
|21:14:55| <Arena> (4) [[test]
|21:14:55| <Arena> ** Fin De La Liste **

|21:18:12| » Fedora |fedora@blabla-16E44443.hd.free.fr| à rejøint lë Saløn #Arena.
|21:18:13| Arena: Autorisation °Accepté° pour le salon #Arena

je suis pas dans la liste et il m'accepte sur le salon chose qu'il ne devrais pas faire étant donné que j'suis pas dans la liste.et sa idem pour d'autre pseudo avec d'autre vhost ect ...

tclcopier

#  //-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//
#                        Commencement du Script TCL                 
#  //-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//

#  //-//-//-//-//-//-//- Début De la Configuration -//-//-//-//-//-//-// 
   
# Indiquer le salon ou sera reporter les logs salon et Autorisation
 
set phenom(salon) "#Arena"

# Indiquer ici le message de kick de la personne qui ne sera pas autoriser à entrer sur votre salon 
 
set phenom(kickmsg) "Access Non Autoriser pour ce salon ! "

#  Céation des fichiers Manquant 
 
set fichier(pseudo) "autorise_salon.db"

#   //-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//
#          !!! NE CHANGEZ RIEN A PARTIR DE CETTE LIGNE !!!
#   //-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//

# Le Systeme de Procédure lors du Joins de la personne 
 
bind join - "$::phenom(salon) *" phenomAutorisation
proc phenomAutorisation {nick uhost hand chan} {
global botnick phenom
   if {$nick == $::botnick} { return 0 }
   if {[acceesalon [phenomfilter $nick]]==0} {
      putserv "PRIVMSG $::phenom(salon) :\00314Autorisation \0034° \00314Refusé\00314 \0034°\0034"
      putserv "KICK $chan $nick : $::phenom(kickmsg)"
      return 1
   }
   putserv "PRIVMSG $::phenom(salon) :\00314Autorisation  \00303°\00314Accepté\00303° \00314pour le salon $::phenom(salon)"
   pushmode $chan +v $nick
   return 0
}
# Ne pas toucher Systeme Proc  !!
 
proc acceesalon {nick} {
   set access 0
   set fa [open "autorise_salon.db" r]
   while {![eof $fa]} {
      set get [gets $fa]
      if {[string equal [string tolower $get] [string tolower $nick]]==0} {
         set access 1
      }
   close $fa
   return $access
}
}
 
proc phenomfilter {arg} {
	regsub -all {\\} $arg {\\\\} arg
	regsub -all {\{} $arg {\{} arg
	regsub -all {\}} $arg {\}} arg
	regsub -all {\]} $arg {\]} arg
	regsub -all {\[} $arg {\[} arg
	regsub -all {\"} $arg {\"} arg
	regsub -all {\`} $arg {\`} arg
	return $arg
}
 
#  //-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-// 
 
putlog "\002Autorise.tcl \002 chargé.... by **\002 fedora \002** "
 
 
#  //-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//
#     --------------------FIN DU FICHIER--------------------
#  //-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//

[font=Times New Roman]cordialement[/font]