                                                              (:service riemann-event)))]
                       (doseq [client clients]
                         (try
-                          (send-event client riemann-event)
+                          (if dry-run
+                            (println riemann-event)
+                            (send-event client riemann-event))
                           (log/debug (format "Sent event: %s" riemann-event))
                           (catch Exception ex
                             (log/error (str "service: " (:service riemann-event) " "

           (keys event))))

(defn app
  [settings finish-chan]
  (let [clients (map (fn [satellite]
                       (tcp-client satellite))
                     (:satellites settings))

    (do (log/info (str "Reading config from file: " config))
        (config/include config))
    (log/info (str "Using default settings.")))
  (let [finish-chan (async/chan 1)
        dry-run (when args (.contains args "--dry-run"))]
    (app config/settings dry-run finish-chan)))
