| (defop upload req
(aform (fn (req) (prn req))
(pr (tag (input name "uploadedfile" type "file"))) (submit)))
This does not work, noticeably the form is missing the enctype="multipart/form-data"
And if enctype is added via firebug or the entire form is pr as a string, it still hangs the server, then outputs the following: arc> srv thread took too long for 127.0.0.1
user break
=== context ===
/home/tim/sites/arc3/ac.scm:884:12: readc
gs1058
handle-post
gs1048
gs1048
handle-request-thread
|