From fb37df9bbd517f17c4006fd3d2a895a813ab6024 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Wed, 2 Dec 2009 19:46:50 +0100 Subject: /logik.txt: New entry point. --- src/logikorr/servlet.clj | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src') 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 "/"))) -- cgit v1.2.3