From 6501daf7d0906f97125613c82af911aeed734971 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Sat, 12 Mar 2011 16:27:21 +0100 Subject: Return a 404 for unhandled URIs. --- mulkcms-hunchentoot.lisp | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'mulkcms-hunchentoot.lisp') diff --git a/mulkcms-hunchentoot.lisp b/mulkcms-hunchentoot.lisp index babcae3..0b5cb87 100644 --- a/mulkcms-hunchentoot.lisp +++ b/mulkcms-hunchentoot.lisp @@ -1,5 +1,6 @@ (in-package #:mulkcms-hunchentoot) +#+(or) (define-easy-handler handle-admin-request (action) ;; XXX ) @@ -13,11 +14,12 @@ ;; requested file...): (starts-with-subseq (namestring (truename *static-files*)) (namestring (truename file))) + (not (directory-pathname-p file)) (lambda () (handle-static-file file))))) (defun dispatch-mulkcms-request (request) (let* ((relative-path (subseq (script-name request) 1))) - (mulkcms:find-request-handler relative-path(get-parameters*)))) + (mulkcms::find-request-handler relative-path (get-parameters*)))) (defun setup-handlers () (setq *dispatch-table* @@ -25,7 +27,9 @@ 'dispatch-mulkcms-request 'dispatch-static-file-request *dispatch-table*)) - (setq *default-handler* 'handle-mulkcms-request)) + (setq *default-handler* + (lambda () + (setf (return-code*) +http-not-found+)))) (defun start-server () (setq hunchentoot:*hunchentoot-default-external-format* -- cgit v1.2.3