Commit d55d338b authored by Stephane Glondu's avatar Stephane Glondu

Remove election_setup_credentials_download (unusable)

parent 137dd6d5
......@@ -49,7 +49,6 @@ let election_setup_trustee_add_server = post_coservice ~fallback:election_setup
let election_setup_trustee_del = post_coservice ~fallback:election_setup ~post_params:(int "index") ()
let election_setup_credential_authority = service ~path:["setup"; "credential-authority"] ~get_params:(uuid "uuid") ()
let election_setup_credentials = service ~path:["setup"; "credentials"] ~get_params:(string "token") ()
let election_setup_credentials_download = service ~path:["setup"; "public_creds.txt"] ~get_params:(string "token") ()
let election_setup_credentials_post = post_coservice ~fallback:election_setup_credentials ~post_params:(string "public_creds") ()
let election_setup_credentials_post_file = post_coservice ~fallback:election_setup_credentials ~post_params:(file "public_creds") ()
let election_setup_credentials_server = post_coservice ~fallback:election_setup ~post_params:unit ()
......
......@@ -773,14 +773,6 @@ let () =
T.election_setup_credentials token uuid se ()
)
let () =
File.register ~service:election_setup_credentials_download
~content_type:"text/plain"
(fun token () ->
let%lwt uuid = Ocsipersist.find election_credtokens token in
return (!spool_dir / uuid ^ ".public_creds.txt")
)
let wrap_handler f =
try%lwt f ()
with
......
......@@ -1033,11 +1033,6 @@ let election_setup_credentials token uuid se () =
div [string_input ~input_type:`Submit ~value:"Submit" ()]]])
token
in
let div_download =
p [a ~service:election_setup_credentials_download
[pcdata "Download current file"]
token]
in
let group =
div
~a:[a_style "display:none;"]
......@@ -1075,7 +1070,6 @@ let election_setup_credentials token uuid se () =
) else (
[
div_link;
div_download;
div_textarea;
form_file;
]
......
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