Remove bug from POST forms: Let GET-HEADER return only the header

value.
This commit is contained in:
interp 2003-01-25 12:19:54 +00:00
parent 1f10457d52
commit 0bee80fadf
1 changed files with 5 additions and 2 deletions

View File

@ -83,7 +83,10 @@
(release-lock *cache-lock*)
result))
(define get-header assq)
(define (get-header headers tag)
(cond ((assq tag headers) => cdr)
(else #f)))
;; Will be needed when we handle POST requests.
(define (get-content-length headers)
@ -96,7 +99,7 @@
(string->number (substring content-length first-digit
content-length-len))
;; (status-code bad-request) req
`(error "Illegal `Content-length:' header.")))))
(error "Illegal `Content-length:' header.")))))
(else
(error "No Content-length specified for POST data."))))