un pti tcl de send

[caline012]

Bonsoir, voila desoler de revenir mais jai rien qui se produit une fois la commandes (!send) taper sur mon chan :

tclcopier

set commande(choix) "!"
set sendfile_chans "#irc-pacifique"
set sendfile_file "c:\Users\pseudo\Documents\send\Zazie - Zen.mp3"
bind pub - $commande(choix)sendfile pub:sendfile
proc pub:sendfile {nick uhost hand chan arg} {
global sendfile_file sendfile_chans
if {([lsearch -exact [string tolower $sendfile_chans] [string tolower $chan]] != -1) || ($sendfile_chans == "*")} {
switch -- [dccsend $sendfile_file $nick] {
0 { putserv "NOTICE $nick :Ok jte l'envoit !" }
1 { putserv "NOTICE $nick :Erreur: Trop de demande merci de recommencer plus tard." }
}
}
}

ai-je fait une erreur quelque part ? jai essayer avec ou sans l extention.mp3 mais rien ne change.merci de votre aide en esperant que ca fonctionne