gistfile1.txt

(ns irc
  (:import (java.net Socket)
           (java.io PrintWriter InputStreamReader BufferedReader)))
(require 'clojure.contrib.duck-streams)
(:use 'clj-time.core :only [in-secs interval epoch now]) ;; stashing until I understand

(def network {:name "irc.freenode.net" :port 6667})
(def user {:name "callen-bot" :nick "callen-bot"})

(declare conn-handler)

(defn connect [server]
  (let [socket (Socket. (:name server) (:port server))
        in (BufferedReader. (InputStreamReader. (.getInputStream socket)))
        out (PrintWriter. (.getOutputStream socket))
        conn (ref {:in in :out out})]
    (doto (Thread. #(conn-handler conn)) (.start))
    conn))

(defn write [conn msg]
  (doto (:out @conn)
    (.println (str msg "\r"))
    (.flush)))

(defn unix-now []
  (in-secs (interval (epoch) (now))))

(defn conn-handler [conn]
  (while
      (nil? (:exit @conn))
    (let [msg (.readLine (:in @conn))]
      (println msg)
      (clojure.contrib.duck-streams/append-spit "output.txt" (str "[EPOCH: " unix-now " ] " msg "[GUID: " (. (. java.util.UUID randomUUID) toString) " ]" "\n"))
      (cond
       (re-find #"^ERROR :Closing Link:" msg)
       (dosync (alter conn merge {:exit true}))
       (re-find #"^PING" msg)
       (write conn (str "PONG " (re-find #":.*" msg)))))))

(defn login [conn user]
  (write conn (str "NICK " (:nick user)))
  (write conn (str "USER " (:nick user) " 0 * :" (:name user))))