Script Tcl ne fonctione plus

[snip74]

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