scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
scheme/httpd/surflets/surflets.scm
View File

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