Code Shop

Simple Clojure Http Client

 
(import '(java.net URL HttpURLConnection) 
 '(java.io InputStreamReader BufferedReader)) 
 
(defn http-client-get-content [reader content] 
 (let [line (.readLine reader)] 
 (if (nil? line) 
 content 
 (recur reader (str content "\n" line))))) 
 
(defn http-client-get [url] 
 (let [connection (.openConnection (URL. url))] 
 (doto connection 
 (.setRequestMethod "GET") 
 (.setDoOutput true) 
 (.setReadTimeout 10000) 
 (.connect)) 
 (http-client-get-content (BufferedReader. (InputStreamReader. 
(.getInputStream connection))) ""))) 

• 1 October 2009
• Views
• 0 Comments
• Permalink
• Favorited 0 Times
• Tweet