Merge branch 'binarysign' into iface

ebin/gajudesk.app

@@ -3,7 +3,7 @@
               {registered,[]},
               {included_applications,[]},
               {applications,[stdlib,kernel,sasl,ssl]},
-              {vsn,"0.7.0"},
+              {vsn,"0.8.0"},
               {modules,[gajudesk,gd_con,gd_grids,gd_gui,gd_jt,
                         gd_sophia_editor,gd_sup,gd_v,gd_v_devman,gd_v_netman,
                         gd_v_wallman]},

src/gajudesk.erl

@@ -3,7 +3,7 @@
 %%% @end
 
 -module(gajudesk).
--vsn("0.7.0").
+-vsn("0.8.0").
 -behavior(application).
 -author("Craig Everett <craigeverett@qpq.swiss>").
 -copyright("QPQ AG <info@qpq.swiss>").

src/gd_con.erl

@@ -3,7 +3,7 @@
 %%% @end
 
 -module(gd_con).
--vsn("0.7.0").
+-vsn("0.8.0").
 -author("Craig Everett <craigeverett@qpq.swiss>").
 -copyright("QPQ AG <info@qpq.swiss>").
 -license("GPL-3.0-or-later").
@@ -14,7 +14,8 @@
          selected/1, network/0,
          password/2,
          refresh/0,
-         nonce/1, spend/1, chain/1, grids/1, sign_mess/1, sign_tx/1, sign_call/3, dry_run/2,
+         nonce/1, spend/1, chain/1, grids/1,
+         sign_mess/1, sign_binary/1, sign_tx/1, sign_call/3, dry_run/2,
          deploy/3,
          make_key/6, recover_key/1, mnemonic/1, rename_key/2, drop_key/1, list_keys/0,
          add_node/1, set_sole_node/1]).
@@ -172,6 +173,13 @@ sign_mess(Request) ->
     gen_server:cast(?MODULE, {sign_mess, Request}).
 
 
+-spec sign_binary(Request) -> ok
+    when Request :: map().
+
+sign_binary(Request) ->
+    gen_server:cast(?MODULE, {sign_binary, Request}).
+
+
 -spec sign_tx(Request) -> ok
     when Request :: map().
 
@@ -431,6 +439,9 @@ handle_cast({grids, String}, State) ->
 handle_cast({sign_mess, Request}, State) ->
     ok = do_sign_mess(Request, State),
     {noreply, State};
+handle_cast({sign_binary, Request}, State) ->
+    ok = do_sign_binary(Request, State),
+    {noreply, State};
 handle_cast({sign_tx, Request}, State) ->
     ok = do_sign_tx(Request, State),
     {noreply, State};
