Author: achiumenti Date: Tue Aug 26 07:08:35 2008 New Revision: 76

Modified: trunk/main/connectors/hunchentoot/src/hunchentoot.lisp Log: updated hunchentoot connector

Modified: trunk/main/connectors/hunchentoot/src/hunchentoot.lisp ============================================================================== --- trunk/main/connectors/hunchentoot/src/hunchentoot.lisp (original) +++ trunk/main/connectors/hunchentoot/src/hunchentoot.lisp Tue Aug 26 07:08:35 2008 @@ -29,8 +29,9 @@

(in-package :hunchentoot-connector)

-(setf hunchentoot:*hunchentoot-default-external-format* (flex:make-external-format :utf-8 :eol-style :lf)) -(setf hunchentoot:*default-content-type* "text/html; charset=utf-8") +(setf hunchentoot:*hunchentoot-default-external-format* (flex:make-external-format :utf-8 :eol-style :lf) + hunchentoot:*default-content-type* "text/html; charset=utf-8" + hunchentoot:*handle-http-errors-p* nil)

(defgeneric claw-to-hunchentoot-cookie (claw-cookie) (:documentation "Returns hunchentoot cookie from a claw cookie")) @@ -313,14 +314,12 @@

(defmethod (setf connector-reply-external-format-encoding) (value (connector hunchentoot-connector)) (let ((encoding (flexi-streams:external-format-name (hunchentoot:reply-external-format)))) - ;(log-message :info "ENCODING: ~a| VALUE: ~a" encoding value) (unless (and (null value) (equal encoding value)) (setf (hunchentoot:reply-external-format) (flex:make-external-format value :eol-style :lf)))))

(defmethod connector-writer ((connector hunchentoot-connector)) (hunchentoot:send-headers)) - ;*standard-output*)

(defmethod connector-redirect ((connector hunchentoot-connector) target &key host port protocol add-session-id code) (hunchentoot:redirect target