Merge pull request #1162 from urbit/lte-acme-ack

lighter-than-eyre: fix small bugs in configuration and integration

app/acme.hoon

@@ -743,7 +743,7 @@
     ?.  ?=(^ next-order)
       this
     =/  idx  (slav %ud i.t.wire)
-    =/  valid  =(200 p.rep)
+    =/  valid  |(=(200 p.rep) =(307 p.rep))
     =/  item=(list [=turf idx=@ud valid=?])
       (skim ~(tap by u.next-order) |=([turf idx=@ud ?] =(^idx idx)))
     ?.  ?&  ?=([^ ~] item)

app/dns.hoon

@@ -1180,7 +1180,7 @@
     ::  validating a binding target
     ::
         %check-before
-      ?:  =(200 p.rep)
+      ?:  |(=(200 p.rep) =(307 p.rep))
         bind
       ?:  (gth try 10)
         (fail %check-before [(sell !>(rep)) ~])
@@ -1189,7 +1189,7 @@
     ::  validating an established binding
     ::
         %check-after
-      ?:  =(200 p.rep)
+      ?:  |(=(200 p.rep) =(307 p.rep))
         bake
       ::  no max retries, the binding has been created
       ::  XX notify after some number of failures

sys/vane/rver.hoon

@@ -119,6 +119,9 @@
       ::  ports: live servers
       ::
       ports=[insecure=@ud secure=(unit @ud)]
+      ::  outgoing-duct: to unix
+      ::
+      outgoing-duct=duct
   ==
 ::  +outstanding-connection: open http connections not fully complete:
 ::
@@ -1725,6 +1728,9 @@
       =^  moves  server-state.ax  cancel-request
       ::
       $(closed-connections (weld moves closed-connections), connections t.connections)
+    ::  save duct for future %give to unix
+    ::
+    =.  outgoing-duct.server-state.ax  duct
     ::
     :_  http-server-gate
     ;:  weld
@@ -1757,7 +1763,9 @@
         [~ http-server-gate]
       =.  secure.config  cert.http-rule.task
       :_  http-server-gate
-      [duct %give %set-config config]~
+      =*  out-duct  outgoing-duct.server-state.ax
+      ?~  out-duct  ~
+      [out-duct %give %set-config config]~
         ::  %turf: add or remove domain name
         ::
         %turf
@@ -1832,6 +1840,7 @@
          %run-app    run-app
          %run-build  run-build
          %channel    channel
+         %acme       acme-ack
       ==
   ::
   ++  run-app
@@ -1895,6 +1904,18 @@
         (on-gall-response i.t.t.wire `@ud`(slav %ud i.t.t.t.wire) p.sign)
       [moves http-server-gate]
     ==
+  ::
+  ++  acme-ack
+    ?>  ?=([%g %unto *] sign)
+    ::
+    ?>  ?=([%coup *] p.sign)
+    ?~  p.p.sign
+      ::  received a positive acknowledgment: take no action
+      ::
+      [~ http-server-gate]
+    ::  received a negative acknowledgment: XX do something
+    ::
+    [((slog u.p.p.sign) ~) http-server-gate]
   --
 ::
 ++  http-server-gate  ..$