6

我完全不知道从哪里开始获取我正在构建的 Clojure 站点的登录区域（为了好玩）。

我查看了几个资源，我将在下面发布，无情地复制/粘贴代码，我能得到的最接近的是以下两种情况之一：

登录页面进行登录，但说登录失败，但据我所知，登录匹配。

或者我收到此错误：多方法'-> sql'中没有用于调度值的方法：null

我不确定如何解释上述错误：这是指定我需要一个多方法还是指定我需要检查 null？null 要求根本没有意义。我不是真的在问，但如果有人想给出解释，那就太好了。

我通过比较来自原始非散列数据的结果到选择查询来测试输出，我经历了这个主题的 5 个变体，使用从页面到页面调用到创建新的 defpartials、多方法、defn 的所有内容， ETC。

我使用的来源（不幸的是，我不能将所有这些都列为首次发布者）：

这个使用 Clojure -> Korma -> PostgreSQL，但代码似乎不适用于多个用户？
http://www.vijaykiran.com/2012/01/17/web-application-development-with-clojure-part-2/

这个展示了如何使用 Noir 和 PostgreSQL（是的，我正在使用 Noir）： https ://yogthos.net:11794/blog/23-Noir+tutorial+-+part+2

4Clojure 站点，但该站点使用的是 CongoMongo：

Heroku Twitter 克隆，但没有提及如何为一个人创建登录名，更不用说为几个人创建登录名了。

我还从 O'Reilly Press 购买了 Programming Clojure，但再一次，没有关于如何创建登录区域的内容。

第一次编辑：我被要求创建一个独立站点的 github 存储库。这包括在welcome.clj 文件中找到的工作“帐户创建”区域和login.clj 中仅一种形式的登录区域。

我试图让一些与昨晚一样的错误正常工作，并在上传文件之前尝试让这个工作正常。我还没有任何合理的起点，因此目前还没有开始实施。我对我提出的解决方案感到非常尴尬，因此我不想发布它们。我从概念上得到了我应该做的事情，但由于某种原因，我似乎无法翻译这个。这是我的第一个github账号：我的背景是Python，Scheme a'la SICP，还有我自己搭建的一些Python+PostgreSQL营销程序。

第二次编辑：确认！我似乎根本无法让它工作......是的，我在这个上花了超过 20 分钟（小时），所以我不得不承认我还没有必要的知识来完成这个，无论我查看多少来源。我提交了更新的文件和我尝试过的所有奇怪的事情，包括登录框的所有变体以运行原始 SQL。我能得到的最接近的方法是得到它，这样我就不会收到任何错误，但根本没有证据表明有人已登录。非常感谢您的帮助和建议。我肯定会稍后再谈。

https://github.com/dt1/noirKormaLogin

4

1 回答 1

3

我看到了几个问题。首先，在 中datapass.clj，您正在创建一个没有内容的实体。我不确定 Korma 是如何处理的。它试图将结果作为输入到其他函数，所以我可以看到nil那里是如何引入的。

其次，您需要一些东西来处理登录帖子。 (defpage ...)默认只处理 GET 请求。你需要一个单独defpage的来处理帖子。这些方面的东西：

(defpage [:post "/login"] {:keys [user-name pwd]}
  (if-let [user (db/find-user user)]
    (if (noir.util.crypt/compare pwd (:password user))
       (do
         (noir.session/put! :some-key some-value)
         (noir.response/redirect "/success"))
       noir.response/redirect "/failed-to-login"))
  (noir.response/redirect "/failed-to-login"))

session/put!是您如何将数据放入会话中。默认是使用内存存储。您需要添加 Ring 中间件以使用持久会话（查看 Session Stores）。

此外，幸运的是，有人刚刚为 Noir 发布了一个身份验证应用程序......您可能想看看：https ://github.com/xavi/noir-auth-app

于 2012-08-28T21:18:22.720 回答