       (println "using live services")
       (use-live))
 
-    ;; process file
-    (when-not (and (first params) (= \- (-> params first first)))
+    ;; load logfile
+    (when-not (and process? (first params) (= \- (-> params first first)))
       (println "load file")
       (parse-logfile (first params) log-parser))
 
     ;; post processing
-    (when (contains? args "--process")
+    (when process?
       (println "processing ...")
       (process-new-ips)
       (process-new-locations)

     #(do
        (Thread/sleep 1000)
        (process-new-locations)
        ))))
  )

(defn get-histogram
  [num-bins]

(defn parse-args
  [params]
  (metrics/reset-metrics)
  (let [args (set params)
        process? (contains? args "--process")
        num-bins-location (if process? second first)]
    ;; setup
    (when (contains? args "--aero")
      (println "using aerospike")
