tools/offline_impl.ml

@@ -342,7 +342,7 @@ let wire_fee ~output ~master_key ~wire_method ~fee_start ~fee_end ~closing_fee
    hash over json, hash over string option?
 
    ~conversion_url ~credit_restrictions ~debit_restrictions *)
-let wire ~output ~master_key ~payto_uri ~bank_label ~priority =
+let enable_wire ~output ~master_key ~payto_uri ~bank_label ~priority =
   let* key = read_master_key_file master_key in
   let ns = Mtime_clock.now_ns () in
   let validity_start = Timestamp.of_s @@ Int64.unsigned_div ns 1_000_000_000L in
@@ -394,6 +394,20 @@ let wire ~output ~master_key ~payto_uri ~bank_label ~priority =
   let* () = write_file output s in
   Ok ()
 
+let disable_wire ~output ~master_key ~payto_uri =
+  let* key = read_master_key_file master_key in
+  let ns = Mtime_clock.now_ns () in
+  let validity_end = Timestamp.of_s @@ Int64.unsigned_div ns 1_000_000_000L in
+  let h_wire = Hash.FullPaytoHash.hash payto_uri in
+  let master_sig_del =
+    let open Signatures.MasterDelWire in
+    signf (EddsaSignature.sign ~key) { end_date= validity_end; h_wire }
+  in
+  let v = Api.WireTeardownMessage.{ payto_uri; master_sig_del; validity_end } in
+  let* s = Api.encode Api.WireTeardownMessage.jsont v in
+  let* () = write_file output s in
+  Ok ()
+
 let drain ~output ~master_key ~debit_account_section ~credit_payto_uri ~wtid
     ~date ~amount =
   let* key = read_master_key_file master_key in