diff --git a/dataserver.lisp b/dataserver.lisp index 427d374..c48fa05 100644 --- a/dataserver.lisp +++ b/dataserver.lisp @@ -10,17 +10,9 @@ :ensure-directory t :want-existing 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))) - (server (make-instance 'easy-routes:easy-routes-acceptor + (server (make-instance 'easy-routes:routes-acceptor :port serverport))) - (setf (hunchentoot:acceptor-document-root server) wwwpath) (ywsw:safe-text-route ("/dumpser/:p" :method :get) (&path (p 'string)) (format nil "~s" diff --git a/www/index.txt b/www/index.txt deleted file mode 100644 index d1dff26..0000000 --- a/www/index.txt +++ /dev/null @@ -1,3 +0,0 @@ -Usage - -dumper/

: Dumps advtrains_

as associated lists