gistfile1.clj

(import '(java.io BufferedReader IOException InputStream InputStreamReader OutputStreamWriter)
        '(java.net URL URLConnection URLEncoder)
        '(sun.misc BASE64Encoder))
 
(def update-url "https://twitter.com/statuses/update.xml")
 
(defn creds [username password]
      (.trim (.encode (BASE64Encoder.) (.getBytes (str username ":" password)))))
 
(defn twitter [username password text]
      (let [creds (creds username password)
            con (doto (.openConnection (URL. update-url))
                  (.setDoInput true)
                  (.setDoOutput true)
                  (.setUseCaches false)
                  (.setRequestProperty "Authorization" (str "Basic " creds))
                  (.setRequestProperty "Content-Type" "application/x-www-form-urlencoded")
                  (.setRequestProperty "User-Agent" "clojurebot"))]
        (println (.getRequestProperties con))
        (with-open [wrt (OutputStreamWriter. (.getOutputStream con))]
          (.write wrt (str "status=" (URLEncoder/encode text "UTF-8")))
          (.flush wrt)
          (with-open [rdr (BufferedReader. (InputStreamReader. (.getInputStream con)))]
            (apply str (line-seq rdr))))))