/gist:6935482
Created Oct 11, 2013
| (ns dh.immutant.logging | |
| (:import (java.util.logging LogManager Level))) | |
| ;; can't bring myself to bother with the XML logging config in jboss | |
| (def logger-levels | |
| {"org.openid4java" :warn}) | |
| (let [lm (LogManager/getLogManager)] | |
| (doseq [[logger-name level] logger-levels] | |
| (.setLevel (.getLogger lm logger-name) | |
| (Level/parse (.toUpperCase (name level)))))) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment