Commit 45d0b48a authored by Stephane Glondu's avatar Stephane Glondu

Tune trustee key upload page

parent 2df505d2
......@@ -30,6 +30,7 @@ let tkeygen _ =
let open X in
let {id=_; priv; pub} = trustee_keygen () in
set_textarea "pk" pub;
set_download "public_key" "application/json" "public_key.json" pub;
set_download "private_key" "application/json" "private_key.json" priv;
set_element_display "submit_form" "inline";
Js._false
......
......@@ -1111,12 +1111,26 @@ let election_setup_trustee token uuid se () =
div ~a:[a_id "submit_form"; a_style "display:none;"] [
div [pcdata "Public key:"];
div [textarea ~a:[a_rows 5; a_cols 40; a_id "pk"] ~name ~value ()];
div [a ~service:home ~a:[a_id "private_key"] [pcdata "Private key"] ()];
div [
b [pcdata "Instructions:"];
ol [
li [pcdata "download your private key using the link above;"];
li [pcdata "submit your public key using the button below."];
li [
pcdata "Download your ";
a ~service:home ~a:[a_id "private_key"] [pcdata "private key"] ();
pcdata " and save it to a secure location.";
br ();
pcdata "You will use it to decrypt the final result.";
];
li [
pcdata "Download your ";
a ~service:home ~a:[a_id "public_key"] [pcdata "public key"] ();
pcdata " and save it.";
br ();
pcdata "Once the election is open, you must check that";
pcdata " it is present in the set of public keys";
pcdata " published by the server.";
];
li [pcdata "Submit your public key using the button below."];
];
];
div [string_input ~input_type:`Submit ~value:"Submit public key" ()];
......
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