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

send extra headers from script's output

This commit is contained in:
interp 2002-08-28 10:10:45 +00:00
parent c5c67ec837
commit e877336d0a
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
scheme/httpd/cgi-server.scm
View File

@ -283,7 +283,12 @@
((null? (cdr stat-lines)) ; One line status header. ((null? (cdr stat-lines)) ; One line status header.
(car stat-lines)) (car stat-lines))
(else ; Vas ist das? (else ; Vas ist das?
(signal 'cgi-multi-status-line-error)))))) (signal 'cgi-multi-status-line-error)))))
(extra-headers (delete-headers
(delete-headers
(delete-headers headers 'content-type)
'location)
'status)))
(http-syslog (syslog-level debug) "[cgi-server] headers: ~s~%" headers) (http-syslog (syslog-level debug) "[cgi-server] headers: ~s~%" headers)
(http-syslog (syslog-level debug) "[cgi-server] request:method=~a~%" (http-syslog (syslog-level debug) "[cgi-server] request:method=~a~%"
@ -294,7 +299,7 @@
(status-code->text http-status/ok) (status-code->text http-status/ok)
(time) (time)
ctype ctype
'() extra-headers
(make-writer-body (make-writer-body
(lambda (out options) ; what about loc? (lambda (out options) ; what about loc?
(copy-inport->outport script-port out) (copy-inport->outport script-port out)