Author: hhubner Date: 2007-11-14 02:35:39 -0500 (Wed, 14 Nov 2007) New Revision: 2280 Modified: branches/trunk-reorg/projects/scrabble/src/start-webserver.lisp Log: Remove hunchentoot patch. Modified: branches/trunk-reorg/projects/scrabble/src/start-webserver.lisp =================================================================== --- branches/trunk-reorg/projects/scrabble/src/start-webserver.lisp 2007-11-14 07:31:01 UTC (rev 2279) +++ branches/trunk-reorg/projects/scrabble/src/start-webserver.lisp 2007-11-14 07:35:39 UTC (rev 2280) @@ -20,45 +20,6 @@ (make-pathname :name nil :type nil :version nil :defaults (merge-pathnames #p"../../../thirdparty/MochiKit/MochiKit/" *load-truename*))) - -;; for now... -(in-package :hunchentoot) - -(defun enough-url (url url-prefix) - (subseq url (mismatch url url-prefix))) - -(defun create-folder-dispatcher-and-handler (uri-prefix base-path &optional content-type) - "Creates and returns a dispatch function which will dispatch to a -handler function which emits the file relative to BASE-PATH that is -denoted by the URI of the request relative to URI-PREFIX. URI-PREFIX -must be a string ending with a slash, BASE-PATH must be a pathname -designator for an existing directory. If CONTENT-TYPE is not NIL, -it'll be the content type used for all files in the folder." - (unless (and (stringp uri-prefix) - (plusp (length uri-prefix)) - (char= (char uri-prefix (1- (length uri-prefix))) #\/)) - (error "~S must be string ending with a slash." uri-prefix)) - (when (or (pathname-name base-path) - (pathname-type base-path)) - (error "~S is supposed to denote a directory." base-path)) - (flet ((handler () - (let* ((script-name (url-decode (script-name))) - (script-path (enough-url (regex-replace-all "\\\\" script-name "/") - uri-prefix)) - (script-path-directory (pathname-directory script-path))) - (unless (or (stringp script-path-directory) - (null script-path-directory) - (and (listp script-path-directory) - (eq (first script-path-directory) :relative) - (loop for component in (rest script-path-directory) - always (stringp component)))) - (setf (return-code) +http-forbidden+) - (throw 'handler-done nil)) - (handle-static-file (merge-pathnames script-path base-path) content-type)))) - (create-prefix-dispatcher uri-prefix #'handler))) - -(in-package :scrabble.web) - (defun start-webserver (&key (port 4242)) (open-scrabble-store) (when (and (boundp '*server*) *server*)