ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-11 08:55:23 +03:00
Code Issues Packages Projects Releases Wiki Activity

sends :hall notification on whole-order retry

Browse Source
This commit is contained in:
Joe Bryan 2019-01-14 17:58:18 -05:00
parent 9cdd3ceb3c
commit 41b7bba84a
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
app/acme.hoon
View File

@ -237,6 +237,9 @@
$: :: dom: domains
::
dom=(set turf)
:: try: attempt number
::
try=@ud
:: sas: order state
::
sas=$@(%wake [%rest wen=@da])
@ -532,7 +535,12 @@
:: XX print a message, shorter timer
:: XX backoff, count retries statefully in order, how long, etc.
::
=. ..this (retry:effect try %new-order / ~m10)
=/ try=@ud ?~(rod 1 try.u.rod)
=/ lul=@dr (max ~h1 (backoff try))
=/ msg=cord
(cat 3 'retrying certificate request in ' (scot %dr lul))
=. ..this (emit (notify msg ~))
=. ..this (retry:effect try %new-order / lul)
:: domains might already be validated
::
=. ..this (queue-next-order & ?>(?=(^ rod) dom.u.rod))
@ -804,7 +812,7 @@
::
=/ csr=@ux +:(en:der:pkcs10 cey ~(tap in dom))
=/ dor=order
[dom sas=%wake exp.bod ego (need fin.bod) cey csr [aut.bod ~ ~]]
[dom try=1 sas=%wake exp.bod ego (need fin.bod) cey csr [aut.bod ~ ~]]
get-authz:effect(rod `dor, next-order ~)
:: +finalize-order: order finalized, poll for certificate
::
@ -962,6 +970,7 @@
(retry:effect try %test-trial / (min ~m10 (backoff try)))
:: XX next steps, check connectivity, etc. ??
::
=< cancel-order:effect
=/ msg=cord
%+ rap 3
:~ 'unable to retrieve self-hosted domain validation token '