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

list users

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

16
src/user.ml
View file

@ -69,3 +69,19 @@ let register ~email ~nick ~password =
| 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))
let list _request =
let open Sqlite3_utils in
let users =
Db.with_db (fun db ->
exec_raw_args db "SELECT nick FROM user;" [||] ~f:Cursor.to_list )
in
match users with
| Error e -> Format.sprintf "db error: %s" (Rc.to_string e)
| Ok users ->
Format.asprintf "<ul>%a</ul>"
(Format.pp_print_list (fun fmt -> function
| [| Data.TEXT s |] ->
Format.fprintf fmt {|<li><a href="/user/%s">%s</a></li>|} s s
| _ -> failwith "error" ) )
users