core.clj

(ns fishing.core
  (:use [postal.core]))

(def teachers
  ["みせられないよ！@cs.shinshu-u.ac.jp"])

(def mailing-list
  (concat
    teachers
    (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 "@shinshu-u.ac.jp"))))

(defn -main [& args]
  (loop [mail-address mailing-list]
    (when-not (empty? mail-address)
      (println (first mail-address))
      (println
        (send-message {:host "smtp.gmail.com"
                       :user "icanspamfish"
                       :pass "見せられないよ！"
                       :ssl :yes!!!11}
                      {:from "icanspamfish@gmail.com"
                       :to (first mail-address)
                       :subject "【重要】スパムメールです"
                       :body [{:type "text/plain"
                               :content ""}
                              {:type :inline
                               :content (java.io.File. "/home/delihiros/spam.jpg")
                               :content-type "image/jpeg"}]})
        (Thread/sleep 5000))
      (recur (rest mail-address)))))