diff options
Diffstat (limited to 'src/logikorr/servlet.clj')
| -rw-r--r-- | src/logikorr/servlet.clj | 13 |
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)) |