Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (ns second-post.mysql
- (:use aleph)
- (:require [clojure.contrib.sql :as sql])
- (:import [org.apache.commons.dbcp BasicDataSource]))
- (def pool-size 10) ; or match expected number of threads
- (def ds
- (doto (BasicDataSource.)
- (.setDriverClassName "com.mysql.jdbc.Driver")
- (.setUrl "jdbc:mysql://localhost:3306/dummy")
- (.setUsername "root")
- (.setPassword "")
- (.setInitialSize pool-size)))
- (def db {:datasource ds})
- (defn insert-foo [val]
- (sql/insert-values :foo [:bar] [val]))
- (defn save [request]
- (future
- (sql/with-connection db (insert-foo "test"))
- (respond! request
- {:status 200
- :headers {"Content-Type" "text/html"}
- :body "Saved!"})))
- (run-aleph save {:port 8080})
Add Comment
Please, Sign In to add comment