gistfile1.txt

(ns chdweb.server
  (:use compojure.core
        ring.adapter.jetty
	clojure.contrib.json.write)
  (:require [compojure.route :as route])
  (:require [chdweb.util :as u])
  (:import java.io.File))

(defroutes chdweb
  (GET "/" [] "<h1>testing</h1>")
  (GET "/files/encrypted" []
       {:status 200
	:headers {"Content-Type" "application/json"}
	:body (u/enc-files-as-json)})
  (GET "/files/decrypted" [] 
       (u/dec-files-as-json))
  (route/not-found "Not found"))


(defonce server (run-jetty #'chdweb {:port 8080 :join? false}))