function | removed v0.0-1503 | added v0.0-927 | Edit |
(handle-connection opts conn)
(defn handle-connection
[opts conn]
(let [rdr (BufferedReader. (InputStreamReader. (.getInputStream conn)))]
(if-let [request (read-request rdr)]
(case (:method request)
:get (handle-get opts conn request)
:post (handle-post conn (read-string (:content request)))
(.close conn))
(.close conn))))