swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

add auditors diable

Browse source
This commit is contained in:
swrup 2025-12-11 04:48:51 +01:00
parent c150ff242c
commit af09c697b8
3 changed files with 45 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

28
src/management.ml
View file

@ -264,9 +264,35 @@ let update_auditor ~db_conn
let cmp = Timestamp.compare last_date validity_start |> Option.get in
if cmp > 0 then Error "more recent management auditor already present"
else
let enabled = true in
let+ () =
Pg.update_auditor db_conn ~auditor_pub ~auditor_url ~auditor_name
~enabled:true ~change_date:validity_start
~enabled ~change_date:validity_start
|> unwrap_err_caqti
in
()
let verify_auditor_disable_sig auditor_pub
AuditorTeardownMessage.{ master_sig; validity_end } =
let open Bin_sig.MasterDelAuditor in
verify ~key:Config.Exchange.master_public_key master_sig
{ end_date= validity_end; auditor_pub }
let auditor_disable ~db_conn auditor_pub
AuditorTeardownMessage.{ master_sig= _; validity_end } =
let* last_date_opt =
Pg.lookup_auditor_timestamp db_conn auditor_pub |> unwrap_err_caqti
in
match last_date_opt with
| None -> Error "auditor not found"
| Some last_date ->
let cmp = Timestamp.compare last_date validity_end |> Option.get in
if cmp > 0 then Error "more recent management auditor already present"
else
let enabled = false in
let+ () =
Pg.update_auditor db_conn ~auditor_pub ~auditor_url:""
~auditor_name:"" ~enabled ~change_date:validity_end
|> unwrap_err_caqti
in
()