dotnetflags
not manx 5 years ago
parent 0ccfc27ff3
commit 4449477268
Signed by: C-xC-c
GPG Key ID: F52ED472284EF2F4

@ -30,7 +30,7 @@
(hunchentoot:abort-request-handler))
,@body))
(handle :post (api-post :uri "/staging/post")
(handle :post (api-post :uri "/api/post")
(post_nr regions board version)
(setf (hunchentoot:content-type*) "application/json")
(let ((separator (if (< 1 (get-version version)) "," "||")))
@ -42,7 +42,7 @@
(t
(format nil "{\"Error\": \"~a\"}~%" msg))))))
(handle :post (api-get :uri "/staging/get")
(handle :post (api-get :uri "/api/get")
(post_nrs board version)
(@json tbnl:*reply*)
(setf post_nrs (str:split "," post_nrs))
@ -52,7 +52,7 @@
(format nil "~a~%" (get-posts post_nrs board)))
(t (format nil "~a~%" "bad"))))
(handle :get (api-flags :uri "/staging/flags")
(handle :get (api-flags :uri "/api/flags")
()
(@plain tbnl:*reply*)
(format nil "~a~%" *flags-txt*))

Loading…
Cancel
Save