This patch restores the correct page type handling for ContentType
=====================================================================
diff --git a/changelog b/changelog
index 7608e21..ea3d202 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,4 @@
+20071014 acr src/algebra/axserver.spad use getContentType(pathvar)
20071013 acr license/license.ralfs license rewrite
20071013 acr src/interp/http.lisp faster page service
20071013 acr src/algebra/axserver.spad faster page service
diff --git a/src/algebra/axserver.spad.pamphlet
b/src/algebra/axserver.spad.pamphlet
index 791d851..741840f 100644
--- a/src/algebra/axserver.spad.pamphlet
+++ b/src/algebra/axserver.spad.pamphlet
@@ -95,7 +95,7 @@ AxiomServer: public == private where
WriteLine("")$Lisp
WriteLine("getFile begin")$Lisp
if not null? PATHNAME_-NAME(PATHNAME(pathvar)$Lisp)$Lisp then
- contentType:String := "application/xhtml+xml"
+ contentType:String := getContentType(pathvar)
q := Open(pathvar)$Lisp
if null? q then
q := MAKE_-STRING_-INPUT_-STREAM("File doesn't exist")$Lisp
_______________________________________________
Axiom-developer mailing list
[email protected]
http://lists.nongnu.org/mailman/listinfo/axiom-developer
