blob: 432482c36850a3d210b6d4aa99d727dd111df7b0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
(ns app.api
(:require [castra.core :refer [defrpc]]
[simpledb.core :as db]))
(defrpc get-scoreboard []
(db/get :scoreboard))
(defrpc check-token [token]
{:rpc/pre (contains? (db/get :tokens) token)}
true)
(defrpc set-name! [token name]
{:rpc/pre (contains? (db/get :tokens) token)}
(db/update! :scoreboard
assoc-in
[(first (.split token "-")) :name]
(apply str (take 32 name))))
(defrpc submit-flag! [token flag]
{:rpc/pre (and (contains? (db/get :tokens) token)
(contains? (db/get :flags) flag))}
(let [problem (db/get-in :flags [flag])]
(db/update! :scoreboard
assoc-in
[(first (.split token "-")) :scores problem]
:solved)))
(defrpc admin-eval! [token expr]
{:rpc/pre (= token (db/get :admin))}
(binding [*ns* (find-ns 'simpledb.core)]
(eval (read-string expr))))
|
