ames: resend %cork after a naxplanation in one day

This commit is contained in:
yosoyubik 2022-07-06 10:52:19 +02:00
parent 850de0bfd3
commit 76919ce07c

View File

@ -2713,12 +2713,12 @@
=. snd.peer-state =. snd.peer-state
(~(put by snd.peer-state) target-bone message-pump-state) (~(put by snd.peer-state) target-bone message-pump-state)
:: if we get a naxplanation for a %cork, the publisher is behind :: if we get a naxplanation for a %cork, the publisher is behind
:: receiving the OTA, so we set up a timer to retry in one hour. :: receiving the OTA, so we set up a timer to retry in one day.
:: ::
%- %+ trace msg.veb %- %+ trace msg.veb
|.("old publisher, resend %cork on bone={<target-bone>} in ~h1") |.("old publisher, resend %cork on bone={<target-bone>} in ~d1")
=/ =wire (make-pump-timer-wire her.channel target-bone) =/ =wire (make-pump-timer-wire her.channel target-bone)
(emit [/ames-recork]~ %pass wire %b %wait `@da`(add now ~h1)) (emit [/ames-recork]~ %pass wire %b %wait `@da`(add now ~d1))
:: +on-sink-plea: handle request message received by |message-sink :: +on-sink-plea: handle request message received by |message-sink
:: ::
++ on-sink-plea ++ on-sink-plea