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
#1
bonjour,

je men remet à vous car je rencontre un souci sur un TCL.
en effet lors du joins du pseudo qui est enregistrer dans le .db sur un salon définie l'user est voice est si il n'est pas dans le .db il est kickban du salon.
mon souci c'est qu'il prend pas l'extension de l'user donc il refuse de le voice donc mon bot le kickban.

ex: si l'user joins le salon en pseudo|eggdrop le bot le kickban
et j'aimerais qu'il prenne le pseudo avec l'extension et les caractères \[ ]\



tcl
#  //-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//
#                        Commencement du Script TCL                 
#  //-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//
 
#  //-//-//-//-//-//-//- Début De la Configuration -//-//-//-//-//-//-// 
 
# Indiquer le salon 
 
set phenom(salon) "Salon"
 
# 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 ! "
 
# 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 {![acceesalon $nick]} {
			putserv "PRIVMSG $::phenom(salon) :\00314Autorisation \0034° \00314Refusé\00314 \0034°\0034"
			   putserv "KICK $chan $nick : $::phenom(kickmsg)"
				return 1
        }
          if {[acceesalon $nick]} {
		putserv "PRIVMSG $::phenom(salon) :\00314Autorisation  \00303°\00314Accepté\00303° \00314pour le salon $::phenom(salon)"
		putserv "MODE $chan +vvvv $nick"
        return 0
       }
	}
 
# Ne pas toucher Systeme Proc  !! 
 
proc acceesalon {nick} {
  set fa [open "Salon.db" r]
  while {![eof $fa]} {
    set get [gets $fa]
    if {![string compare [string tolower $get] [string tolower $nick]]} {
      return 1
    }
  }
  close $fo
  return 0
}
 
#  Céation du fichier Manquant 
 
if {![file exist Salon.db]} {
	.......
}


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

Forum Jump:


Users browsing this thread: 1 Guest(s)