blob: c03f018f891745b25bfc5f466700fb07d389bafb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
(ns ctf-website.models.scoreboard
(:import java.util.Date)
(:require [simpledb.core :as db]))
(defn init! []
(db/put! :scoreboard {}))
(defn update! [username flag-info]
(db/update!
:scoreboard
(fn [board]
(assoc-in board [username flag-info] (str (Date.))))))
(defn get-scores []
(db/get :scoreboard))
(defn has [username flag-info]
(not (nil? (get (get (db/get :scoreboard) username) flag-info))))
|