 ;;;   OUS Handlers   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
+(defn- generate
+  "Private function for creating OPeNDAP URLs when supplied with an HTTP
+  GET."
+  [request search-endpoint user-token concept-id data]
+  (log/debug "Generating URLs based on HTTP GET ...")
+  (->> data
+       (merge {:collection-id concept-id})
+       (ous/get-opendap-urls search-endpoint user-token)
+       (response/json request)))
+
 (defn- generate-via-get
   "Private function for creating OPeNDAP URLs when supplied with an HTTP
   GET."

  (fn [request]
    {:error :not-implemented}))

(defn stream
  ""
  [request]
  (log/debug "Processing stream request ...")

         (* id 200) ;; send a message every 200ms
         (log/debug "\tSending chunk to client ...")
         (server/send! channel
                       ;(format "message #%s from server ..." id)
                       {:status 202}
                       false))
        (recur (inc id))))
    (timer/schedule-task (* 10 200) (server/close channel))))
