diff --git a/app/btc-node-hook.hoon b/app/btc-node-hook.hoon index 67a84c726f..0ac70daa61 100644 --- a/app/btc-node-hook.hoon +++ b/app/btc-node-hook.hoon @@ -1,8 +1,8 @@ :: btc-node-hook: send JSON rpc requests to bitcoin full node :: and poke the responses into the btc-node-store :: -/- *btc-node-hook, *btc-node-store, sole -/+ default-agent, sole, base64, lib=btc-node-json, verb +/- *btc-node-hook, *btc-node-store +/+ default-agent, base64, lib=btc-node-json, verb, dbug :: => |% +$ card card:agent:gall @@ -14,6 +14,7 @@ $: user=@t pass=@t endpoint=@t + watched-calls=(set term) == -- :: @@ -21,6 +22,7 @@ =* state - :: Main :: +%- agent:dbug %+ verb | ^- agent:gall =< |_ =bowl:gall @@ -31,7 +33,7 @@ :: ++ on-init ^- (quip card _this) - [~ this(user '', pass '', endpoint '')] + [~ this(user '', pass '', endpoint '', watched-calls *(set term))] :: ++ on-save !>(state) ++ on-load @@ -41,6 +43,7 @@ ++ on-poke |= [=mark =vase] ^- (quip card _this) + ?> (team:title our.bowl src.bowl) =^ cards state ?+ mark (on-poke:def mark vase) %btc-node-hook-action @@ -51,7 +54,14 @@ == [cards this] :: - ++ on-watch on-watch:def + ++ on-watch + |= pax=path + ^- (quip card _this) + :: We restrict access to the local ship and its moons, + :: because we handle permissioning at higher-level agents. + :: + ?> (team:title our.bowl src.bowl) + `this ++ on-leave on-leave:def ++ on-peek on-peek:def ++ on-agent on-agent:def diff --git a/app/btc-node-store.hoon b/app/btc-node-store.hoon index 6488538f72..77f83e71b0 100644 --- a/app/btc-node-store.hoon +++ b/app/btc-node-store.hoon @@ -53,6 +53,7 @@ |= [=mark =vase] ^- (quip card _this) |^ + ?> (team:title our.bowl src.bowl) ?+ mark (on-poke:def mark vase) %btc-node-store-action (store-action !<(btc-node-store-action vase))