From e877336d0a32072bdd4221a41d231573736b8687 Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Wed, 28 Aug 2002 10:10:45 +0000
Subject: [PATCH] send extra headers from script's output

---
 scheme/httpd/cgi-server.scm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/scheme/httpd/cgi-server.scm b/scheme/httpd/cgi-server.scm
index c8e3d4a..bf5f99b 100644
--- a/scheme/httpd/cgi-server.scm
+++ b/scheme/httpd/cgi-server.scm
@@ -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)