diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/logikorr/servlet.clj | 46 |
1 files changed, 45 insertions, 1 deletions
diff --git a/src/logikorr/servlet.clj b/src/logikorr/servlet.clj index 10ef5d5..31b6ef7 100644 --- a/src/logikorr/servlet.clj +++ b/src/logikorr/servlet.clj @@ -4,7 +4,10 @@ (:require [appengine-clj.datastore :as ds] [org.danlarkin.json :as json]) (:import [com.google.appengine.api.datastore DatastoreServiceFactory Entity Query Query$FilterOperator Query$SortDirection KeyFactory EntityNotFoundException Key] - [com.google.appengine.api.users UserServiceFactory])) + [com.google.appengine.api.users UserServiceFactory] + [java.util Properties] + [javax.mail Message Message$RecipientType MessagingException Session Transport] + [javax.mail.internet AddressException InternetAddress MimeMessage MimeMultipart MimeUtility MimeBodyPart])) (defmacro with-ds-transaction [& body] `(call-with-ds-transaction (fn [] ~@body))) @@ -86,6 +89,8 @@ [:h2 "Neue Ergebnisse"] [:form [:button#make-revision {:type "button"} "Aktuelle Version sichern"] [:div#new-version-label {:style "display: inline; color: #070"}]] + [:form [:button#send-mail {:type "button"} "Datei an die Korrektoren schicken"] + [:div#mail-sent-label {:style "display: inline; color: #070"}]] [:table#ergebnisse] [:h2 "Bestehende Ergebnisse"] [:table @@ -186,6 +191,44 @@ (:key (current-revision)))) (recur (rest (rest lines))))))))) +(defn encode-database-file [] + (with-out-str + (let [students (find-students)] + (doseq [student students] + (printf "%s\n" (unsplit-name (:first-name student) (:last-name student))) + (printf "(") + (doseq [score (:score student)] + (printf "%-3s " (str score))) + (printf ")\n\n"))))) + +(defn send-mail [] + (let [props (Properties.) + session (Session/getDefaultInstance props nil) + message (MimeMessage. session) + users (ds/find-all (Query. "user"))] + (doseq [user users] + (.addRecipient message + Message$RecipientType/TO + (InternetAddress. (:email user) (:email user)))) + (doto message + (.setFrom (InternetAddress. "mulkiatsch@gmail.com" "Logikorr")) + (.setSubject "Logik-Korrekturergebnisse") + (.setContent + (doto (MimeMultipart.) + (.addBodyPart (doto (MimeBodyPart.) + (.setText "Anbei die jüngsten Korrekturergebnisse. + +Automatisch erzeugte Grüße, +Logikorr"))) + (.addBodyPart (doto (MimeBodyPart.) + ;;(.setText (encode-database-file)) + (.setContent (encode-database-file) "text/plain") + ;; (.setDataHandler (doto (DataSource.) + ;; ())) + (.setFileName "logik.txt") + (.setDisposition "attachment")))))) + (Transport/send message))) + (defmacro with-authentication [& body] `(call-with-authentication (fn [] ~@body))) @@ -196,6 +239,7 @@ (GET "/find-student" (with-authentication (find-student-json (:name params)))) (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))) (POST "/import-score-file" (with-authentication (import-score-file (:file-data params)) (redirect-to "/"))) |