bind chon eggdrop

[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]

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]

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]

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

[bouba89]

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]

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:

Syntaxe: bind chon <flags> <mask> <proc>

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

[bouba89]

merci CrazyCat cela fonctionne

cordialement