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

Add SURFLET-RESPONSE->STRING for debug purpose.

This commit is contained in:
interp 2003-01-25 13:30:45 +00:00
parent c7bdc50564
commit 220ac99930
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
scheme/httpd/surflets/surflet-handler.scm
View File

@ -70,6 +70,13 @@
(define (valid-surflet-response-data? data) (define (valid-surflet-response-data? data)
(or (string? data) (list? data))) (or (string? data) (list? data)))
(define (surflet-response->string surflet-response)
(format #f "#{Surflet-response Status: ~a Content-Type: ~s Headers: ~s~%~s~%"
(surflet-response-status surflet-response)
(surflet-response-content-type surflet-response)
(surflet-response-headers surflet-response)
(surflet-response-data surflet-response)))
;; Surflet-prefix is unused now. Formerly, it contained the virtual ;; Surflet-prefix is unused now. Formerly, it contained the virtual
;; path prefix for the handler. ;; path prefix for the handler.