pseudo dans un db

[fedora]

ça devrais donner ceci ?

tclcopier

proc acceesalon {nick} {
   set fa [open "autorise_salon.db" r]
   while {![eof $fa]} {
      gets $fa get
      if {[string equal [string tolower $get] [string tolower $nick]]==1} {
       return 1
      }
   close $fa
}
return 0
}