blob: 205534f3d5c1cdcfb0852dc8702ad913e0a5e7f5 (
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
|
(in-package #:mulkcms-hunchentoot)
(define-easy-handler handle-admin-request (action)
;; XXX
)
(defun dispatch-static-file-request (request)
;; FIXME Can use paths like "/../mulkcms.lisp" or "//boot/initrd.img".
;; That's bad.
(let* ((relative-path (subseq (script-name request) 1))
(file (merge-pathnames relative-path *static-files*)))
(and (probe-file file) (lambda () (handle-static-file file)))))
(defun dispatch-mulkcms-request (request)
(let* ((relative-path (subseq (script-name request) 1)))
(mulkcms::find-mulkcms-request-handler relative-path)))
(defun setup-handlers ()
(setq *dispatch-table*
(list* 'dispatch-static-file-request
(create-prefix-dispatcher "/admin" 'handle-admin-request)
'dispatch-mulkcms-request
*dispatch-table*))
(setq *default-handler* 'handle-mulkcms-request))
(defun start-server ()
(setq hunchentoot:*hunchentoot-default-external-format*
(flexi-streams:make-external-format :utf-8))
(setup-handlers)
(hunchentoot:start (make-instance 'hunchentoot:acceptor
:port *server-port*
:address *server-address*)))
|
