blob: 27ed9a46d7a4a99ddfc0ebd8206429fe64c27483 (
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
|
(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)))
|
