• Home
• org.iplantc
• iplant-email
• 1.2.2
• source code
• json_body.clj

×

Project download

Many resources are needed to download a project. Please understand that we have to compensate our server costs. Thank you in advance.
Project price only 1 $

You can buy this project and download/modify it how often you want.

iplant_email.json_body.clj Maven / Gradle / Ivy

(ns iplant-email.json-body
  (:use [clojure.java.io :only [reader]])
  (:require [cheshire.core :as cheshire]))

(defn- json-body?
  [request]
  (let [content-type (:content-type request)]
    (not (empty? (re-find #"^application/json" content-type)))))

(defn- valid-method?
  [request]
  (cond
    (= (:request-method request) "post") true
    (= (:request-method request) :post)  true
    (= (:request-method request) "put")  true
    (= (:request-method request) :put)   true
    :else false))

(defn parse-json-body [handler]
  (fn [request]
    (cond
      (not (valid-method? request))
      (handler request)

      (not (contains? request :body))
      (handler request)

      (not (json-body? request))
      (handler request)

      :else
      (let [body-reader (reader (:body request))
            body-map    (cheshire/decode-stream body-reader true)
            new-req     (assoc request :body body-map)]
        (handler new-req)))))