diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2009-12-02 19:46:50 +0100 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2009-12-02 19:46:50 +0100 |
| commit | fb37df9bbd517f17c4006fd3d2a895a813ab6024 (patch) | |
| tree | 0617d6865f21852b3a31e54ad11e48d367bdb1c2 /src | |
| parent | 44eb990b475ca835b4720bf0521d4159b21b9508 (diff) | |
/logik.txt: New entry point.
Diffstat (limited to 'src')
| -rw-r--r-- | src/logikorr/servlet.clj | 4 |
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 "/"))) |