Add logging and tests and build using mvn

An initial version of adding logs to chameleon
An initial version of adding specs (tests) to chameleon.
Adding pom.xml so the project can be build using maven.
Updating README.md for instructions on running it locally.

Issue-ID: AAI-1220
Change-Id: I85f46fd7f625c83b84f211d6766970431e6d91eb
Signed-off-by: Shwetank Dave <shwetank.dave@amdocs.com>

1 files changed, 28 insertions, 9 deletions

diff --git a/src/chameleon/handler.clj b/src/chameleon/handler.clj
index fd97bf1..675a34b 100644
--- a/src/chameleon/handler.clj
+++ b/src/chameleon/handler.clj
@@ -10,17 +10,18 @@
             [ring.middleware.session :refer [wrap-session]]
             [cheshire.core :as json]
             [clj-time.format :as tf]
-            [integrant.core :as ig]))
+            [integrant.core :as ig]
+            [chameleon.logging :as log]))
 
 (declare handler)
 
 (defonce ^:private g-host (atom nil))
 (defonce ^:private g-transformer nil)
 
-(defmethod ig/init-key :chameleon/handler  [_ {:keys [gallifrey-host gallifrey-transformer]}]
+(defmethod ig/init-key :chameleon/handler  [_ {:keys [gallifrey-host loggers gallifrey-transformer]}]
   (reset! g-host gallifrey-host)
   (def g-transformer gallifrey-transformer)
-  handler)
+  (handler loggers))
 
 (defmethod ig/halt-key! :chameleon/handler  [_ _]
   (reset! g-host nil)
@@ -32,10 +33,10 @@
   :allowed-methods [:get]
   :available-media-types ["application/json"]
   :exists? (fn [ctx]
-             (let [resource (c-route/query @g-host id type (-> ctx
-                                                               :request
-                                                               :params
-                                                               (select-keys [:t-t :t-k])))] ; Only pass through the allowable set of keys
+             (let [resource (c-route/query @g-host id type  (-> ctx
+                                                                :request
+                                                                :params
+                                                                (select-keys [:t-t :t-k])))] ; Only pass through the allowable set of keys
                (when (= (:status resource) 200)
                  {::resource (-> resource
                                  :body
@@ -56,9 +57,27 @@
   (GET "/relationship/:id" [id] (resource-endpoint "relationship"  id))
   (resources "/"))
 
-(def handler
+(defn log-reqs
+  [handler loggers]
+  (let [[error-logger audit-logger] loggers]
+    (fn [request]
+      (log/mdc-init! (get-in request [:headers "X-TransactionId"]) "CHAMELEON"
+                     "CHAMELEON_SERVICE" "ONAP" (:remote-addr request))
+      (log/info error-logger "CHAMELEON_REQUEST" (mapv str ((juxt (comp name :request-method) :uri :remote-addr) request)))
+      (let [resp (handler request)
+            fields (->> ((juxt :status :body) resp)
+                        (into ((juxt (comp name :request-method) :uri) request))
+                        (mapv str))]
+        (log/info error-logger "RESPONSE" fields)
+        (log/info audit-logger "RESPONSE" fields)
+        (log/mdc-clear!)
+        resp))))
+
+(defn handler
+  [loggers]
   (-> app-routes
-      (wrap-defaults api-defaults)))
+      (wrap-defaults api-defaults)
+      (log-reqs loggers)))
 
 
 ;;; Implementation