From 0bb601a0e0502ff5e96651b837e9d587f6b81190 Mon Sep 17 00:00:00 2001
From: vibr <vibr>
Date: Sat, 14 Aug 2004 22:08:07 +0000
Subject: [PATCH] make server-generated webpages XHTML 1.0 Strict: emit prolog
 (not tested)

---
 scheme/httpd/file-dir-handler.scm | 1 +
 scheme/httpd/info-gateway.scm     | 4 ++--
 scheme/httpd/rman-gateway.scm     | 3 ++-
 3 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/scheme/httpd/file-dir-handler.scm b/scheme/httpd/file-dir-handler.scm
index c79c401..33824f0 100644
--- a/scheme/httpd/file-dir-handler.scm
+++ b/scheme/httpd/file-dir-handler.scm
@@ -416,6 +416,7 @@
 		     (file-directory-options-back-icon-url options))
 		    (blank-icon
 		     (file-directory-options-blank-icon-url options)))
+		(emit-prolog port)
 		(with-tag port html (xmlnsdecl-attr)
 		  (let ((title (string-append "Index of /"
 					      (string-join file-path "/"))))
diff --git a/scheme/httpd/info-gateway.scm b/scheme/httpd/info-gateway.scm
index d2fc19a..1043fc6 100644
--- a/scheme/httpd/info-gateway.scm
+++ b/scheme/httpd/info-gateway.scm
@@ -163,14 +163,14 @@
 	    '()
 	    (make-writer-body
 	     (lambda (out options)
-	   
+	       (emit-prolog out)
 	       (receive (find-entry node-name) (parse-info-url (request-url req))
 		 (display-node node-name
 			       (file-finder find-entry)
 			       (referencer make-reference (request-url req) out)
 			       icon-name
 			       out))
-	       (with-tag out address ()
+	       (with-tag out address ();; this is outside the html element?
 		 (write-string address out)))))))
 	 ((or (string=? request-method "HEAD")
 	      (string=? request-method "POST"))
diff --git a/scheme/httpd/rman-gateway.scm b/scheme/httpd/rman-gateway.scm
index 727b5b9..0eb9f39 100644
--- a/scheme/httpd/rman-gateway.scm
+++ b/scheme/httpd/rman-gateway.scm
@@ -62,13 +62,14 @@
 	    '()
 	    (make-writer-body
 	     (lambda (out options)
+	       (emit-prolog out)
 	       (receive (man-path entry and-then) 
 		   (parse-man-url (request-url req))
 		 (emit-man-page man-binary nroff-binary rman-binary
 				gzcat-binary
 				entry man man-path and-then reference-template out))
 	       
-	       (with-tag out address ()
+	       (with-tag out address () ;;außerhalb des html elements?
 		 (display address out)))))))
 	 ((or (string=? request-method "HEAD")
 	      (string=? request-method "POST"))