[hunchentoot-devel] Customizing acceptor behaviour

[R.Stoye]

Another approach is to add an dispachtable slot to an customized  
acceptor class (as it was before Hunchentoot version 1.0):

(in-package :hunchentoot)

(defun pre1-list-request-dispatcher (request)
   (loop for dispatcher in (acceptor-dispatch-table *acceptor*)
         for action = (funcall dispatcher request)
         when action return (funcall action)
         finally (setf (return-code *reply*) +http-not-found+)))


(defclass pre1-acceptor (acceptor)
   ((pre1-dispatch-table :initarg :dispatch-table
			:accessor acceptor-dispatch-table))
   (:default-initargs
    :request-dispatcher #'pre1-list-request-dispatcher
     :dispatch-table nil))

;; (setf *myserver1* (make-instance 'pre1-acceptor :port 42001))
;; (setf (acceptor-dispatch-table *myserver1*)  (list (create-prefix- 
dispatcher "/mypage1.html" #'mypage1)))