summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <code@mail.matthias.benkard.de>2009-12-02 19:46:50 +0100
committerMatthias Andreas Benkard <code@mail.matthias.benkard.de>2009-12-02 19:46:50 +0100
commitfb37df9bbd517f17c4006fd3d2a895a813ab6024 (patch)
tree0617d6865f21852b3a31e54ad11e48d367bdb1c2
parent44eb990b475ca835b4720bf0521d4159b21b9508 (diff)
/logik.txt: New entry point.
-rw-r--r--src/logikorr/servlet.clj4
1 files changed, 4 insertions, 0 deletions
diff --git a/src/logikorr/servlet.clj b/src/logikorr/servlet.clj
index 31b6ef7..ae83845 100644
--- a/src/logikorr/servlet.clj
+++ b/src/logikorr/servlet.clj
@@ -93,6 +93,7 @@
[:div#mail-sent-label {:style "display: inline; color: #070"}]]
[:table#ergebnisse]
[:h2 "Bestehende Ergebnisse"]
+ [:a {:href "/logik.txt"} "(Als Text anzeigen.)"]
[:table
[:tr
[:th "ID"] [:th "Punkte"] [:th "Nachname"] [:th "Vorname"]]
@@ -240,6 +241,9 @@ Logikorr")))
(GET "/update-student-score" (with-authentication (update-student-score (:id params) (:score-number params) (:score params))))
(GET "/make-new-revision" (with-authentication (make-new-revision)))
(GET "/send-mail" (with-authentication (send-mail)))
+ (GET "/logik.txt" [{:headers {"Content-Type" "text/plain"}}
+ (with-authentication
+ (encode-database-file))])
(POST "/import-score-file" (with-authentication
(import-score-file (:file-data params))
(redirect-to "/")))