Remove directory backend

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"

www/index.txt

@@ -1,3 +0,0 @@
-Usage
-
-dumper/<p>: Dumps advtrains_<p> as associated lists