Skip to content

Instantly share code, notes, and snippets.

@jmesnil
Created Oct 19, 2009
Embed
What would you like to do?
(defn verify-challenge
[callback mode topic challenge]
(let [url (build-callback-url callback mode topic challenge)]
(try
(= challenge (.trim (apply str (:body-seq (request url))))) 204
(catch Exception ex (failed-challenge callback (.getMessage ex))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment