aboutsummaryrefslogtreecommitdiff
path: root/src/ctf_website/models/flags.clj
blob: f25573fbc8c53456ee5ef77ef95077d33732719c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
(ns ctf-website.models.flags
  (:require [simpledb.core :as db]
            [ctf-website.models.scoreboard :as scoreboard]))

(defn init! []
  (db/put! :flags {}))

(defn submit! [username flag]
  (let [flag-info (get (db/get :flags) flag)]
    (if (nil? flag-info)
      false
      (do
        (scoreboard/update! username flag-info)
        true))))