Communauté sur les Eggdrops - Community about Eggdrops
Script Tcl ne fonctione plus - Printable Version

+- Communauté sur les Eggdrops - Community about Eggdrops (https://forum.eggdrop.fr)
+-- Forum: Eggdrop et TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=8)
+--- Forum: Scripts TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=4)
+--- Thread: Script Tcl ne fonctione plus (/showthread.php?tid=1042)



Script Tcl ne fonctione plus - snip74 - 26/09/2011

Bonjour,
J'ai un code qui ne fonctionne plus et je n'arrive pas a trouvé l'erreur voici mon code :


Code:
proc pub:spamadd { nick uhost handle channel arg } {
if {[string match "*$::master_host" $uhost]} {
    set spam_sanction [lindex [split $arg] 0]
    set spam_motif [lrange [split $arg] 1 end]
    puthelp "SPAMFILTER + cpnN $spam_sanction $spam_sanction spam_(_publicite_)_interdite_$::convenance $spam_motif"
    puthelp "PRIVMSG $::chan_op : Ajout SPAMFILTER par $nick Sanction : $spam_sanction  Cible : $spam_motif"
    }
}
Le bute de se code et de tapé !spam lien et sa ajoute un gline sur le lien que long na choisir exemple :

Je tape !spam Lien-Non-désiré.fr
sa devrai l'ajouter en spam dans le spamfliter comme suite :

*** Spamfilter added: 'http//www.Lien.html' [target: cpnN] [action: gline] [reason: spam ( publicite ) interdite http://www.lien.org/reglement.html] on Sun Sep 25 22:46:42 2011 GMT (from admin@NetAdmin.org)


L'erreur que je reçois en ctcp eggdrop chat :

[00:43] <eggdrop> [00:44] -NOTICE- Invalid 'action' field (Lien-Non-désiré.fr)
[00:43] <eggdrop> [00:44] -NOTICE- Use: /spamfilter [add|del|remove|+|-] [type] [action] [tkltime] [tklreason] [regex]
[00:43] <eggdrop> [00:44] -NOTICE- See '/helpop ?spamfilter' for more information.

Cordialement Stéphane


RE: Script Tcl ne fonctione plus - blaster911 - 26/09/2011

Salut,

Effectivement, lors de l'ajout d'un spamfilter une action doit être spécifier dans ton cas "gline" donc


tcl
proc pub:spamadd { nick uhost handle channel arg } {
 if {[string match "*$::master_host" $uhost]} {
     set spam_motif [lrange [split $arg] 0 end]
     puthelp "SPAMFILTER + cpnN gline 30d spam_(_publicite_)_interdite_$::convenance $spam_motif"
     puthelp "PRIVMSG $::chan_op : Ajout SPAMFILTER par $nick Sanction : Gline  Cible : $spam_motif"
     }
 }


Ps: Pour du TCL utilise la balise "tcl" à la place de la balise "code" ;o)