(defn do-reply! [t s b-id]
  (if-let [user (session/get :user)]
    (let [db-user (select users {:username user})]
      (if (and db-user
               ;; verify b-id
               (select bs {:id b-id}))
        (let [u-id (:id (first db-user))]
          (insert ss
                  (values {:t t
                           :s s
                           :b_id b-id
                           :u_id u-id})))
      "error 2"))
  "error 1"))