Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


pseudo dans un db
#28
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 .

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
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.


Messages In This Thread
pseudo dans un db - by fedora - 17/10/2009, 10:54
RE: pseudo dans un db - by fedora - 20/10/2009, 11:43
RE: pseudo dans un db - by fedora - 21/10/2009, 11:59
RE: pseudo dans un db - by heretoc - 21/10/2009, 18:27
RE: pseudo dans un db - by CrazyCat - 22/10/2009, 09:18
RE: pseudo dans un db - by fedora - 22/10/2009, 10:32
RE: pseudo dans un db - by foufou - 28/10/2009, 13:53
RE: pseudo dans un db - by fedora - 28/10/2009, 13:57
RE: pseudo dans un db - by foufou - 28/10/2009, 14:24
RE: pseudo dans un db - by foufou - 28/10/2009, 17:04
RE: pseudo dans un db - by fedora - 28/10/2009, 17:51
RE: pseudo dans un db - by foufou - 28/10/2009, 18:42
RE: pseudo dans un db - by fedora - 29/10/2009, 16:45
RE: pseudo dans un db - by Merwin - 29/10/2009, 21:42
RE: pseudo dans un db - by fedora - 29/10/2009, 22:40
RE: pseudo dans un db - by Merwin - 30/10/2009, 00:33
RE: pseudo dans un db - by fedora - 30/10/2009, 15:42
RE: pseudo dans un db - by Merwin - 30/10/2009, 23:22
RE: pseudo dans un db - by CrazyCat - 31/10/2009, 13:14
RE: pseudo dans un db - by fedora - 31/10/2009, 00:40
RE: pseudo dans un db - by fedora - 31/10/2009, 13:09
RE: pseudo dans un db - by Merwin - 31/10/2009, 13:30
RE: pseudo dans un db - by fedora - 02/11/2009, 17:29
RE: pseudo dans un db - by Julien23 - 25/01/2010, 23:31
RE: pseudo dans un db - by fedora - 26/01/2010, 13:48
RE: pseudo dans un db - by fedora - 27/01/2010, 14:25
RE: pseudo dans un db - by heretoc - 27/01/2010, 14:47
RE: pseudo dans un db - by fedora - 17/02/2010, 15:20
RE: pseudo dans un db - by fedora - 19/02/2010, 13:23
RE: pseudo dans un db - by CrazyCat - 21/02/2010, 11:27
RE: pseudo dans un db - by fedora - 21/02/2010, 12:31
RE: pseudo dans un db - by CrazyCat - 21/02/2010, 16:33
RE: pseudo dans un db - by fedora - 21/02/2010, 16:59
RE: pseudo dans un db - by CrazyCat - 21/02/2010, 17:21
RE: pseudo dans un db - by fedora - 21/02/2010, 17:27
RE: pseudo dans un db - by CrazyCat - 21/02/2010, 17:33
RE: pseudo dans un db - by fedora - 21/02/2010, 17:43
RE: pseudo dans un db - by CrazyCat - 22/02/2010, 00:10
RE: pseudo dans un db - by fedora - 22/02/2010, 17:30

Possibly Related Threads…
Thread Author Replies Views Last Post
  Exception de caractere dans un pseudo fedora 2 3,497 06/10/2009, 10:37
Last Post: fedora

Forum Jump:


Users browsing this thread: 1 Guest(s)