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
#15
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.
Quote:|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 **

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


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 [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--------------------
#  //-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//



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,534 06/10/2009, 10:37
Last Post: fedora

Forum Jump:


Users browsing this thread: 1 Guest(s)