Reorder to avoid timeout
This commit is contained in:
parent
d9cd20a41f
commit
428f7e0565
10
zx
10
zx
@ -883,6 +883,11 @@ reject(PackageID = {Realm, _, _}) ->
|
|||||||
|
|
||||||
resign(PackageString) ->
|
resign(PackageString) ->
|
||||||
PackageID = {Realm, _, _} = package_id(PackageString),
|
PackageID = {Realm, _, _} = package_id(PackageString),
|
||||||
|
RealmConf = load_realm_conf(Realm),
|
||||||
|
{package_keys, PackageKeys} = lists:keyfind(package_keys, 1, RealmConf),
|
||||||
|
KeySelection = [{K, {R, K}} || {R, K} <- [element(1, K) || K <- PackageKeys]],
|
||||||
|
PackageKeyID = select(KeySelection),
|
||||||
|
{ok, PackageKey} = loadkey(private, PackageKeyID),
|
||||||
Socket = connect_auth_or_die(Realm),
|
Socket = connect_auth_or_die(Realm),
|
||||||
ok = send(Socket, {resign, PackageID}),
|
ok = send(Socket, {resign, PackageID}),
|
||||||
{ok, ZrpBin} = recv_or_die(Socket),
|
{ok, ZrpBin} = recv_or_die(Socket),
|
||||||
@ -895,11 +900,6 @@ resign(PackageString) ->
|
|||||||
TgzFile = PackageString ++ ".tgz",
|
TgzFile = PackageString ++ ".tgz",
|
||||||
{TgzFile, TgzData} = lists:keyfind(TgzFile, 1, Files),
|
{TgzFile, TgzData} = lists:keyfind(TgzFile, 1, Files),
|
||||||
ok = verify(TgzData, Signature, PubKey),
|
ok = verify(TgzData, Signature, PubKey),
|
||||||
RealmConf = load_realm_conf(Realm),
|
|
||||||
{package_keys, PackageKeys} = lists:keyfind(package_keys, 1, RealmConf),
|
|
||||||
KeySelection = [{K, {R, K}} || {R, K} <- [element(1, K) || K <- PackageKeys]],
|
|
||||||
PackageKeyID = select(KeySelection),
|
|
||||||
{ok, PackageKey} = loadkey(private, PackageKeyID),
|
|
||||||
ReSignature = public_key:sign(TgzData, sha512, PackageKey),
|
ReSignature = public_key:sign(TgzData, sha512, PackageKey),
|
||||||
FinalMeta = maps:put(sig, {PackageKeyID, ReSignature}, Meta),
|
FinalMeta = maps:put(sig, {PackageKeyID, ReSignature}, Meta),
|
||||||
NewMetaBin = term_to_binary(FinalMeta),
|
NewMetaBin = term_to_binary(FinalMeta),
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user