@@ -679,23 +690,23 @@ do_grids_sig(JSON, URL) ->
 
 do_grids_sig2(Request = #{"grids" := 1, "type" := "message"}) ->
     gd_gui:grids_mess_sig(Request);
+do_grids_sig2(Request = #{"grids" := 1, "type" := "binary"}) ->
+    gd_gui:grids_mess_sig(Request);
 do_grids_sig2(Request = #{"grids" := 1, "type" := "tx"}) ->
     gd_gui:grids_mess_sig(Request);
 do_grids_sig2(WTF) ->
     gd_gui:trouble({trash, WTF}).
 
 
-do_sign_mess(Request = #{"public_id" := ID, "payload" := Message},
-             #s{wallet = #wallet{keys = Keys}}) ->
+do_sign_mess(Request = #{"public_id" := ID}, #s{wallet = #wallet{keys = Keys}}) ->
     case lists:keyfind(ID, #key.id, Keys) of
-        #key{pair = #{secret := SecKey}} ->
-            Sig = base64:encode(hz:sign_message(list_to_binary(Message), SecKey)),
-            do_sign_mess2(Request#{"signature" => Sig});
-        false ->
-            gd_gui:trouble({bad_key, ID})
+        #key{pair = #{secret := SecKey}} -> do_sign_mess2(Request, SecKey);
+        false                            -> gd_gui:trouble({bad_key, ID})
     end.
 
-do_sign_mess2(Request = #{"url" := URL}) ->
+do_sign_mess2(Request = #{"payload" := Message}, SecKey) ->
+    Sig = base64:encode(hz:sign_message(list_to_binary(Message), SecKey)),
+    SignedRequest = maps:put("signature", Sig, Request),
     ResponseKeys =
         ["grids",
          "chain",
@@ -704,11 +715,31 @@ do_sign_mess2(Request = #{"url" := URL}) ->
          "public_id",
          "payload",
          "signature"],
-    Response = zj:encode(maps:with(ResponseKeys, Request)),
-    case httpc:request(post, {URL, [], "application/json", Response}, [], []) of
-        {ok, {{_, 200, _}, _, JSON}}    -> log(info, "Signature posted: ~p", [JSON]);
-        {error, socket_closed_remotely} -> tell("Yep, closed remotely.");
-        Error                           -> gd_gui:trouble(Error)
+    post_grids_response(ResponseKeys, SignedRequest).
+
+
+do_sign_binary(Request = #{"public_id" := ID}, #s{wallet = #wallet{keys = Keys}}) ->
+    case lists:keyfind(ID, #key.id, Keys) of
+        #key{pair = #{secret := SecKey}} -> do_sign_binary2(Request, SecKey);
+        false                            -> gd_gui:trouble({bad_key, ID})
+    end.
+
+do_sign_binary2(Request = #{"payload" := Payload}, SecKey) ->
+    case base64_decode(Payload) of
+        {ok, Binary} ->
+            Sig = base64:encode(hz:sign_binary(Binary, SecKey)),
+            SignedRequest = maps:put("signature", Sig, Request),
+            ResponseKeys =
+                ["grids",
+                 "chain",
+                 "network_id",
+                 "type",
+                 "public_id",
+                 "payload",
+                 "signature"],
+            post_grids_response(ResponseKeys, SignedRequest);
+        Error ->
+            gd_gui:trouble(Error)
     end.
 
 
@@ -719,20 +750,22 @@ do_sign_tx(Request = #{"public_id" := ID, "payload" := CallData, "network_id" :=
         #key{pair = #{secret := SecKey}} ->
             BinaryTX = list_to_binary(CallData),
             SignedTX = hz:sign_tx(BinaryTX, SecKey, BinNID),
-            do_sign_tx2(Request#{"signed" => true, "payload" := SignedTX});
+            SignedRequest = Request#{"signed" => true, "payload" := SignedTX},
+            ResponseKeys =
+                ["grids",
+                 "chain",
+                 "network_id",
+                 "type",
+                 "public_id",
+                 "payload",
+                 "signed"],
+            post_grids_response(ResponseKeys, SignedRequest);
         false ->
             gd_gui:trouble({bad_key, ID})
     end.
 
-do_sign_tx2(Request = #{"url" := URL}) ->
-    ResponseKeys =
-        ["grids",
-         "chain",
-         "network_id",
-         "type",
-         "public_id",
-         "payload",
-         "signed"],
+
+post_grids_response(ResponseKeys, Request = #{"url" := URL}) ->
     Response = zj:encode(maps:with(ResponseKeys, Request)),
     case httpc:request(post, {URL, [], "application/json", Response}, [], []) of
         {ok, {{_, 200, _}, _, JSON}}    -> log(info, "Signed TX posted: ~p", [JSON]);

src/gd_grids.erl

@@ -37,7 +37,7 @@
 %%% @end
 
 -module(gd_grids).
--vsn("0.7.0").
+-vsn("0.8.0").
 -author("Craig Everett <craigeverett@qpq.swiss>").
 -copyright("QPQ AG <info@qpq.swiss>").
 -license("GPL-3.0-or-later").

src/gd_gui.erl

@@ -3,7 +3,7 @@
 %%% @end
 
 -module(gd_gui).
--vsn("0.7.0").
+-vsn("0.8.0").
 -author("Craig Everett <craigeverett@qpq.swiss>").
 -copyright("QPQ AG <info@qpq.swiss>").
 -license("GPL-3.0-or-later").
@@ -1060,6 +1060,48 @@ do_grids_mess_sig2(Request = #{"grids"     := 1,
             ?wxID_CANCEL -> ok
         end,
     wxDialog:destroy(Dialog);
+do_grids_mess_sig2(Request = #{"grids"     := 1,
+                               "type"      := "binary",
+                               "url"       := URL,
+                               "public_id" := ID,
+                               "payload"   := Base64},
+                   #s{frame = Frame, j = J}) ->
+    Dialog = wxDialog:new(Frame, ?wxID_ANY, J("Binary Data Signature Request")),
+    Sizer = wxBoxSizer:new(?wxVERTICAL),
+    Instruction =
+        J("The server at the URL below is requesting you sign the following binary data."),
+    InstTx = wxStaticText:new(Dialog, ?wxID_ANY, Instruction),
+    AcctSz = wxStaticBoxSizer:new(?wxVERTICAL, Dialog, [{label, J("Signature Account")}]),
+    AcctTx = wxStaticText:new(Dialog, ?wxID_ANY, ID),
+    _ = wxStaticBoxSizer:add(AcctSz, AcctTx, zxw:flags(wide)),
+    URL_Label = J("Originating URL"),
+    URL_Sz = wxStaticBoxSizer:new(?wxVERTICAL, Dialog, [{label, URL_Label}]),
+    URL_Tx = wxStaticText:new(Dialog, ?wxID_ANY, URL),
+    _ = wxStaticBoxSizer:add(URL_Sz, URL_Tx, zxw:flags(wide)),
+    MessSz = wxStaticBoxSizer:new(?wxVERTICAL, Dialog, [{label, J("Base-64 Data")}]),
+    MessStyle = ?wxTE_MULTILINE bor ?wxTE_READONLY,
+    MessTx = wxTextCtrl:new(Dialog, ?wxID_ANY, [{value, Base64}, {style, MessStyle}]),
+    _ = wxStaticBoxSizer:add(MessSz, MessTx, zxw:flags(wide)),
+    ButtSz = wxBoxSizer:new(?wxHORIZONTAL),
+    Affirm = wxButton:new(Dialog, ?wxID_OK),
+    Cancel = wxButton:new(Dialog, ?wxID_CANCEL),
+    _ = wxBoxSizer:add(ButtSz, Affirm, zxw:flags(wide)),
+    _ = wxBoxSizer:add(ButtSz, Cancel, zxw:flags(wide)),
+    _ = wxBoxSizer:add(Sizer, InstTx, zxw:flags(wide)),
+    _ = wxBoxSizer:add(Sizer, AcctSz, zxw:flags(wide)),
+    _ = wxBoxSizer:add(Sizer, URL_Sz, zxw:flags(wide)),
+    _ = wxBoxSizer:add(Sizer, MessSz, zxw:flags(wide)),
+    _ = wxBoxSizer:add(Sizer, ButtSz, zxw:flags(base)),
+    ok = wxDialog:setSizer(Dialog, Sizer),
+    ok = wxDialog:setSize(Dialog, {500, 500}),
+    ok = wxBoxSizer:layout(Sizer),
+    ok = wxFrame:center(Dialog),
+    ok =
+        case wxDialog:showModal(Dialog) of
+            ?wxID_OK     -> gd_con:sign_binary(Request);
+            ?wxID_CANCEL -> ok
+        end,
+    wxDialog:destroy(Dialog);
 do_grids_mess_sig2(Request = #{"grids"      := 1,
                                "type"       := "tx",
                                "url"        := URL,

src/gd_jt.erl

@@ -15,7 +15,7 @@
 %%% translation library is retained).
 
 -module(gd_jt).
--vsn("0.7.0").
+-vsn("0.8.0").
 -export([read_translations/1, j/2, oneshot_j/2]).
 
 

src/gd_sophia_editor.erl

@@ -1,5 +1,5 @@
 -module(gd_sophia_editor).
--vsn("0.7.0").
+-vsn("0.8.0").
 -export([new/1, update/2,
          get_text/1, set_text/2]).
 

src/gd_sup.erl

@@ -12,7 +12,7 @@
 %%% @end
 
 -module(gd_sup).
--vsn("0.7.0").
+-vsn("0.8.0").
 -behaviour(supervisor).
 -author("Craig Everett <craigeverett@qpq.swiss>").
 -copyright("QPQ AG <info@qpq.swiss>").

src/gd_v.erl

@@ -1,5 +1,5 @@
 -module(gd_v).
--vsn("0.7.0").
+-vsn("0.8.0").
 -author("Craig Everett <craigeverett@qpq.swiss>").
 -copyright("QPQ AG <info@qpq.swiss>").
 -license("GPL-3.0-or-later").

src/gd_v_devman.erl

@@ -1,5 +1,5 @@
 -module(gd_v_devman).
--vsn("0.7.0").
+-vsn("0.8.0").
 -author("Craig Everett <craigeverett@qpq.swiss>").
 -copyright("QPQ AG <info@qpq.swiss>").
 -license("GPL-3.0-or-later").

src/gd_v_netman.erl

@@ -1,5 +1,5 @@
 -module(gd_v_netman).
--vsn("0.7.0").
+-vsn("0.8.0").
 -author("Craig Everett <zxq9@zxq9.com>").
 -copyright("QPQ AG <info@qpq.swiss>").
 -license("GPL-3.0-or-later").

src/gd_v_wallman.erl

@@ -13,7 +13,7 @@
 
 
 -module(gd_v_wallman).
--vsn("0.7.0").
+-vsn("0.8.0").
 -author("Craig Everett <zxq9@zxq9.com>").
 -copyright("QPQ AG <info@qpq.swiss>").
 -license("GPL-3.0-or-later").
@@ -318,7 +318,7 @@ do_open2(Selected, State = #s{wallets = Wallets}) ->
 
 do_open3(Path, State = #s{frame = Frame, j = J}) ->
     Label = J("Password"),
-    case zxw_text_modal:show(Frame, Label, [{password, true}]) of
+    case zxw_modal_text:show(Frame, Label, [{password, true}]) of
         {ok, ""} ->
             ensure_shown(Frame);
         {ok, Phrase} ->

zomp.meta

@@ -2,10 +2,10 @@
 {type,gui}.
 {modules,[]}.
 {prefix,"gd"}.
-{author,"Craig Everett"}.
 {desc,"A desktop client for the Gajumaru network of blockchain networks"}.
-{package_id,{"otpr","gajudesk",{0,7,0}}}.
-{deps,[{"otpr","hakuzaru",{0,6,1}},
+{author,"Craig Everett"}.
+{package_id,{"otpr","gajudesk",{0,8,0}}}.
+{deps,[{"otpr","hakuzaru",{0,7,0}},
        {"otpr","eblake2",{1,0,1}},
        {"otpr","base58",{0,1,1}},
        {"otpr","gmserialization",{0,1,3}},