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

check nick and email are unique

Browse source
This commit is contained in:
zapashcanon 2021-11-07 00:54:35 +01:00
parent a951a7584a
commit 6f7a3c568c
No known key found for this signature in database
GPG key ID: 8981C3C62D1D28F1
2 changed files with 17 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/register.eml.html
View file

@ -5,7 +5,7 @@ let f ?email ?nick ?password request =
% begin match User.register ~email ~nick ~password with
% | Error e ->
Error: <%s e %>
% | Ok _ ->
% | Ok _ (* TODO: do not match on _ *) ->
User created !
% end;
% | _ ->

22
src/user.ml
View file

@ -48,14 +48,24 @@ let register ~email ~nick ~password =
if not valid then
Error "Something is wrong"
else
(* TODO: add check uniqueness of id *)
let open Sqlite3_utils in
let res =
let unique =
Db.with_db (fun db ->
exec_raw_args db "INSERT INTO user VALUES (?, ?, ?);"
[| Data.TEXT nick; Data.TEXT password; Data.TEXT email |]
exec_raw_args db
"SELECT EXISTS(SELECT 1 FROM user WHERE nick=? OR email=?);"
[| Data.TEXT nick; Data.TEXT email |]
~f:Cursor.to_list )
in
match res with
| Ok res -> Ok res
match unique with
| Ok [ [| Data.INT 0L |] ] -> (
let res =
Db.with_db (fun db ->
exec_raw_args db "INSERT INTO user VALUES (?, ?, ?);"
[| Data.TEXT nick; Data.TEXT password; Data.TEXT email |]
~f:Cursor.to_list )
in
match res with
| Ok res -> Ok res
| Error e -> Error (Format.sprintf "db error: %s" (Rc.to_string e)) )
| Ok _ -> Error "nick or email already exists"
| Error e -> Error (Format.sprintf "db error: %s" (Rc.to_string e))