Code:

proc pub_sendfile {nick uhost hand chan arg} {   global sendfile_path autolog_exempt autolog_file  set stlchan [string tolower $chan]  if {$autolog_exempt != "" && [lsearch -exact [split [string tolower $autolog_exempt]] $stlchan] != -1} {    return 0  } else {     regsub -all -- "%chan" $autolog_file $chan file     regsub -all -- "%stripchan" $file [string trim $chan "#+&!"] file     set sendfile_file ""     append sendfile_file $sendfile_path $file     switch -- [dccsend $sendfile_file $nick] {       0 { putserv "NOTICE $nick :Sending file." }       1 { putserv "NOTICE $nick :Error: Too many pending file requests. Try again later, thank you." }       2 { putserv "NOTICE $nick :Error: Could not open socket. Please notify my admin, thank you." }       3 { putserv "NOTICE $nick :Error: File does not exist. Please notify my admin, thank you." }       4 { putserv "NOTICE $nick :Error: Too many file sends already in progress. Your request has been added to the queue, please wait, thank you." }     }   } }