Paste: headers

Author: doublec
Mode: factor
Date: Fri, 6 Feb 2009 05:45:11
Plain Text | 
http://localhost:9000/upload^M
^M
POST /upload HTTP/1.1^M
Host: localhost:9000^M
User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.2a1pre) Gecko/20090205 Minefield/3.2a1pre^M
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8^M
Accept-Language: en-us,en;q=0.5^M
Accept-Encoding: gzip,deflate^M
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7^M
Keep-Alive: 300^M
Connection: keep-alive^M
Referer: http://localhost:9000/upload^M
Cookie: __s=5271835166104951508^M
Content-Type: multipart/form-data; boundary=---------------------------190010143310101056511944487106^M
Content-Length: 604^M
-----------------------------190010143310101056511944487106^M
Content-Disposition: form-data; name="__s"^M
^M
5271835166104951508^M
-----------------------------190010143310101056511944487106^M
Content-Disposition: form-data; name="__u"^M
^M
http://localhost:9000/upload^M
-----------------------------190010143310101056511944487106^M
Content-Disposition: form-data; name="title"^M
^M
foo^M
-----------------------------190010143310101056511944487106^M
Content-Disposition: form-data; name="file"; filename="test.txt"^M
Content-Type: text/plain^M
^M
abcd
^M
-----------------------------190010143310101056511944487106--^M
^M
HTTP/1.x 500 Internal server error^M
Connection: close^M
Content-Type: text/html; charset=UTF-8^M
Date: Fri, 6 Feb 2009 05:44:15 GMT^M
Server: Factor http.server^M
----------------------------------------------------------^M

Annotation: error

Author: doublec
Mode: factor
Date: Fri, 6 Feb 2009 05:45:31
Plain Text | 
Type check error
Object:
T{ mime-variable f ~hashtable~ "__s" "5271835166104951508" }
Object type:
mime-variable
Expected type:
bignum

[ call -> stop ]
[ swap >c call -> c> drop ]
[ [ compose ~quotation~ curry recover ] [ drop ] 2bi -> call ]
[ [ 2keep ] dip -> call ]
[ [ call ] 2dip -> ]
[ swap >c call -> c> drop ]
[ H{ } clone >n call -> ndrop ]
[ H{ } clone >n call -> ndrop ]
[ [ compose ~quotation~ curry recover ] [ drop ] 2bi -> call ]
[ [ 2keep ] dip -> call ]
[ [ call ] 2dip -> ]
[ swap >c call -> c> drop ]
[
64 1024 * stream-throws limit-input ?refresh-all
[ read-request ] ?benchmark [ do-request ] ?benchmark ->
[ do-response ] ?benchmark
]
[ swap >c call -> c> drop ]
[ iterate-step -> iterate-next (each-integer) ]
[ swap [ 2dup 2slip ] dip -> swap ]
[ [ call ] 2dip -> ]
[
sessions set request-session -> [ begin-session ] unless*
existing-session put-session-cookie
]
request-session
select-tuple
do-select
bind-statement
sqlite-statement=>low-level-bind
sqlite-bind-int64
sqlite3_bind_int64
[
63 getenv error-thread set-global
continuation -> error-continuation set-global rethrow
]

Annotation: possible fix

Author: erg
Mode: factor
Date: Fri, 6 Feb 2009 05:56:17
Plain Text | 
: save-mime-part ( multipart -- )
    dup name>> empty-name? [
        drop
    ] [        [ name-content>> ] 
        [ name>> unquote ]
        [ mime-parts>> set-at ] tri
    ] if ;

New Annotation

Summary:
Author:
Mode:
Body: