diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2009-11-29 11:43:47 +0100 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2009-11-29 11:43:47 +0100 |
| commit | 4a262e09f56f07a009a2d6ad0d360b818ff68ebf (patch) | |
| tree | 7f867e9359c1d49ccfb64366c23d6be8b171493c | |
| parent | 81906f432607d2b042e925ea6fda54d7b753e713 (diff) | |
Require authentication.
| -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)) |