Add refresh endpoint hack

This commit is contained in:
Reynir Björnsson 2021-01-18 22:53:07 +01:00
parent 5298108d1a
commit 035d471844

View file

@ -117,11 +117,39 @@ let routes t =
|> Response.set_etag (Base64.encode_string (Cstruct.to_string digest)) |> Response.set_etag (Base64.encode_string (Cstruct.to_string digest))
in in
let refresh _req =
let status = Lwt_unix.system "builder-db add" in
let stream =
let i = ref 0 in
Lwt_stream.from (fun () ->
i := !i + 1;
match !i with
| 1 ->
Lwt.return_some "Refresh job started.\n"
| 2 ->
let* status = status in
(match status with
| Unix.WEXITED 0 ->
Lwt.return_some "Refresh job was successful!"
| Unix.WEXITED n ->
Lwt.return_some (Printf.sprintf "Refresh job failed : %d" n)
| Unix.WSIGNALED _ | Unix.WSTOPPED _ ->
Lwt.return_some ("Refresh job signalled"))
| _ ->
Lwt.return_none)
in
let body = Body.of_stream stream in
Response.make ~body ()
|> Response.set_content_type "text/plain"
|> Lwt.return
in
[ [
App.get "/" builder; App.get "/" builder;
App.get "/job/:job/" job; App.get "/job/:job/" job;
App.get "/job/:job/build/:build/" job_build; App.get "/job/:job/build/:build/" job_build;
App.get "/job/:job/build/:build/f/**" job_build_file; App.get "/job/:job/build/:build/f/**" job_build_file;
App.get "/refresh" refresh;
] ]
let add_routes t (app : App.t) = let add_routes t (app : App.t) =