       (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)

(defn parse-args
  [params]
  (metrics/reset-metrics)
  (let [args (set params)]
    ;; setup
    (when (contains? args "--aero")
      (println "using aerospike")

      (println "setting up a daemon")
      (daemon))
    (when (contains? args "--hist")
      (let [num-bins (if (= \- (-> params num-bins-location first))
                       5
                       (read-string (second params)))]
        (print-histogram num-bins)))
