Attention une mise à jour du service Gitlab va être effectuée le mardi 30 novembre entre 17h30 et 18h00. Cette mise à jour va générer une interruption du service dont nous ne maîtrisons pas complètement la durée mais qui ne devrait pas excéder quelques minutes. Cette mise à jour intermédiaire en version 14.0.12 nous permettra de rapidement pouvoir mettre à votre disposition une version plus récente.

Commit ebc65b88 authored by Stephane Glondu's avatar Stephane Glondu
Browse files

JS tool: add UUID generation

parent 463ccd7a
......@@ -27,7 +27,7 @@
<div>
<div>
UUID:
<div><textarea id="election_uuid" rows="1" cols="80"></textarea></div>
<div><textarea id="election_uuid" rows="1" cols="80"></textarea><button id="new_uuid">Generate</button></div>
</div>
<div>
Group parameters:
......
......@@ -286,7 +286,20 @@ module ToolElection = struct
end
let int_of_quad str =
let ( ! ) x = int_of_char str.[x] in
(((((!0 lsl 8) lor !1) lsl 8) lor !2) lsl 8) lor !3
let new_uuid () =
let seed = Array.init 16 (fun _ ->
random_string secure_rng 4 |> int_of_quad
) in
let s = Random.State.make seed in
let uuid = Uuidm.v4_gen s () in
set_textarea "election_uuid" (Uuidm.to_string uuid)
let cmds =
["new_uuid", new_uuid] @
Tests.cmds @
Tkeygen.cmds @
Credgen.cmds @
......
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