Commit 34bfcb7e authored by Stephane Glondu's avatar Stephane Glondu

Reword GDPR consent for voters

parent f782f9d4
......@@ -39,6 +39,7 @@
<eliom module="_build/src/web/server.cma">
<maxmailsatonce value="1000"/>
<uuid length="14"/>
<gdpr uri="http://www.example.org/privacy_policy.html"/>
<!-- <contact uri="mailto:contact@example.org"/> -->
<server mail="noreply@example.org"/>
<auth name="demo"><dummy/></auth>
......
......@@ -30,6 +30,7 @@ let spool_dir = ref "."
let server_mail = ref "noreply@example.org"
let return_path = ref None
let contact_uri = ref None
let gdpr_uri = ref ""
module LwtRandom = struct
......
......@@ -26,6 +26,7 @@ val spool_dir : string ref
val server_mail : string ref
val return_path : string option ref
val contact_uri : string option ref
val gdpr_uri : string ref
module LwtRandom : RANDOM with type 'a t = 'a Lwt.t
(** Lwt-compatible random number generation. *)
......
......@@ -92,7 +92,8 @@ module type LocalizedStrings = sig
val password : string
val login : string
val password_login : string
val you_must_accept_cookies : string
val by_using_you_accept : string
val privacy_policy : string
val accept : string
val not_yet_open : string
val come_back_later : string
......
......@@ -91,7 +91,8 @@ let username = "Benutzername:"
let password = "Passwort:"
let login = "Login"
let password_login = "Login mit Passwort"
let you_must_accept_cookies = "Um diese Seite benutzen zu können, müssen Sie Cookies aktivieren. "
let by_using_you_accept = "By using this site, you accept our "
let privacy_policy = "personal data policy"
let accept = "Bestätigen"
let not_yet_open = "Entschuldigung, die Abstimmung ist noch nicht geöffnet."
let come_back_later = "Diese Abstimmung gibt es noch nicht. Bitte kommen Sie später wieder."
......
......@@ -91,7 +91,8 @@ let username = "Username:"
let password = "Password:"
let login = "Login"
let password_login = "Password login"
let you_must_accept_cookies = "To use this site, you must accept cookies. "
let by_using_you_accept = "By using this site, you accept our "
let privacy_policy = "personal data policy"
let accept = "Accept"
let not_yet_open = "Sorry, this election is not yet open"
let come_back_later = "This election does not exist yet. Please come back later."
......
......@@ -91,7 +91,8 @@ let username = "Nom d'utilisateur :"
let password = "Mot de passe :"
let login = "Se connecter"
let password_login = "Connexion par mot de passe"
let you_must_accept_cookies = "Pour utiliser ce site, vous devez accepter les cookies. "
let by_using_you_accept = "En utilisant ce site, vous acceptez notre "
let privacy_policy = "politique concernant les données personnelles"
let accept = "Accepter"
let not_yet_open = "Désolé, cette élection n'est pas encore ouverte"
let come_back_later = "Cette élection n'existe pas encore. Veuillez revenir plus tard."
......
......@@ -91,7 +91,8 @@ let username = "Nome utente :"
let password = "Password :"
let login = "Connettersi"
let password_login = "Connessione tramite la password"
let you_must_accept_cookies = "Per navigare sul sito, è necessario attivare i cookies. "
let by_using_you_accept = "By using this site, you accept our "
let privacy_policy = "personal data policy"
let accept = "Accettare"
let not_yet_open = "Spiacente, quest'elezione non è ancora aperta"
let come_back_later = "Quest'elezione ancora non esiste. La preghiamo di consultare ulteriormente."
......
......@@ -91,7 +91,8 @@ let username = "Nume utilizator:"
let password = "Parola:"
let login = "Conectare"
let password_login = "Conectare folosind parola"
let you_must_accept_cookies = "Pentru a utiliza acest site, trebuie să acceptați cookie-uri. "
let by_using_you_accept = "By using this site, you accept our "
let privacy_policy = "personal data policy"
let accept = "Accept"
let not_yet_open = "Din păcate, această alegere nu este încă deschisă"
let come_back_later = "Acesta alegere nu există încă. Vă rugăm să reveniți mai târziu."
......
......@@ -37,6 +37,7 @@ let () = CalendarLib.Time_Zone.(change Local)
let spool_dir = ref None
let source_file = ref None
let auth_instances = ref []
let gdpr_uri = ref None
let () =
Eliom_config.get_config () |>
......@@ -58,6 +59,8 @@ let () =
failwith "UUID length is too small"
| Element ("contact", ["uri", uri], []) ->
Web_common.contact_uri := Some uri
| Element ("gdpr", ["uri", uri], []) ->
gdpr_uri := Some uri
| Element ("server", attrs, []) ->
let set attr setter =
try
......@@ -83,6 +86,11 @@ let () =
"invalid configuration for tag %s in belenios"
tag
let () =
match !gdpr_uri with
| None -> failwith "You must provide a GDPR URI"
| Some x -> Web_common.gdpr_uri := x
(** Parse configuration from other sources *)
let file_exists x =
......
......@@ -1637,7 +1637,9 @@ let election_home election state () =
div
~a:[a_style "border-style: solid; border-width: 1px;"]
[
pcdata L.you_must_accept_cookies;
pcdata L.by_using_you_accept;
unsafe_a !gdpr_uri L.privacy_policy;
pcdata ". ";
a ~service:set_cookie_disclaimer [pcdata L.accept] ();
]
else pcdata ""
......
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