blob: 3200110558c3d88b70c96af9f07d2ad61be5abce (
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
|
(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)))
(or (mulkcms::find-journal-archive-request-handler
relative-path
(assoc "full" (get-parameters*) :test #'equal))
(mulkcms::find-article-request-handler relative-path))))
(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* '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*)))
|
