add auditors diable

src/handler.ml

@@ -99,3 +99,17 @@ let management_auditors req server _env =
     Ok ""
   in
   respond_with_res res req
+
+let management_auditors_disable_jsont = AuditorTeardownMessage.jsont
+
+let management_auditors_disable req auditor_pub server _env =
+  let open Management in
+  let db_conn = Vif.Server.device Devices.db_connection server in
+  let res =
+    let* auditor_pub = Crypto.EddsaPublicKey.of_b32 auditor_pub in
+    let* v = Vif.Request.of_json req |> unwrap_err_msg in
+    let* () = verify_auditor_disable_sig auditor_pub v in
+    let* () = auditor_disable ~db_conn auditor_pub v in
+    Ok ""
+  in
+  respond_with_res res req