Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
belenios
belenios
Commits
304431ee
Commit
304431ee
authored
Jun 05, 2015
by
Stephane Glondu
Browse files
Setup mode: confirmation pages for trustees and credentials
parent
932197ad
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/web/web_site.ml
View file @
304431ee
...
...
@@ -528,7 +528,8 @@ let handle_credentials_post token creds =
Printf
.
ksprintf
failwith
"invalid credential at line %d"
!
i
)
(
Lwt_io
.
lines_of_file
fname
)
in
Redirection
.
send
(
preapply
election_setup_credentials
token
)
T
.
generic_page
~
title
:
"Success"
"Credentials have been received and checked!"
()
>>=
Html5
.
send
let
()
=
Any
.
register
...
...
@@ -572,7 +573,9 @@ let () =
(* we keep pk as a string because of G.t *)
pkref
:=
public_key
;
Ocsipersist
.
add
election_stable
uuid
se
)
>>
Redirection
.
send
(
preapply
election_setup_trustee
token
)
)
>>
T
.
generic_page
~
title
:
"Success"
"Your key has been received and checked!"
()
>>=
Html5
.
send
)
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment