bonjour,
voila je revient car je trouve vraiment pas la solution pour qui prenne le pseudo exact avec sont extension (pseudo|occuper) ou bien les pseudo avec des caractère [] ect .. en relisant les aides apportées j'y arrive vraiment pas.impossible de trouver les bonnes procédures pour détecter le ou les pseudos que ce soit ds un .txt ou .db . si quelqu'un aurais un modèle svp ou aurais la solution ça serais vraiment sympa parce que là je plante totalement .
Cordialement
voila je revient car je trouve vraiment pas la solution pour qui prenne le pseudo exact avec sont extension (pseudo|occuper) ou bien les pseudo avec des caractère [] ect .. en relisant les aides apportées j'y arrive vraiment pas.impossible de trouver les bonnes procédures pour détecter le ou les pseudos que ce soit ds un .txt ou .db . si quelqu'un aurais un modèle svp ou aurais la solution ça serais vraiment sympa parce que là je plante totalement .
tcl
# //-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//
# 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 $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
}
}
Cordialement
[font=Times New Roman]La différence entre Linux et Windows ,c'est que Linux c'est comme une belle fille , il faut l'apprivoiser , la comprendre , la séduire tandis que Windows , c'est comme une prostitué , il faut payer et surtout bien se protéger.[/font]