[bknr-cvs] hans changed trunk/thirdparty/hunchentoot/acceptor.lisp

[BKNR Commits]

Revision: 4657
Author: hans
URL: http://bknr.net/trac/changeset/4657

set content-type to text/html when sending error page from file
U   trunk/thirdparty/hunchentoot/acceptor.lisp

Modified: trunk/thirdparty/hunchentoot/acceptor.lisp
===================================================================
--- trunk/thirdparty/hunchentoot/acceptor.lisp	2011-02-16 12:11:26 UTC (rev 4656)
+++ trunk/thirdparty/hunchentoot/acceptor.lisp	2011-02-16 12:24:35 UTC (rev 4657)
@@ -642,6 +642,7 @@
            (when error-file-template-pathname
              (with-open-file (file error-file-template-pathname :if-does-not-exist nil :element-type 'character)
                (when file
+                 (setf (content-type*) "text/html")
                  (substitute-request-context-variables (file-contents file))))))))
     (or (unless (< 300 http-status-code)
           (call-next-method))           ; don't ever try template for positive return codes