QPQ-AG/GajuDesk
9
0
Fork 0
Code Issues 3 Pull Requests Actions Packages Projects Releases Wiki Activity

Minor

Browse Source
This commit is contained in:
Craig Everett 2024-11-13 23:28:46 +09:00
parent 9e514f4c9d
commit f05c86894d
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/gmc_con.erl
View File

@ -553,7 +553,14 @@ do_grids2({{sign, http}, URL}) ->
ok = log(info, "Making request to ~p", [URL]), ok = log(info, "Making request to ~p", [URL]),
case httpc:request(URL) of case httpc:request(URL) of
{ok, {{_, 200, _}, _, JSON}} -> do_grids_sig(JSON, URL); {ok, {{_, 200, _}, _, JSON}} -> do_grids_sig(JSON, URL);
{error, socket_closed_remotely} -> tell("Yep, closed remotely."); {error, socket_closed_remotely} -> log(info, "Socket closed remotely.");
Error -> gmc_gui:trouble(Error)
end;
do_grids2({{sign, https}, URL}) ->
ok = log(info, "Making request to ~p", [URL]),
case httpc:request(URL) of
{ok, {{_, 200, _}, _, JSON}} -> do_grids_sig(JSON, URL);
{error, socket_closed_remotely} -> log(info, "Socket closed remotely.");
Error -> gmc_gui:trouble(Error) Error -> gmc_gui:trouble(Error)
end; end;
do_grids2(Instruction) -> do_grids2(Instruction) ->
@ -656,7 +663,7 @@ do_sign_tx2(Request = #{"url" := URL}) ->
Response = zj:encode(maps:with(ResponseKeys, Request)), Response = zj:encode(maps:with(ResponseKeys, Request)),
case httpc:request(post, {URL, [], "application/json", Response}, [], []) of case httpc:request(post, {URL, [], "application/json", Response}, [], []) of
{ok, {{_, 200, _}, _, JSON}} -> log(info, "Signed TX posted: ~p", [JSON]); {ok, {{_, 200, _}, _, JSON}} -> log(info, "Signed TX posted: ~p", [JSON]);
{error, socket_closed_remotely} -> tell("Closed remotely."); {error, socket_closed_remotely} -> log(info, "Socket closed remotely.");
Error -> gmc_gui:trouble(Error) Error -> gmc_gui:trouble(Error)
end. end.