un pti tcl de send

[caline012]

tclcopier

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." }
}
}

voila jaimerai faire un petit systeme de partage de fichier via mon egg mais je seche un peut la.