sets :acme timers by relative duration
::
:: XX backoff, count retries, how long, etc.
::
- (retry:effect(rod ~, pen `dom.u.rod) /new-order (add now.bow ~m10))
+ (retry:effect(rod ~, pen `dom.u.rod) /new-order ~m10)
:: +finalize-order: finalize completed order
::
++ finalize-order
:: +retry: retry effect after timeout
::
++ retry
- |= [wir=wire wen=@da]
- :: XX validate wire and date
+ |= [=wire lull=@dr]
+ :: XX validate wire
::
- (emit %wait [%acme wir] wen)
+ (emit %wait [%acme wire] (add now.bow lull))
--
:: |event: accept event, emit next effect(s)
::
:: XX count retries? backoff?
::
~& %retrying
- (retry:effect /directory (add now.bow ~s10))
+ (retry:effect /directory ~s10)
:: XX never happened yet, wat do?
::
this
:: XX count retries? backoff?
::
~& %retrying
- (retry:effect /register (add now.bow ~s10))
+ (retry:effect /register ~s10)
:: XX retry service failures?
::
this
:: XX count retries? backoff?
::
~& %retrying
- (retry:effect /new-order (add now.bow ~s10))
+ (retry:effect /new-order ~s10)
:: XX retry service failures?
::
this
::
~& [%finalize-order-fail wir rep]
~& %retrying
- (retry:effect /finalize-order (add now.bow ~s10))
+ (retry:effect /finalize-order ~s10)
:: check-order regardless of status code
::
check-order:effect
:: XX count retries? backoff?
::
~& %retrying
- (retry:effect /check-order (add now.bow ~s10))
+ (retry:effect /check-order ~s10)
:: XX retry service failures?
::
this
~& %retrying
:: will re-attempt certificate download per order status
::
- (retry:effect /check-order (add now.bow ~s10))
+ (retry:effect /check-order ~s10)
:: XX retry service failures?
::
this
:: set live config, install certificate, set renewal timer
::
=< install:effect
- (retry:effect(liv `fig, rod ~) /renew (add now.bow ~d60))
+ (retry:effect(liv `fig, rod ~) /renew ~d60)
:: +get-authz: accept ACME service authorization object
::
++ get-authz
:: XX count retries? backoff?
::
~& %retrying
- (retry:effect /get-authz (add now.bow ~s10))
+ (retry:effect /get-authz ~s10)
:: XX retry service failures?
::
this
:: retry timeouts
:: XX count retries, backoff
::
- (retry:effect /test-trial (add now.bow ~s10))
+ (retry:effect /test-trial ~s10)
this
?> ?=(^ rod)
?> ?=(^ active.aut.u.rod)
:: XX count retries? backoff?
::
~& %finalize-trial-retrying
- (retry:effect /finalize-trial (add now.bow ~s10))
+ (retry:effect /finalize-trial ~s10)
:: XX get challenge, confirm urn:ietf:params:acme:error:connection
::
:: =/ err=error:body
:: but we're preserving the pattern for future flexibility.
::
++ init
- =< (retry:effect /directory +(now.bow))
+ =< (retry:effect /directory `@dr`1)
%= this
act [(rekey eny.bow) ~]
cey (rekey (mix eny.bow (shaz now.bow)))
