21/02/2010, 12:31
merci CrazyCat de ta réponse alors j'ai ajouter comme ceci :
est lors du joins j'ai cette erreur :
je précise que je test avec une data-base avec 50 pseudo dedans.
merci de votre aide
Cordialement
tcl
bind join - "#Salon *" SalonDeVip
proc SalonDeVip {nick host hand chan} {
global UserDb
set UserDb [open UserVip.db r]
while {![eof $UserDb]} {
set get [gets $UserDb]
close $UserDb
if {[string first [string tolower $get] [string tolower $nick]] != -1} {
pushmode $chan +o $nick
return 1
}
close $UserDb
return 0
}
}
est lors du joins j'ai cette erreur :
tcl
Tcl error [SalonDeVip]: can not find channel named "file8"
je précise que je test avec une data-base avec 50 pseudo dedans.
merci de votre aide
Cordialement