30 lines
911 B
Clojure
30 lines
911 B
Clojure
|
(ns mailhead.parser
|
||
|
|
(:require
|
||
|
|
[clojure.reflect :as r])
|
||
|
|
(:use [clojure.contrib.java-utils :only [as-properties]]
|
||
|
|
[clojure.java.io :only [input-stream file]]
|
||
|
|
[clojure.pprint :only [print-table]])
|
||
|
|
(:import
|
||
|
|
(javax.mail Session)
|
||
|
|
(javax.mail.internet MimeMessage)
|
||
|
|
(javax.mail.internet InternetHeaders)))
|
||
|
|
|
||
|
|
(def session
|
||
|
|
(Session/getDefaultInstance
|
||
|
|
(as-properties [["mail.store.protocol" "imaps"]])))
|
||
|
|
|
||
|
|
(defn all-headers [message]
|
||
|
|
(let [headers (enumeration-seq (:allHeaders (bean message)))]
|
||
|
|
(map (fn [header]
|
||
|
|
(assoc {} (.getName header) (.getValue header)))
|
||
|
|
headers)))
|
||
|
|
|
||
|
|
(defn )
|
||
|
|
|
||
|
|
(defn parse-from-string [email-string]
|
||
|
|
(let [email-stream (java.io.ByteArrayInputStream. (.getBytes email-string))]
|
||
|
|
(all-headers (MimeMessage. session email-stream))))
|
||
|
|
|
||
|
|
(defn parse-from-file [filename]
|
||
|
|
(all-headers (MimeMessage. session (input-stream filename))))
|