Attention une mise à jour du serveur va être effectuée le lundi 17 mai entre 13h et 13h30. Cette mise à jour va générer une interruption du service de quelques minutes.

Commit e621c601 authored by Stephane Glondu's avatar Stephane Glondu

Check presence of voters before generating credentials on server

parent 69627b1d
......@@ -784,8 +784,11 @@ let () =
Any.register
~service:election_setup_credentials_server
(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
Lwt.fail (Failure (Printf.sprintf "Cannot send credentials, there are too many voters (max is %d)" !maxmailsatonce))
else if nvoters = 0 then
Lwt.fail (Failure "No voters")
else
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