Se connecter

bouba89 · (Modification du message : 03/12/2012, 18:09 par bouba89.)

bonjour j'ai coder un tcl pour que quand quelq'un se connecte a la party-line de l'eggdrop cela l'indique sur un salon predefini hors celui -ci ne semble rien detecter peut etre manque t'il des choses ?

merci d'avance de vos reponses

Code :
bind chon - join:pl
bind chof - deco:pl


  set chan(log) "#staff"
  proc join:pl {hand idx} {
             "privmsg $chan(log) :\0031\[\00312Connection\0031\] \0034$hand \0033vien de se connecter a la \0036Party-Line.\0036"
                 dccbroadcast "\00312Connection PL Autorisé pour \0034$hand\0034"
    }
     
        proc deco:pl {hand idx} {
                 "privmsg $chan(log) :\0031\[\00312Déconection\0031\] \0034$hand \0033vien de se déconecter de la \0036Part-Line.\0036"
                 dccbroadcast "\00312Déconnection PL pour \0034$hand\0034"
    }

CrazyCat · 03/12/2012, 18:06

As-tu pensé à mettre des putlog pour voir si tu passes dans tes procédures.
Et il faut utiliser $::chan(log) (vu que chan(log) est défini hors de la procédure).
Et il ne te manque pas quelque chose avant "privmsg ...' ? Comme un putserv ?

bouba89 · 03/12/2012, 18:37

Code :
bind chon - join:pl
bind chof - deco:pl


  set chan(log) "#staff"
  proc join:pl {hand idx} {
             putserv "privmsg $::chan(log) :\0031\[\00312Connection\0031\] \0034$hand \0033vien de se connecter a la \0036Party-Line.\0036"
                 dccbroadcast "\00312Connection PL Autorisé pour \0034$hand\0034"
    }
     
        proc deco:pl {hand idx} {
                 putserv "privmsg $::chan(log) :\0031\[\00312Déconection\0031\] \0034$hand \0033vien de se déconecter de la \0036Part-Line.\0036"
                 dccbroadcast "\00312Déconnection PL pour \0034$hand\0034"
    }

putlog "\002\0034Chargement.. \002\037\0031Paty-line.tcl V1.0 by bouba89 \037\0031"

cela donne rien :(

CrazyCat · 03/12/2012, 22:50

Je ne vois pas les putlog de debug, ni même de rtour de .binds chon

bouba89 · 03/12/2012, 22:55

au risque de paraître nul j'apprend juste le tcl donc ta réponse pour moi c'est du charabia désole d’être débutant :x

CrazyCat · (Modification du message : 04/12/2012, 12:10 par CrazyCat.)

Ok, alors voici comment on debugue:

Code :
set chan(log) "#staff"

bind chon - join:pl
proc join:pl {hand idx} {
   putlog "Procédure join:pl activée par $hand - $idx"
   putserv "privmsg $::chan(log) :\0031\[\00312Connection\0031\] \0034$hand \0033vien de se connecter a la \0036Party-Line.\0036"
   putlog "PRIVMSG ok, test broadcast"
   dccbroadcast "\00312Connection PL Autorisé pour \0034$hand\0034"
   putlog "BROADCAST ok"
   return 0
}

bind choff - deco:pl    
proc deco:pl {hand idx} {
   putlog "Procédure deco:pl activée par $hand - $idx"
   putserv "privmsg $::chan(log) :\0031\[\00312Déconection\0031\] \0034$hand \0033vien de se déconecter de la \0036Part-Line.\0036"
   putlog "PRIVMSG ok, test broadcast"
   dccbroadcast "\00312Déconnection PL pour \0034$hand\0034"
   putlog "BROADCAST ok"
   return 0
}

putlog "\002\0034Chargement.. \002\037\0031Paty-line.tcl V1.0 by bouba89 \037\0031"

Ensuite, on se connecte en party-line, on fait un .rehash et on tapes:

Code :
.binds chon

Et là, tu vois:

Code :
Liaisons de commande:
  TYPE FLAGS    COMMAND              HITS BINDING (TCL)
No command bindings for type: chon.

Donc, tu vas chercher sur http://wiki.eggdrop.fr/Binds#CHON et tu lis:

wiki a écrit :Syntaxe: bind chon <flags> <mask> <proc>

Ah ben voila, tu as oublié le masque (qui est normalement *)

bouba89 · 04/12/2012, 17:15

merci CrazyCat cela fonctionne

cordialement

Se connecter
Utilisateur :
Mot de passe :	Mot de passe oublié ?
	Se rappeler