aboutsummaryrefslogtreecommitdiff
path: root/src/ctf_website/models/scoreboard.clj
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))))