suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Include bindings via query string in POST request bindings.

Browse Source 
The original implementation does not generate bindings from
the URL query string on POST requests. However, it is often
necessary to retrieve information from the query string on
a POST.
This commit is contained in:
Marc Burns 2012-08-27 20:40:38 -07:00 committed by Jay McCarthy
parent 3f825b8d20
commit be72d1475b
1 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
collects/web-server/http/request.rkt
View File

@ -218,18 +218,19 @@
;; read-bindings&post-data/raw: input-port symbol url (listof header?) -> (values (or/c (listof binding?) string?) (or/c bytes? false/c?))
(define (read-bindings&post-data/raw in meth uri headers)
(define bindings-GET
(delay
(filter-map
(match-lambda
[(list-rest k v)
(if (and (symbol? k) (string? v))
(make-binding:form (string->bytes/utf-8 (symbol->string k))
(string->bytes/utf-8 v))
#f)])
(url-query uri))))
(cond
[(bytes-ci=? #"GET" meth)
(values (delay
(filter-map
(match-lambda
[(list-rest k v)
(if (and (symbol? k) (string? v))
(make-binding:form (string->bytes/utf-8 (symbol->string k))
(string->bytes/utf-8 v))
#f)])
(url-query uri)))
#f)]
(values bindings-GET #f)]
[(bytes-ci=? #"POST" meth)
(define content-type (headers-assq* #"Content-Type" headers))
(cond
@ -264,7 +265,7 @@
(apply bytes-append contents))])])
(read-mime-multipart content-boundary in)))
(values
(delay bs)
(delay (append (force bindings-GET) bs))
#f)])]
[else
(match (headers-assq* #"Content-Length" headers)
@ -273,7 +274,7 @@
[(string->number (bytes->string/utf-8 value))
=> (lambda (len)
(let ([raw-bytes (read-bytes len in)])
(values (delay (parse-bindings raw-bytes)) raw-bytes)))]
(values (delay (append (parse-bindings raw-bytes) (force bindings-GET))) raw-bytes)))]
[else
(network-error
'read-bindings