You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
54 lines
2.0 KiB
54 lines
2.0 KiB
;; (C) Copyright 2020 C-xC-c <boku@plum.moe>
|
|
;; This file is part of bantflags.
|
|
;; bantflags is licensed under the GNU AGPL Version 3.0 or later.
|
|
;; see the LICENSE file or <https://www.gnu.org/licenses/>
|
|
(in-package :bantflags)
|
|
|
|
(defun init ()
|
|
(assert (not (null config)))
|
|
(setf conn (conf 'db-conn))
|
|
(loop repeat (conf 'poolsize)
|
|
do ;; This doesn't work lole
|
|
(clsql:connect conn :database-type :mysql :pool t :if-exists :new))
|
|
(set-boards)
|
|
(set-flags)
|
|
(defvar *serb* (make-instance 'hunchentoot:easy-acceptor
|
|
:port (conf 'port)
|
|
:address "127.0.0.1" ;; localhost
|
|
:document-root (conf 'www-root)
|
|
:access-log-destination (conf 'access-log)
|
|
:message-log-destination (conf 'error-log))))
|
|
|
|
(defun main ()
|
|
(handler-case (init)
|
|
(error (c)
|
|
(format t "Init fucked up, exiting ~a" c)
|
|
(return-from main)))
|
|
(handler-case (hunchentoot:start *serb*)
|
|
(error (c)
|
|
(format t "couldn't start serb: ~a" c)
|
|
(return-from main))))
|
|
|
|
(defmethod hunchentoot:acceptor-status-message (acceptor (http-status-code (eql 404)) &key)
|
|
(format nil "")) ;; Empty 404 page
|
|
|
|
(henh:handle :post (api-post :uri "/api/post") @json
|
|
(post_nr regions board version)
|
|
(multiple-value-bind (result msg) (insert-post-p post_nr (cl-ppcre:split "," regions) board)
|
|
(cond
|
|
(result
|
|
(insert-post post_nr board msg)
|
|
(format nil "{\"~a\": [~{\"~a\"~^,~}]}~%" post_nr msg)) ;; This makes JSON
|
|
(t (format nil "{\"Error\": \"~a\"}~%" msg)))))
|
|
|
|
(henh:handle :post (api-get :uri "/api/get") @json
|
|
(post_nrs board version)
|
|
(setf post_nrs (cl-ppcre:split "," post_nrs))
|
|
(if (get-posts-p post_nrs board)
|
|
(format nil "~a~%" (get-posts post_nrs board))
|
|
(t (format nil "{[\"~a\"]}~%" "bad"))))
|
|
|
|
(henh:handle :get (api-flags :uri "/api/flags") @plain
|
|
()
|
|
(format nil "~a~%" *flags-txt*))
|