Hi,
Can we add the following to contrib's sql namespace, it simply adds "jndi"
as a db-spec scheme ( I also raised this as
http://code.google.com/p/clojure-contrib/issues/detail?id=39 , which google
decided to set as a defect and I can't change):
Index: src/clojure/contrib/sql/internal.clj
===================================================================
--- src/clojure/contrib/sql/internal.clj (revision 776)
+++ src/clojure/contrib/sql/internal.clj (working copy)
@@ -56,17 +56,19 @@
:subprotocol (required) a String, the jdbc subprotocol
:subname (required) a String, the jdbc subname
(others) (optional) passed to the driver as properties."
- [{:keys [datasource username password classname subprotocol subname]
+ [{:keys [jndi datasource username password classname subprotocol subname]
:as db-spec}]
(when classname
(clojure.lang.RT/loadClassForName classname))
- (if datasource
- (if username
- (.getConnection datasource username password)
- (.getConnection datasource))
- (java.sql.DriverManager/getConnection
- (format "jdbc:%s:%s" subprotocol subname)
- (as-properties (dissoc db-spec :classname :subprotocol :subname)))))
+ (if jndi
+ (.getConnection (.lookup (javax.naming.InitialContext.) jndi))
+ (if datasource
+ (if username
+ (.getConnection datasource username password)
+ (.getConnection datasource))
+ (java.sql.DriverManager/getConnection
+ (format "jdbc:%s:%s" subprotocol subname)
+ (as-properties (dissoc db-spec :classname :subprotocol
:subname))))))
(defn with-connection*
"Evaluates func in the context of a new connection to a database then
--
Discouragement is a dissatisfaction with the past, a distaste for the
present, and a distrust of the future - Maree De Jong, Life NZ.
http://www.talios.com
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups
"Clojure" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en
-~----------~----~----~----~------~----~------~--~---
