robur/webauthn
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Display credential IDs as base64

Browse source
This commit is contained in:
Reynir Björnsson 2021-10-04 10:42:04 +02:00
parent aa65c0546b
commit 4eb1298af7
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
bin/template.ml
View file

@ -31,8 +31,11 @@ let overview notes authenticated_as users =
String.concat "" String.concat ""
("<h2>Users</h2><ul>" :: ("<h2>Users</h2><ul>" ::
Hashtbl.fold (fun name keys acc -> Hashtbl.fold (fun name keys acc ->
let handles = List.map (fun (_, h, _) -> h) keys in let credentials = List.map (fun (_, cid, _) ->
(Printf.sprintf "<li>%s [<a href=/authenticate/%s>authenticate</a>] (%s)</li>" name name (String.concat ", " handles)) :: acc) Base64.encode_string ~pad:false ~alphabet:Base64.uri_safe_alphabet cid)
keys
in
(Printf.sprintf "<li>%s [<a href=/authenticate/%s>authenticate</a>] (%s)</li>" name name (String.concat ", " credentials)) :: acc)
users [] @ [ "</ul>" ]) users [] @ [ "</ul>" ])
in in
page "" (String.concat "" (notes @ [authenticated_as;links;users])) page "" (String.concat "" (notes @ [authenticated_as;links;users]))