blob: ca16294ce3751ba879d522e537b484f57936827d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
(ns ctf-website.views.flag
(:require [ctf-website.views.common :as common]
[ctf-website.models.flags :as flags]
[noir.session :as session])
(:use [noir.core :only [defpage]]
[hiccup.page-helpers :only [link-to]]))
(defpage
[:post "/flag"] {:keys [flag]}
(common/layout
(let [username (session/get :user)]
(if (nil? username)
[:p "You seem to have lost your session. Try to "
(link-to "login" "login") " again."]
(if (flags/submit! username flag)
[:p "Your flag was accepted."]
[:p "Your flag was rejected."])))))
|
