clojure liberator - 从 put 请求中返回 json

Question

我正在努力从 put 中返回 JSON！请求：

我的代码如下所示：

(defn body-as-string [ctx]
  (if-let [body (get-in ctx [:request :body])]
    (condp instance? body
      java.lang.String body
      (slurp (io/reader body)))))

(defn orbit-world [dimensions ctx]
  (let [in (json/parse-string (body-as-string ctx))]
    (json/generate-string in)))

(defn init-world [params]
  (let [dimensions (Integer/parseInt params)
     world (vec (repeat dimensions (vec (take dimensions (repeatedly #(rand-int 2))))))]
    (json/generate-string world)))

(defresource world [dimensions]
  :allowed-methods [:get :put]
  :available-media-types ["application/json"]
  :available-charsets ["utf-8"]
  :handle-ok (fn [_] (init-world dimensions))
  :put! (fn [ctx] (orbit-world dimensions ctx)))

我只想将传递给 put 请求的任何内容作为 JSON 返回，直到我了解发生了什么。

但如果我提出 put 请求，我会得到以下响应：

HTTP/1.1 201 创建

日期：2014 年 5 月 18 日星期日 15:35:32 GMT

内容类型：文本/纯文本

内容长度：0

服务器：码头（7.6.8.v20121106）

我的 GET 请求返回 JSON，所以我不明白为什么 PUT 请求不是/

Answer 1

这是因为成功的 PUT 请求不会返回 http 200 状态码（至少根据 liberator），它返回的是 http 201 状态码，正如您从响应中看到的那样。 Liberator 在不同的处理程序中处理每个 http 状态代码。为了达到你想要的，你必须做到：

(defresource world [dimensions]
  :allowed-methods [:get :put]
  :available-media-types ["application/json"]
  :available-charsets ["utf-8"]
  :handle-ok (fn [_] (init-world dimensions))
  :put! (fn [ctx] (orbit-world dimensions ctx))
  :handle-created (fn [_] (init-world dimensions))) ; Basically just a handler like any other.

由于您在 :handle-created 上声明 none，它默认为具有 text/plain 内容类型的空字符串。

编辑：

要了解更多，您必须查看decision graph。在那里，您可以看到处理完put! 后，它转到决策处理new?，如果为真，则转到handle-created，如果为假，则转到respond-with-entity?，依此类推。