prepare for POST requests

This commit is contained in:
interp 2002-10-03 00:18:10 +00:00
parent 30aca350b9
commit 091f5ab590
1 changed files with 25 additions and 1 deletions

View File

@ -37,7 +37,31 @@
(define form-query parse-html-form-query)
(define (get-bindings request)
(let ((request-method (request:method request)))
(cond
((string=? request-method "GET")
(form-query (http-url:search (request:url request))))
; ((string=? request-method "POST")
; (let* ((content-length (get-content-length (request:headers request)))
; (form-data (read-line **IN**)))
; (form-query form-data)))
(else
(error "unsupported request type")))))
;; Will be needed when we handle POST requests.
;(define (get-content-length headers)
; (cond ((get-header headers 'content-length) =>
; ;; adopted from httpd/cgi-server.scm
; (lambda (content-length) ; Skip initial whitespace (& other non-digits).
; (let ((first-digit (string-index content-length char-set:digit))
; (content-length-len (string-length content-length)))
; (if first-digit
; (number->string (substring content-length first-digit
; content-length-len))
; ;; http-status/bad-request req
; `(error "Illegal `Content-length:' header.")))))
; (else
; (error "No Content-length specified for POST data."))))
(define (extract-bindings bindings key)
(let ((key (if (symbol? key) (symbol->string key) key)))