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

accept new threads without image

Browse source
This commit is contained in:
Swrup 2022-01-29 10:21:53 +01:00
parent a40682139a
commit bf495bfe7d
1 changed files with 17 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

32
src/permap.ml
View file

@ -179,23 +179,25 @@ let newthread_post ~board request =
| None, _ -> render_unsafe "Invalide coordinate" request
| _, None -> render_unsafe "Invalide coordinate" request
| Some lat, Some lng -> (
match file with
| [] -> render_unsafe "No image" request
| _ :: _ :: _ -> render_unsafe "More than one image" request
| [ (image_name, image_content) ] -> (
let image = (image_name, image_content, alt) in
match
let res =
match file with
| [] ->
Babillard.make_op ~comment ~lat ~lng ~subject ~tags ~board nick
| _ :: _ :: _ -> Error "More than one image"
| [ (image_name, image_content) ] ->
let image = (image_name, image_content, alt) in
Babillard.make_op ~comment ~image ~lat ~lng ~subject ~tags ~board
nick
with
| Ok thread_id ->
let adress =
Format.asprintf "/%a/%s" Babillard.pp_board board thread_id
in
Dream.respond ~status:`See_Other
~headers:[ ("Location", adress) ]
"Your thread was posted!"
| Error e -> render_unsafe e request ) ) )
in
match res with
| Ok thread_id ->
let adress =
Format.asprintf "/%a/%s" Babillard.pp_board board thread_id
in
Dream.respond ~status:`See_Other
~headers:[ ("Location", adress) ]
"Your thread was posted!"
| Error e -> render_unsafe e request ) )
| `Ok _ -> Dream.empty `Bad_Request
| `Expired _
| `Many_tokens _