Remove directory backend
parent
70217d6743
commit
df39038a8d
|
@ -10,17 +10,9 @@
|
||||||
:ensure-directory t
|
:ensure-directory t
|
||||||
:want-existing t
|
:want-existing t
|
||||||
:ensure-absolute t))
|
:ensure-absolute t))
|
||||||
(scriptpath (uiop:ensure-pathname *load-truename*))
|
|
||||||
(scriptdir (uiop:pathname-directory-pathname scriptpath))
|
|
||||||
(wwwpath (uiop:ensure-pathname (uiop:subpathname scriptdir "www")
|
|
||||||
:defaults (uiop:getcwd)
|
|
||||||
:ensure-directory t
|
|
||||||
:want-existing t
|
|
||||||
:ensure-absolute t))
|
|
||||||
(serverport (parse-integer (cadr argv)))
|
(serverport (parse-integer (cadr argv)))
|
||||||
(server (make-instance 'easy-routes:easy-routes-acceptor
|
(server (make-instance 'easy-routes:routes-acceptor
|
||||||
:port serverport)))
|
:port serverport)))
|
||||||
(setf (hunchentoot:acceptor-document-root server) wwwpath)
|
|
||||||
(ywsw:safe-text-route
|
(ywsw:safe-text-route
|
||||||
("/dumpser/:p" :method :get) (&path (p 'string))
|
("/dumpser/:p" :method :get) (&path (p 'string))
|
||||||
(format nil "~s"
|
(format nil "~s"
|
||||||
|
|
|
@ -1,3 +0,0 @@
|
||||||
Usage
|
|
||||||
|
|
||||||
dumper/<p>: Dumps advtrains_<p> as associated lists
|
|
Loading…
Reference in New Issue