Code:

set files "/home/eggdrop/test.txt"bind pub - !test test_sendproc test_send {nick uhost hand chan file} {        global files        switch -- [dccsend $files $nick] {                0 {                        puthelp "NOTICE $nick :sending $files to you."                        dccsend $files $nick                }                1 { puthelp "NOTICE $nick :dcc table is full (too many connections), try to get $files later." }                2 { puthelp "NOTICE $nick :can't open a socket for the transfer of $files." }                3 { puthelp "NOTICE $nick :$files doesn't exist." }                4 { putserv "PRIVMSG $chan :Unable to send $files (User has too many transfers)" }        }}