      :floorPrice (if (= "NA" fp) nil (Integer. fp))
      :device     (line 2)
      :user       (line 3)
-     :test       @testing?}
+     :test       @testing}
     :result      (mapv #(Integer. %) (subvec line 4))}))
 
 
 (defn -main [& args]
   (let [context (zmq/zcontext 1)
-        queries (atom nil)
         ;; somehow cannot use with-open
         in-file (io/reader (first args))
         pub (doto (zmq/socket context :pub)

   [s7p.master.core :refer [remove-dsp create-dsp change-qps start-query stop-query qp100ms timer]]))


(def testing? (atom 1))

(defn page []
  (html

        (GET "/" [] (fn [req] (page)))
        (POST "/dsp/create" {{id :id url :url winnotice :winnotice} :params}
              (fn [req]
                (println "create" {:id id :url url :winnotice winnotice})
                (create-dsp pub {:id id :url url :winnotice winnotice})
                (redirect "/")))
        (POST "/dsp/delete" {{id :id} :params}
              (fn [req]
                (println "delete" id)
                (remove-dsp pub id)
                (redirect "/")))
        (POST "/control/qps" {{qps :qps} :params}
              (fn [req]
                (println "qps: " qps)
                (change-qps (Integer. qps))
                (redirect "/")))
        (POST "/control/start" []
