Author: lgiessmann Date: Mon Sep 19 03:11:58 2011 New Revision: 922
Log:
Modified: branches/gdl-frontend/src/rest_interface/set-up-gdl-interface.lisp
Modified: branches/gdl-frontend/src/rest_interface/set-up-gdl-interface.lisp ============================================================================== --- branches/gdl-frontend/src/rest_interface/set-up-gdl-interface.lisp Mon Sep 19 02:28:50 2011 (r921) +++ branches/gdl-frontend/src/rest_interface/set-up-gdl-interface.lisp Mon Sep 19 03:11:58 2011 (r922) @@ -17,7 +17,7 @@ (defparameter *gdl-base-path* "anaToMia/hosted_files/") (defparameter *gdl-host-file* (concat *gdl-base-path* "GDL_Widgets.html")) (defparameter *gdl-tm-id* "http://textgrid.org/serviceregistry/gdl-frontend/gdl-tm") -(defparameter *gdl-sparql* "/gdl/tm-sparql/?$") +(defparameter *gdl-sparql* "/gdl/sparql/?$")
(defun set-up-gdl-interface (&key (get-fragment *gdl-get-fragment*) @@ -61,7 +61,7 @@ hunchentoot:*dispatch-table*)
(push - (create-regex-dispatcher gdl-sparql #'gdl-tm-sparql) + (create-regex-dispatcher gdl-sparql #'gdl-sparql-handler) hunchentoot:*dispatch-table*))
@@ -221,7 +221,7 @@ (setf (hunchentoot:return-code*) hunchentoot:+http-bad-request+))))
-(defun gdl-tm-sparql (&optional param) +(defun gdl-sparql-handler(&optional param) "Returns a JSON object representing a SPARQL response." (declare (Ignorable param)) (if (eql (hunchentoot:request-method*) :POST)