Add sekrit code to web shell.

arvo/ames.hoon

@@ -1670,6 +1670,8 @@
       =+  luw=(rick mar our law.saf.u.gys)
       ?.  &(?=(^ muc) ?=(^ luw))  ~
       [~ `buck`[u.muc u.luw]]
+    ?:  ?=([%code ~] tyl)
+      [~ (end 6 1 (shaf %code (shax sec:ex:q:sen:u.gys)))]
     ?:  ?=([%tick @ ~] tyl)
       =+  hur=(slaw %p i.t.tyl)
       ?~  hur  ~

arvo/eyre.hoon

@@ -911,6 +911,11 @@
       ?:  ?=(| -.mud)  +>.$
       +>.$(cah.sef (~(put by cah.sef) p.u.q.ank p.mud))
     ::
+    ++  lass                                            ::  load secret
+      ^-  @ta
+      %^  rsh  3  1
+      (scot %p (,@ (need (sky %a (scot %p our) %code (scot %da now) ~))))
+    ::
     ++  lend                                            ::  load directory node
       |=  pax=path
       ^-  arch
@@ -1413,10 +1418,8 @@
           [~ pip(pez [%fin %ham ham])]
         ::
             %log
-          ?.  =(%foobar r.som.pip)
-            ~&  [%login-bad som.pip]
+          ?.  =(lass r.som.pip)
             $(som.pip [%lon [~ p.som.pip] q.som.pip])
-          ~&  [%login-good som.pip]
           %=  $
             som.pip  [%red q.som.pip]
             aut.ced  (~(put ju aut.ced) %$ (scot %p p.som.pip))

arvo/ford.hoon

@@ -54,7 +54,6 @@
   ++  poll                                              ::  current subchange
     |+  tea=path                                        ::
     _@ud                                                ::
-  ::
   ++  peek                                              ::  view
     |+  $:  kyl=keel                                    ::  inspecting agent
             asp=?(%view %diff)                          ::  desired aspect

main/bin/secret.hoon

@@ -0,0 +1,9 @@
+!:
+::  /=main=/bin/secret/hoon
+::
+=>  .(-< `who=@p`-<)
+|=  [est=time *]
+|=  ~
+^-  bowl
+:_  ~  :_  ~
+[%la %leaf (scow %p (,@p .^(%a (scot %p who) %code (scot %da est) ~)))]