send extra headers from script's output
This commit is contained in:
parent
c5c67ec837
commit
e877336d0a
|
@ -283,7 +283,12 @@
|
|||
((null? (cdr stat-lines)) ; One line status header.
|
||||
(car stat-lines))
|
||||
(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] request:method=~a~%"
|
||||
|
@ -294,7 +299,7 @@
|
|||
(status-code->text http-status/ok)
|
||||
(time)
|
||||
ctype
|
||||
'()
|
||||
extra-headers
|
||||
(make-writer-body
|
||||
(lambda (out options) ; what about loc?
|
||||
(copy-inport->outport script-port out)
|
||||
|
|
Loading…
Reference in New Issue