Merge pull request #1003 from urbit/final-app-fixes

improve robustness of :dns and :acme

app/acme.hoon

@@ -494,6 +494,10 @@
   ::
   ++  register
     ^+  this
+    ?.  =(~ reg.act)
+      ?:  =(~ next-order)
+        this
+      (validate-domain:effect 0)
     =/  =json  [%o (my [['termsOfServiceAgreed' b+&] ~])]
     ::  XX date in wire?
     ::
@@ -1156,15 +1160,25 @@
     this
   ::
       %dbug-account
-    ~&  [%private (ring:en:pem:pkcs1 key.act)]
-    ~&  [%public (pass:en:pem:pkcs1 key.act)]
     ~&  registered=reg.act
+    ~&  [%public (pass:en:pem:pkcs1 key.act)]
+    ~?  !=(~ sek.key.act)
+      [%private (ring:en:pem:pkcs1 key.act)]
     this
   ::
       %dbug-certificate
     ?~  liv  ~&(~ this)
     ~&  [%key (ring:en:pem:pkcs8 key.u.liv)]
     ~&  [%cert `wain`cer.u.liv]
+    ~&  [%expires exp.u.liv]
+    ~&  :-  %domains
+        (join ', ' (turn ~(tap in dom.u.liv) |=(a=turf (join '.' a))))
+    this
+  ::
+      %dbug-history
+    ~&  [%account-history act.hit]
+    ~&  [%config-history fig.hit]
+    ~&  [%failed-order-history fal.hit]
     this
   ::
       %init

app/dns.hoon

@@ -792,7 +792,10 @@
   ++  do-create
     |=  [him=ship for=ship try=@ud]
     ^+  this
-    =/  tar  (~(got by pen.nam) him)
+    =/  pending  (~(get by pen.nam) him)
+    ?~  pending
+      this
+    =*  tar  u.pending
     =/  =wire
       (http-wire try /create/(scot %p him)/for/(scot %p for))
     =/  pre=(unit [id=@ta tar=target])