gistfile1.clj

(defn send-url [url]
  (try
    (let [ip (ru/ip-address (get-domain url))]
      (log/debug (str "SENDING URL: " url))
      (if (@fetchers ip)
        (send-off (@fetchers ip)
                  handle-url
                  url)
        (do
          (add-fetcher ip)
          (send-off (@fetchers ip)
                    handle-url
                    url))))
    (catch Exception e (log/debug (str "error sending url: " url) e))))

(def consumer (agent 0 :error-handler (fn [a e]
                                        (log/debug (str "consumer error: " e) e))))