 
 
 
-(def dbg (atom {}))
 
 (defn htseq-file-get [args reqmap]
   (infof "Args %s\nParams %s" args (reqmap :params))


(defmethod user-msg :run [msg]
  (let [params (msg :params)
        {:keys [ws eid phase]} params]
    (infof "RUN: %s" params)
    (let [vmsg (va/validate-exp eid)]
      (if (not-empty vmsg)
        (send-end-msg ws {:op :validate :payload vmsg})
        (let [{:keys [cmd eid template]} params
              ;;result (actions/action cmd eid params get-toolinfo template)
              ]
          (srv/send-msg ws {:op :stop :payload {}} :noenvelope true))))))

(defn msg-handler [msg]

        eid (if (str/starts-with? eid "/") (austr/drop 1 eid) eid)
        params {:user user, :cmd op, :modifier modifier
                :phase phase, :eid eid :ws ws}]
    (infof "MSG-HANDLER: MSG %s" (msg :data))
    (try
      (case op
        (:done "done")
