add |release-ships for manual control

app/hood.hoon

@@ -169,6 +169,7 @@
 ++  poke-womb-recycle         (wrap poke-recycle):from-womb
 ++  poke-womb-manage-old-key  (wrap poke-manage-old-key):from-womb
 ++  poke-womb-release         (wrap poke-release):from-womb
+++  poke-womb-release-ships   (wrap poke-release-ships):from-womb
 ++  poke-womb-reinvite        (wrap poke-reinvite):from-womb
 ++  poke-womb-replay-log      (wrap poke-replay-log):from-womb
 ++  poke-write-sec-atom       (wrap poke-sec-atom):from-write

gen/hood/release-ships.hoon

@@ -0,0 +1,14 @@
+::
+::::  /hoon/release/hood/gen
+  ::
+/?    310
+::
+::::
+  !:
+:-  %say
+|=  $:  {now/@da eny/@uvI bec/beak}
+        {who/(list ship) $~}
+    ==
+:-  %womb-release-ships
+~?  =(~ who)  %no-ships-released
+who

lib/womb.hoon

@@ -139,6 +139,7 @@
 ++  transaction                                         ::  logged poke
   $%  {$report her/@p wyl/will}
       {$release gal/@ud sta/@ud}
+      {$release-ships (list ship)}
       {$claim aut/passcode her/@p}
       {$recycle who/mail him/knot tik/knot}
       {$invite tid/cord ref/reference inv/invite}
@@ -608,6 +609,7 @@
       $release   (teba (poke-release +.pok.i.a))
       $recycle   (teba (poke-recycle +.pok.i.a))
       $reinvite  (teba (poke-reinvite +.pok.i.a))
+      $release-ships  (teba (poke-release-ships +.pok.i.a))
     ==
   ==
 ::
@@ -779,6 +781,19 @@
   ?^  a  ~|(impure-planet+[her a] !!)
   (some %| who)
 ::
+++  poke-release-ships                                ::  release specific
+  |=  a/(list ship)
+  =<  abet  ^+  +>
+  =.  log-transaction  (log-transaction %release-ships +<)
+  ?>  =(our src)                                      ::  privileged
+  %+  roll  a
+  =+  [who=*@p res=+>.$]
+  |.  ^+  res
+  ?+  (clan who)  ~|(bad-size+(clan who) !!)
+    $king  (release-star who res)
+    $czar  (release-galaxy who res)
+  ==
+::
 ++  poke-release                                      ::  release to subdivide
   |=  {gal/@ud sta/@ud}                               ::
   =<  abet  ^+  +>