swrup/geochan
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

set up user session on login

Browse source
This commit is contained in:
pena 2021-11-07 10:21:01 +01:00 • committed by Swrup
parent b2ecec7808
commit c7aa8aaad7
4 changed files with 27 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/user.ml
View file

@ -18,7 +18,7 @@ let () =
Dream.warning (fun log ->
log "can't create table user: %s" (Sqlite3.Rc.to_string e) )
let login ~nick ~password =
let login ~nick ~password request =
let open Sqlite3_utils in
let good_password =
Db.with_db (fun db ->
@ -28,6 +28,10 @@ let login ~nick ~password =
match good_password with
| Ok [ [| Data.TEXT good_password |] ] ->
if Bcrypt.verify password (Bcrypt.hash_of_string good_password) then
let _ =
let%lwt () = Dream.invalidate_session request in
Dream.put_session "nick" nick request
in
Ok ()
else
Error "wrong password"