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

use symbol to search in browser headers

This commit is contained in:
interp 2004-07-21 18:56:03 +00:00
parent 8b627decc5
commit f23cd71100
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scheme/httpd/surflets/bindings.scm
View File

@ -9,8 +9,9 @@
(define *cache-lock* (make-lock)) (define *cache-lock* (make-lock))
(define (get-bindings surflet-request) (define (get-bindings surflet-request)
(format #t "** headers: ~S~%" (surflet-request-headers surflet-request))
(let ((request-method (surflet-request-method surflet-request)) (let ((request-method (surflet-request-method surflet-request))
(content-type (assoc "content-type" (content-type (assoc 'content-type
(surflet-request-headers surflet-request)))) (surflet-request-headers surflet-request))))
;; Check if we the content-type is the one we support. If there's ;; Check if we the content-type is the one we support. If there's