upload-handler-procs.tcl

Does not contain a contract.

Location:

/packages/xowiki/tcl/upload-handler-procs.tcl

Related Files

• packages/xowiki/tcl/upload-handler-procs.tcl

[ hide source ] | [ make this the default ]

File Contents

namespace eval ::test {
    #::xo::ProtocolHandler create ::tlf::podcast::interface -url /podcast-ical
    ::xo::ProtocolHandler create ::test::uploadhandler -url /multi-put
    ::test::uploadhandler proc set_user_id {} {
    set :user_id 143022
    ad_conn -set user_id ${:user_id}
    }
    ::test::uploadhandler proc PUT {} {

        set file [ns_getcontent]
        ns_log notice "received [ns_conn url] $file [file size $file]"

        #set headers [ns_conn headers]
        #foreach {tag value} [ns_set array $headers] {  ns_log debug "... $tag: $value"}

        ns_return 201 text/plain OK
    }
}