   `:timeout`        HTTP timeout in milliseconds. (default: `5000`)"
   [opts]
   (let [write-url
-        (format "%s://%s:%s/write" (:scheme opts) (:host opts) (:port opts))
+        (format "%s://%s:%s/write?db=%s" (:scheme opts) (:host opts) (:port opts) (:db opts))
 
         payload-base
         (cond->

  "A set of event fields in Riemann with special handling logic."
  #{:host :service :time :metric :tags :ttl})


(defn event-tags
  "Generates a map of InfluxDB tags from a Riemann event. Any fields in the

        (cond->
          {:socket-timeout (:timeout opts 5000) ; ms
           :conn-timeout   (:timeout opts 5000) ; ms
           :content-type   "application/x-www-form-urlencoded"}
          (:username opts)
            (assoc :basic-auth [(:username opts)
                                (:password opts)]))
