'''File Upload Example'''
Here are two files that I use to upload files to Tclhttpd. They can be loaded in the custom directory.
Create a "hup" directory under the Doc_Root directory where the files will be uploaded. The upfile.tcl file displays a page that allows you to select the files you want to upload. It also lists the files that are currently in the "hup" directory and gives you a check box option to deletethem. The fileupload.tcl handles the upload of files and has some javascipt which causes the upfile page to be retrieved again.
Point your browser to http://yourserver/upfile
************* Save to upfile.tcl *********
Direct_Url /upfile UpFile
proc UpFile {} {
global env
set html "You can upload files to the /hup directory. The files currently in the /hup directory are listed in the table below.\n"
append html ""
append html "\n"
return $html
}
proc UpFile/filedelete {args} {
global env
foreach {name value} $args {
file delete [Doc_Root]/hup/$name
}
set html "\n"
append html "\n"
append html ""
append html ""
append html ""
append html ""
append html ""
return $html
}
**************** Save to fileupload.tcl *********************
package require httpd::upload
Upload_Url /fileupload [Doc_Root]/hup FileUpload
proc FileUpload {args} {
global env
# Generate Page Header
set html "\n"
append html "\n"
append html "\n"
append html "\n"
append html "\n"
append html "\n"
append html "\n"
return $html
}