kevin.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"))]
        (with-open [wrt (OutputStreamWriter. (.getOutputStream con))
                    rdr (BufferedReader. (InputStreamReader. (.getInputStream con)))]
          (.write wrt (str "status=" (URLEncoder/encode text "UTF-8")))
          (apply str (line-seq rdr)))))