wip test /management/* with offline-tool

tools/offline_impl.ml

@@ -6,19 +6,17 @@ let write_file fname content =
   Bos.OS.File.write (Fpath.v fname) content |> unwrap_err_msg
 
 let base_url = Uri.of_string "http://localhost:3434/"
-
-let management_keys_url =
-  Uri.with_path base_url "/management/keys/" |> Uri.to_string
+let full_url path = Uri.with_path base_url path |> Uri.to_string
 
 let download ~output =
   let open Bos in
-  let uri = management_keys_url in
+  let uri = full_url "/management/keys/" in
   OS.Cmd.run Cmd.(v "curl" % "-s" % "-o" % output % "-X" % "GET" % uri)
   |> unwrap_err_msg
 
-let upload ~input =
+let upload ~input ~url =
   let open Bos in
-  let uri = management_keys_url in
+  let uri = full_url url in
   OS.Cmd.run
     Cmd.(
       v "curl"
@@ -56,3 +54,24 @@ let sign ~master_key ~input ~output =
   let* s = Api.encode Api.MasterSignatures.jsont master_signatures in
   let* () = write_file output s in
   Ok ()
+
+let revoke_denom ~output ~master_key ~h_denom =
+  let open Crypto in
+  let* key = read_file master_key in
+  let key = EddsaPrivateKey.of_octets key in
+  let* h_denom = B32.decode h_denom in
+  let h_denom = Bin_type.DenominationHash.of_octets h_denom in
+  let denom_revoke = Offline_sig.mk_denom_revoke ~key h_denom in
+  let* s = Api.encode Api.DenomRevocationSignature.jsont denom_revoke in
+  let* () = write_file output s in
+  Ok ()
+
+let revoke_signkey ~output ~master_key ~signkey =
+  let open Crypto in
+  let* key = read_file master_key in
+  let key = EddsaPrivateKey.of_octets key in
+  let* signkey = EddsaPublicKey.of_b32 signkey in
+  let v = Offline_sig.mk_signkey_revoke ~key signkey in
+  let* s = Api.encode Api.SignkeyRevocationSignature.jsont v in
+  let* () = write_file output s in
+  Ok ()