24 октября 2011

Common Lisp. Файловый http сервер.

В cl можно предоставить http доступ к папке за две формы, за что архимагу и спасибо.

(ql:quickload :restas-directory-publisher)

(restas:start :restas.directory-publisher
              :port 8080
              :context (restas:make-context (restas.directory-publisher:*baseurl* '("tmp"))
                                            (restas.directory-publisher:*directory* #P"/tmp/")
                                            (restas.directory-publisher:*autoindex* t)))

Комментариев нет:

Отправить комментарий