caline012 a écrit :bonjour donc pas possibiliter d'etre aider ???Donne nous les erreurs (copie/colle) pour que l'on puisse voir le problème, et on pourra peut-être t'aider.
caline012 a écrit :Et autre chose que jai moyenement aprecier c'est d'avoir ete mis entre toi dav34 et goo sur un autre forum.je vien de voir ca et je doit dire que je trouve pas ca top correcte moi je post uniquement ici et je ne sait meme pas qu'elle est votre different donc voila.Pardon? Si c'est à moi que tu t'adresses, je ne vois pas de quoi tu parles.
Pour en revenir au problème, la première erreur que je vois est qu'il manque un "}" à la fin, ce qui se verrait immédiatement avec une bonne indentation:
tcl
set commande(choix) "!"
set sendfile_chans "#irc-pacifique"
set sendfile_file "C:...."
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 : c good" }
1 { putserv "NOTICE $nick :Erreur: merci de recommencer plus tard." }
}
}
}