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
#5
Peut-être que voici une solution:

tcl
proc phenomAutorisation {nick uhost hand chan} {
   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
}

Là, pas la peine de mettre un else: si acceesalon retourne 0, on sort de la procédure après le kick, donc ce qui est placé ensuite n'est exécuté que si acceesalon renvoit autre chose que 0.
Note que si la personne qui entre est l'eggdrop, je stoppe le test.

tcl
proc acceesalon {nick} {
   set access 0
   set fa [open "Salon.db" r]
   while {![eof $fa]} {
      set get [gets $fa]
      if {[string first [string tolower $get] [string tolower $nick]]==0} {
         set access 1
      }
   close $fo
   return $access
}

Dans cette procédure, j'initialise une valeur de retour par défaut: 0, donc accès interdit.
Ensuite, j'utilise un string first pour voir si le nick de l'utilisateur commence par le nick entré dans le fichier, ce qui permet de ne pas se poser de question sur les [away] et autres _pasla.
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away


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

Forum Jump:


Users browsing this thread: 1 Guest(s)