postgresql - 尝试为 Clojure/Korma/PostgreSQL 站点创建用户登录

Question

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

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

登录页面接受登录，但显示登录失败，但据我所知，登录匹配。

或者我得到这个错误:在 multimethod '->sql' 中没有用于调度值的方法:null

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

我通过比较来自原始非散列数据的结果到选择查询来测试输出，我在这个主题上经历了 5 种变体，使用从页面到页面调用到创建新的 defpartials，multi-方法、定义等

我使用过的资源(不幸的是，我不能列出所有这些是第一次发帖):

这个使用了 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

Answer 1

我看到了几个问题。首先，在 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! 是将数据放入 session 的方式。默认是使用内存存储。您需要添加 Ring 中间件才能使用 persistent sessions (查看 session 存储)。

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