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

add profile metadata

Browse source
This commit is contained in:
Swrup 2022-03-08 01:19:35 +01:00
parent 69677f5e1b
commit f8f4b9b110
6 changed files with 171 additions and 41 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/permap.ml
View file

@ -268,6 +268,14 @@ let profile_post request =
~headers:[ ("Location", "/profile") ]
"Your display nick was updated!"
| Error e -> render_unsafe e request )
| `Ok [ ("content", content); ("count", count); ("label", label) ] -> (
let count = int_of_string count in
match User.update_metadata count label content nick with
| Ok () ->
Dream.respond ~status:`See_Other
~headers:[ ("Location", "/profile") ]
"Your display nick was updated!"
| Error e -> render_unsafe e request )
| `Ok _ | `Many_tokens _ | `Missing_token _ | `Invalid_token _
| `Wrong_session _ | `Expired _ | `Wrong_content_type -> (
match%lwt Dream.multipart request with