From 5a88d1cd09fc33ae5d5b792bfbe3c30c30604520 Mon Sep 17 00:00:00 2001
From: Andros Fenollosa <andros@fenollosa.email>
Date: Wed, 10 Jun 2020 20:56:57 +0200
Subject: [PATCH] Add params

---
 src/api2smtp/urls.clj         |  5 ++---
 src/api2smtp/views/public.clj | 16 ++++++++--------
 2 files changed, 10 insertions(+), 11 deletions(-)

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"))