Instantly share code, notes, and snippets.

What would you like to do?
(ns fishing.core
(:use [postal.core]))
(def teachers
(def mailing-list
(for [year (range 12 14)
number (map #(str (apply str (repeat (- 3 (count (str %))) \0)) %) (range 1 109))
alphabet [\h \d \a \g \b \f \k \c \j]]
(str year "T5" number alphabet ""))))
(defn -main [& args]
(loop [mail-address mailing-list]
(when-not (empty? mail-address)
(println (first mail-address))
(send-message {:host ""
:user "icanspamfish"
:pass "見せられないよ!"
:ssl :yes!!!11}
{:from ""
:to (first mail-address)
:subject "【重要】スパムメールです"
:body [{:type "text/plain"
:content ""}
{:type :inline
:content ( "/home/delihiros/spam.jpg")
:content-type "image/jpeg"}]})
(Thread/sleep 5000))
(recur (rest mail-address)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment