src/ctf_website/models/flags.clj


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))))