使用TCL上传文件

Question

我是一个在OpenACS架构上工作的新手，需要通过TCL上传一个.xml文件。我浏览了文档并尝试使用这里提到的代码：http://wiki.tcl.tk/13675

但是，我无法理解代码，复制-粘贴无法工作。有没有人能推荐一种更简单的方法在TCL中上传文件？一个有效的代码将会有很大的帮助。

我需要通过HTTP表单上传文件(带有输入类型文件参数)，并且我需要服务器端代码。

Answer 1

OpenACS已经内置了文件上传功能(假设您使用的是OpenACS表单构建器，也就是ad_form，template::form -它有很多名字！)。您需要使用的特定小部件是template::widget::file

通用注释包中有一个有效的示例(参见file-ae.adp、file-add.tcl和file-add-2.tcl)：http://cvs.openacs.org/browse/OpenACS/openacs-4/packages/general-comments/www/file-ae.adp?r=1.6 http://cvs.openacs.org/browse/OpenACS/openacs-4/packages/general-comments/www/file-add.tcl?r=1.4 http://cvs.openacs.org/browse/OpenACS/openacs-4/packages/general-comments/www/file-add-2.tcl?r=1.6

具体地说，注意两个ad_page_contract参数，并在代码中跟踪这些变量：

upload_file:notnull
upload_file.tmpfile:tmpfile

Answer 2

在大多数情况下，重新发明网络协议并不是很有价值，所以我建议使用经过验证的社区库。根据我的个人经验，我很高兴能与libcurl打交道(参见http://curl.haxx.se/libcurl/tcl)