reynir/albatross
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

vmmc_bistro: validity starts at now - 10

Browse source
This commit is contained in:
Hannes Mehnert 2019-03-02 21:29:51 +01:00
parent 752536c38f
commit dce477a01e
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
app/vmmc_bistro.ml
View file

@ -22,9 +22,12 @@ let key_ids pub issuer =
let timestamps validity = let timestamps validity =
let now = Ptime_clock.now () in let now = Ptime_clock.now () in
match Ptime.add_span now (Ptime.Span.of_int_s validity) with match
| None -> invalid_arg "span too big - reached end of ptime" Ptime.sub_span now (Ptime.Span.of_int_s 10),
| Some exp -> (now, exp) Ptime.add_span now (Ptime.Span.of_int_s validity)
with
| None, _ | _, None -> invalid_arg "span too big - reached end of ptime"
| Some now, Some exp -> (now, exp)
let handle (host, port) cert key ca id (cmd : Vmm_commands.t) = let handle (host, port) cert key ca id (cmd : Vmm_commands.t) =
Vmm_lwt.read_from_file cert >>= fun cert_cs -> Vmm_lwt.read_from_file cert >>= fun cert_cs ->