Skip to content

Instantly share code, notes, and snippets.

@qharlie

qharlie/gist:3101623

Created July 12, 2012 22:51
Show Gist options
  • Save qharlie/3101623 to your computer and use it in GitHub Desktop.
Save qharlie/3101623 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.clj
(defn handle-ban [ip]
(ban-ip ip)
(str ip " BANNED!"))
(defroutes main-routes
(GET "/" [] (show-search-page))
(GET "/search" [term] (handle-search term))
(GET "/ban" [ip] (handle-ban ip))
(GET "/unban" [ip] (handle-unban ip))
(route/resources "/")
(route/not-found "page _Not_ !FOUND!"))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment