improves debuggability of :dns-* apps

pkg/arvo/app/dns-bind.hoon

@@ -16,6 +16,7 @@
       $%  [%dns-authority =authority]
           [%dns-bind =ship =target]
           [%handle-http-request =inbound-request:eyre]
+          [%noun noun=*]
       ==
     +$  out-poke-data
       $%  [%dns-bind =ship =target]
@@ -612,6 +613,14 @@
       ::  XX retryable?
       ::
       ?.  &(?=(^ rep) =(200 p.u.rep))
+        ?:  &(?=(^ rep) =(401 p.u.rep))
+          ::  XX automate
+          ::
+          ~&  %authentication-failure
+          ~&  (skim q.u.rep |=((pair @t @t) ?=(%www-authenticate p)))
+          (pure:m ~)
+        ::
+        ~&  [%create-bind-failed rep]
         (pure:m ~)
       ::
       =*  httr  u.rep
@@ -699,6 +708,23 @@
   ?.  (team:title [our src]:bowl)
     ~|  %bind-yoself  !!
   ?-  -.in-poke-data
+      %noun
+    ?:  ?=(%debug noun.in-poke-data)
+      ~&  bowl
+      ::  XX redact secrets
+      ::
+      ~&  state
+      (pure:m state)
+    ::
+    ::  XX heavy-handed, will duplicate subscriptions
+    ::  should track bones
+    ::
+    ?:  ?=(%resubscribe noun.in-poke-data)
+      ;<  ~  bind:m  (peer-app:stdio collector-app /requests)
+      (pure:m state)
+    ::
+    ~&  %poke-unknown
+    (pure:m state)
   ::
       %dns-authority
     ?.  =(~ nem.state)

pkg/arvo/app/dns-collector.hoon

@@ -8,10 +8,14 @@
           requested=(map ship address:dns)
           completed=(map ship binding:dns)
       ==
-    +$  peek-data  [%noun (list (pair ship address:dns))]
+    +$  peek-data
+      $%  [%requested (list (pair ship address:dns))]
+          [%completed (list (pair ship binding:dns))]
+      ==
     +$  in-poke-data
       $%  [%dns-address =address:dns]
           [%dns-complete =ship =binding:dns]
+          [%noun noun=*]
       ==
     +$  out-poke-data
       $%  [%drum-unlink =dock]
@@ -78,6 +82,15 @@
   ^-  (quip move _this)
   =<  abet
   ?-  -.in-poke-data
+      %noun
+    ?:  ?=(%debug noun.in-poke-data)
+      ~&  bowl
+      ~&  state
+      this
+    ::
+    ~&  %poke-unknown
+    this
+  ::
       %dns-address
     =*  who  src.bowl
     =*  adr  address.in-poke-data
@@ -124,10 +137,12 @@
 ++  peek
   |=  =path
   ^-  (unit (unit peek-data))
-  ~&  path
   ?+  path  [~ ~]
       [%x %requested ~]
-    [~ ~ %noun ~(tap by requested.state)]
+    [~ ~ %requested ~(tap by requested.state)]
+  ::
+      [%x %completed ~]
+    [~ ~ %completed ~(tap by completed.state)]
   ==
 ::
 ++  peer

pkg/arvo/app/dns.hoon

@@ -211,6 +211,9 @@
       ~|  [%dns-collector-reserved-address if.adr]  !!
     ;<  requested=?  bind:m  (request-by-ip if.adr)
     ::  XX save failure?
+    ::
+    ~?  =(requested.state (some address.in-poke-data))
+      %re-requesting
     =?  requested.state   requested
       (some address.in-poke-data)
     (pure:m state)