Intentar crear un usuario de inicio de sesión para Clojure/Korma/PostgreSQL sitio

Question

Estoy completamente atascado en dónde empezar con la obtención de un área de inicio de sesión para un sitio de Clojure que estoy construyendo (por diversión).

He mirado en varios recursos, que voy a publicar a continuación, sin piedad copiar/pegar el código, y lo más cerca que puede obtener es una de dos situaciones:

La página de inicio de sesión tarda el inicio de sesión, pero dice que el inicio de sesión falló, sin embargo, por lo que puedo decir, el inicio de sesión coincide.

O me sale este error: Ningún método en multimethod '-> SQL' para el valor de despacho: null

No estoy seguro de cómo interpretar el error anterior: es este especificando que necesito un multi -method o está especificando que necesito verificar null? El requisito nulo no tiene ningún sentido. Realmente no estoy preguntando, pero si alguien quiere dar una explicación, eso es genial.

Probé la salida comparando las consultas de resultados a selección de datos sin cifrado sin procesar, he pasado por 5 variaciones sobre este tema, usando de todo, desde llamadas de página a página, hasta la creación de nuevos defpartiales, múltiples -Métodos, defn, etc.

las fuentes que he utilizado (por desgracia, no puedo enumerar todos ellos de un cartel por primera vez):

Ésta utiliza Clojure -> Korma -> PostgreSQL, pero el código no parece funcionar para múltiples usuarios?
http://www.vijaykiran.com/2012/01/17/web-application-development-with-clojure-part-2/

Ésta muestra cómo utilizar Noir y PostgreSQL (Sí, estoy usando Noir): https://yogthos.net:11794/blog/23-Noir+tutorial+-+part+2

El sitio de 4Clojure, pero que uno utiliza CongoMongo:

El clon Heroku Twitter, pero no se menciona cómo crear inicios de sesión para una persona, mucho menos varias.

También compré Programación Clojure de O'Reilly Press, pero una vez más, nada acerca de cómo crear un área de inicio de sesión.

PRIMERA EDICION: Me pidieron que creara un repositorio github de un sitio independiente. Esto incluye un área de "Creación de cuenta" que se encuentra en el archivo welcome.clj y solo un formulario del área de inicio de sesión en login.clj.

Estaba tratando de obtener algunos de los mismos errores de trabajo que tuve anoche y también tratando de hacer que esto funcione antes de cargar los archivos. Todavía no tengo ningún punto de partida razonable, por lo que aún no hay una implementación inicial. Estoy muy avergonzado con las soluciones que he estado generando, por lo tanto, no quiero publicarlas. Obtuve conceptualmente lo que debería hacer, pero por alguna razón, parece que no puedo traducir esto. Esta es mi primera cuenta github: mi experiencia es Python, Scheme a'la SICP, y algún programa de marketing Python + PostgreSQL que construí.

SEGUNDA EDICION: Ack! Parece que no puedo hacer que la cosa funcione ... Sí, pasé más de 20 minutos (horas) en esta, así que tengo que admitir que todavía no tengo los conocimientos necesarios para lograrlo. esto, no importa cuántas fuentes busque. Cometí los archivos actualizados y todas las cosas raras que probé, incluidas todas las variaciones en el cuadro de inicio de sesión para ejecutar SQL sin procesar. Lo más cerca que puedo llegar es conseguirlo para no tener ningún error, pero no hay evidencia de que alguien haya iniciado sesión. Muchas gracias por la ayuda y las sugerencias.Seguramente volveré a esto más tarde.

https://github.com/dt1/noirKormaLogin

Answer 1

Hay un par de cuestiones que veo. Primero, en datapass.clj, está creando una entidad sin contenido. No estoy seguro de cómo Korma se encarga de eso. Está intentando enhebrar los resultados como entradas para otras funciones, así pude ver cómo se introduce nil allí.

En segundo lugar, necesitará algo para manejar la entrada. (defpage ...) solo maneja las solicitudes GET por defecto. Necesitará un defpage por separado para manejar la publicación. Algo a lo largo de estas líneas:

(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! es la forma de poner los datos en la sesión. El valor predeterminado es usar una tienda en memoria. Deberá agregar el middleware Ring para usar persistent sessions (consulte Almacenes de sesiones).

Además, la suerte quiso que, alguien acaba de publicar una aplicación de autenticación para Noir ... es posible que desee echar un vistazo: https://github.com/xavi/noir-auth-app