btc-provider: add jet hints
`this(state !<(versioned-state old-state))
::
++ on-poke
+ ~/ %on-poke
|= [=mark =vase]
^- (quip card _this)
|^
%btc-provider-command
?> (team:title our.bowl src.bowl)
(handle-command !<(command vase))
+ ::
%btc-provider-action
(handle-action !<(action vase))
==
--
::
++ on-watch
+ ~/ %on-watch
|= pax=path
^- (quip card _this)
:: checking provider permissions before trying to subscribe
this(clients.host-info (~(put in clients.host-info) src.bowl))
::
++ on-arvo
+ ~/ %on-arvo
|= [=wire =sign-arvo]
|^
^- (quip card _this)
--
::
++ on-peek
+ ~/ %on-peek
|= pax=path
^- (unit (unit cage))
?+ pax (on-peek:def pax)
^- card
=+ c=[%give %fact ~[/clients] %btc-provider-update !>(update)]
?: ?=(%.y -.update)
-:: ~& >> "prov. update: {<p.update>}"
c
~& >> "prov. err: {<p.update>}"
c
::
++ is-whitelisted
- |= user=ship ^- ?
+ ~/ %is-whitelisted
+ |= user=ship
+ ^- ?
|^
?| public.whitelist
=(our.bowl user)
--
::
++ is-client
- |= user=ship ^- ?
+ |= user=ship
+ ^- ?
(~(has in clients.host-info) user)
::
++ start-ping-timer
- |= interval=@dr ^- card
+ |= interval=@dr
+ ^- card
[%pass /ping-timer %arvo %b %wait (add now.bowl interval)]
::
++ do-ping
