reynir/albatross
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

.

Browse source
This commit is contained in:
Hannes Mehnert 2018-10-23 20:54:53 +02:00
parent f5ce2d8826
commit d896d89bba
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/vmm_x509.ml
View file

@ -25,9 +25,8 @@ let handle _addr chain =
(X509.common_name_to_string leaf) (X509.common_name_to_string leaf)
Fmt.(list ~sep:(unit " -> ") string) Fmt.(list ~sep:(unit " -> ") string)
(List.map X509.common_name_to_string chain)) ; (List.map X509.common_name_to_string chain)) ;
(* TODO here: inspect top-level-cert of chain. (* TODO: inspect top-level-cert of chain. *)
may need to create bridges and/or block device subdirectory (zfs create) *) (* TODO: logging let login_hdr, login_ev = Log.hdr name, `Login addr in *)
(* let login_hdr, login_ev = Log.hdr name, `Login addr in *)
(* TODO: update policies! *) (* TODO: update policies! *)
Vmm_asn.wire_command_of_cert asn_version leaf >>| fun wire -> Vmm_asn.wire_command_of_cert asn_version leaf >>| fun wire ->
(name, wire) (name, wire)