我正在尝试将好友身份验证和授权集成到 Clojure/Compojure 单页 Web 应用程序中。
我有一个由 Angular 控制器支持的登录表单，该控制器使用 AJAX 针对 Web 应用程序验证用户名和密码，并获取经过身份验证的用户记录。因此，我不希望基于朋友表单的登录提供默认行为 - 我基本上想依赖 HTTP 状态代码，而且我确实这样做not想要任何朋友页面重定向。
例如，发出未经身份验证的请求应仅返回 401 状态代码，而不应重定向到“/login”。我通过在配置 Friend 时指定自定义“:unauthenticated-handler”来使这部分工作（代码如下）。
成功登录后，我只需要 200 状态代码，而不是重定向到最初请求的页面。这是我无法工作的。
我根据各种示例编写了一个自定义好友身份验证工作流程（我的 Clojure 技能现在处于初学者水平）：
(defn my-auth
[& {:keys [credential-fn]}]
(routes
(GET "/logout" req
(friend/logout* {:status 200}))
(POST "/login" {{:keys [username password]} :params}
(if-let [user-record (-> username credential-fn)]
(if
(and
[user-record password]
(creds/bcrypt-verify password (:password user-record)))
(let [user-record (dissoc user-record :password)]
(workflows/make-auth user-record {:cemerick.friend/workflow :my-auth :cemerick.friend/redirect-on-auth? true}))
{:status 401})
{:status 401}))))
这是我声明的中间件的处理程序：
(def app
(->
(handler/site
(friend/authenticate app-routes
{:credential-fn (partial creds/bcrypt-credential-fn my-credential-fn)
:unauthenticated-handler unauthenticated
:workflows [(my-auth :credential-fn my-credential-fn)]}))
(session/wrap-session)
(params/wrap-keyword-params)
(json/wrap-json-body)
(json/wrap-json-response {:pretty true})))
以及上面引用的附加处理函数：
(defn unauthenticated [v]
{:status 401 :body "Unauthenticated"})
最后一个额外的路由片段来测试身份验证：
(GET "/auth" req
(friend/authenticated (str "You have successfully authenticated as "
(friend/current-authentication))))
This mostly作品，以及almost做我需要的一切。
因为“身份验证重定向？”在“make-auth”中为 true，成功登录后会生成页面重定向 - 我想阻止该重定向，因此我将该值设置为 false。但是，此单一更改会导致 404 错误和登录失败。
因此，除了好友身份验证映射外，我还需要以某种方式在此处返回 200 状态代码，并且我还想在响应正文中返回“用户记录”，以便客户端应用程序可以根据用户角色定制 UI（我已经封装了 JSON 请求/响应并正在运行）。
所以我认为当我调用 Friend“make-auth”函数时我需要与此等效的功能：
{:status 200 :body user-record}
然而，似乎我可以拥有身份验证映射或响应 - 但不能同时拥有两者。
这可以通过 Friend 实现吗？如果可以的话，如何实现？
