blob: befdc093f366ebc14d8b4bb1799c6e5ce12c146b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
(in-package #:mulkcms-hunchentoot)
#+(or)
(define-easy-handler handle-admin-request (action)
;; XXX
)
(defun dispatch-static-file-request (request)
(let* ((relative-path (subseq (script-name request) 1))
(file (merge-pathnames relative-path *static-files*)))
(and (probe-file file)
;; For security (otherwise paths like "/../mulkcms.lisp" or
;; "//boot/initrd.img" would be handled by sending the
;; 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 (append (get-parameters*) (post-parameters*)))))
(defun setup-handlers ()
(setq *dispatch-table*
(list* (create-prefix-dispatcher "/admin" 'handle-admin-request)
'dispatch-mulkcms-request
'dispatch-static-file-request
*dispatch-table*))
(setq *default-handler*
(lambda ()
(setf (return-code*) +http-not-found+))))
(defun start-server ()
(setq hunchentoot:*hunchentoot-default-external-format*
(flexi-streams:make-external-format :utf-8))
(setq hunchentoot:*default-content-type*
"text/html; charset=utf-8")
(setup-handlers)
(hunchentoot:start (make-instance 'hunchentoot:acceptor
:port *server-port*
:address *server-address*)))
|
