blob: c174215265e9275166445c44e95ede75e1d663de (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
(ns ctf-website.views.flag
(:require [ctf-website.views.common :as common]
[noir.session :as session])
(:use [noir.core :only [defpage]]
[hiccup.core :only [html]]))
(def no-session
(common/layout
[:p "You seem to have lost your session. Try to "
[:a {:href "login"} "login"]
" again."]))
(def good
(common/layout
[:p "Your flag was accepted."]))
(defpage
[:post "/flag"] {:keys [flag]}
(let [username (session/get :user)]
(if (nil? username)
no-session
good)))
|
