私は OpenACS アーキテクチャに取り組んでいる初心者で、TCL を介して .xml ファイルをアップロードする必要があります。ドキュメントを調べて、ここに記載されているコードを回避しようとしました: http://wiki.tcl.tk/13675
ただし、コードを理解できず、コピーアンドペーストが機能しません。誰かが TCL でファイルをアップロードするためのより簡単な作業方法を提案できますか? 作業コードは非常に役立ちます。
HTTP フォーム (入力タイプのファイル パラメータを使用) を介してファイルをアップロードする必要があり、サーバー側のコードを求めています。
OpenACS にはすでにファイル アップロード機能が組み込まれています (OpenACS フォーム ビルダー、別名 ad_form、template::form を使用していると仮定します。これには多くの名前があります!)。使用する必要がある特定のウィジェットはtemplate::widget::file です
実際の例は、General Comments パッケージにあります (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
具体的には、2 つの ad_page_contract パラメータに注目し、これらの変数に従ってコードをたどります。
upload_file:notnull
upload_file.tmpfile:tmpfile
ほとんどの場合、ネットワーク プロトコルの再発明はあまり価値がないため、実績のあるコミュニティ ライブラリを使用することをお勧めします。私の個人的な経験から言えば、libcurl を扱ってよかったと思っています ( http://curl.haxx.se/libcurl/tclを参照) 。