 ;           [cooljure.misc          :as cool-misc]
   )
   (:use cooljure.core cooljure.misc)
+  (:import java.util.TimeZone)
   (:gen-class))
 
 (def db-spec
   { :classname "org.postgresql.Driver"
     :subprotocol "postgresql"
-    :subname "//localhost:5432/alan"
+    :subname "//localhost:5432/ubuntu"
+  ; :subname "//localhost:5432/alan"
   ; :user "alan"
   ; :pass "secret" 
   })

              :password     "rxlogix" } 
;   db-str  "jdbc:oracle:thin:@//argus-mart-db01.eng.rxlogix.com:1521:pvram" 
  ]
    (newline)
    (spy :msg "pkg_rls.set_context"
      (jdbc/execute! db-spec [
        "begin
           pkg_rls.set_context ('admin', '1','ARGUS_MART', '#$!AgSeRvIcE@SaFeTy');
         end; " ] ))

    (newline)
    (println "Trying count(*)...")
    (spyx (jdbc/query db-spec [ "select sysdate as current_day from dual" ] ))
    (spyx (jdbc/query db-spec [ "select BANNER from SYS.V_$VERSION" ] ))
    (spyx (jdbc/query db-spec [ "select * from rm_case_master" ] ))

    (newline)


 (newline))

(defn ora1 []
  (newline)
  (println "-----------------------------------------------------------------------------")
  (println "ora1")
  (let [
    db-spec { :classname    "oracle.jdbc.OracleDriver"  ; must be in classpath
              :subprotocol  "oracle"
