diff --git a/src/api2smtp/urls.clj b/src/api2smtp/urls.clj index 31760d3..1c7b82d 100644 --- a/src/api2smtp/urls.clj +++ b/src/api2smtp/urls.clj @@ -1,13 +1,12 @@ (ns api2smtp.urls (:require - [compojure.core :refer [defroutes GET]] + [compojure.core :refer [defroutes POST]] [compojure.route :as route] [api2smtp.views.public :as view-public])) (defroutes public ;; Urls public pages - (GET "/" [] view-public/index) - (GET "/api" [] view-public/api)) + (POST "/api/v1/email/" [] view-public/index)) (defroutes resources-routes diff --git a/src/api2smtp/views/public.clj b/src/api2smtp/views/public.clj index e551611..8bf5457 100644 --- a/src/api2smtp/views/public.clj +++ b/src/api2smtp/views/public.clj @@ -1,20 +1,20 @@ ;;;; Views public web (ns api2smtp.views.public (:require - [tadam.templates :refer [render-HTML render-JSON render-404]] - )) + [tadam.templates :refer [render-JSON]] + [tadam.responses :refer [response]])) (defn index ;; View HTML [req] - (render-HTML req "public/welcome.html" {})) + (let [name (-> :params :name) + subject (-> :params :subject) + email (-> :params :email) + message (-> :params :message)] -(defn api - ;; View JSON - [req] - (render-JSON req {:result true})) + (render-JSON req {:status "ok"}))) (defn page-404 ;; View page 404 [req] - (render-404 req "public/404.html" {})) + (response req "{\"status\": \"error\"}" 500 "text/json;charset=utf-8"))