Commit e621c601 authored by Stephane Glondu's avatar Stephane Glondu
Browse files

Check presence of voters before generating credentials on server

parent 69627b1d
......@@ -784,8 +784,11 @@ let () =
(handle_setup (fun se () _ uuid ->
if List.length se.se_voters > !maxmailsatonce then
let nvoters = List.length se.se_voters in
if nvoters > !maxmailsatonce then (Failure (Printf.sprintf "Cannot send credentials, there are too many voters (max is %d)" !maxmailsatonce))
else if nvoters = 0 then (Failure "No voters")
if se.se_public_creds_received then forbidden () else
let () = se.se_metadata <- {se.se_metadata with
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment