summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <code@mail.matthias.benkard.de>2009-11-29 11:43:47 +0100
committerMatthias Andreas Benkard <code@mail.matthias.benkard.de>2009-11-29 11:43:47 +0100
commit4a262e09f56f07a009a2d6ad0d360b818ff68ebf (patch)
tree7f867e9359c1d49ccfb64366c23d6be8b171493c /src
parent81906f432607d2b042e925ea6fda54d7b753e713 (diff)
Require authentication.
Diffstat (limited to 'src')
-rw-r--r--src/logikorr/servlet.clj13
1 files changed, 13 insertions, 0 deletions
diff --git a/src/logikorr/servlet.clj b/src/logikorr/servlet.clj
index 76d7897..6eef643 100644
--- a/src/logikorr/servlet.clj
+++ b/src/logikorr/servlet.clj
@@ -142,6 +142,19 @@
(str (:number new)))))
(defroutes logikorr
+ (GET "/*" (let [users (UserServiceFactory/getUserService)
+ user (.getCurrentUser users)]
+ (if (and user
+ (some #(= user %) #{"mulkiatsch@gmail.com"
+ "gpmfuchs@gmx.de"
+ "kilian@fachschaften.uni-muenchen.de"
+ "schwicht@mathematik.uni-muenchen.de"}))
+ :next
+ (html [:html
+ [:head [:title "Access denied."]]
+ [:body
+ [:h1 "Access denied."]
+ [:p "You do not have access to this application."]]]))))
(GET "/" index)
(GET "/favicon.ico" (do nil))
(GET "/logikorr-completion-data.js" (compute-completion-data-js))