Ensure %kids desk is publicly readable.

Set permissions for that during boot and clay update.
This commit is contained in:
Fang 2018-02-09 00:37:17 +01:00
parent f835ac4c57
commit d7fdb4545e
2 changed files with 19 additions and 3 deletions

View File

@ -3815,8 +3815,13 @@
%- ~(gas by *cult)
(turn ~(tap by a) |=({p/wove-3 q/(set duct)} [(wov p) q]))
=/ rom
=+ doj=|=(dojo-3 [(cul qyx) dom dok mer ~ ~])
|=(a/room-3 a(dos (~(run by dos.a) doj)))
|= room-3
:- hun
%- ~(urn by dos)
|= {d/desk dojo-3}
=/ n/dojo [(cul qyx) dom dok mer ~ ~]
?. =(%kids d) n
n(per [[/ %black ~] ~ ~])
=/ run
=/ red
|= rede-3

View File

@ -48,6 +48,7 @@
++ note-clay ::
$% {$merg p/@p q/@tas r/@p s/@tas t/case u/germ:clay}:: merge desks
{$warp p/sock q/riff:clay} :: wait for clay hack
{$perm p/ship q/desk r/path s/rite:clay} :: change permissions
== ::
++ note-dill :: note to self, odd
$% {$crud p/@tas q/(list tank)} ::
@ -280,7 +281,7 @@
(sync %home our %base)
(init-sync %home our %base)
=. +> ?. ?=(?($duke $king $czar) can) +>
(sync %kids our %base)
(show %kids):(sync %kids our %base)
=. +> autoload
=. +> peer
|- ^+ +>+
@ -316,6 +317,16 @@
:_(moz [hen %pass ~ %g %deal [our our] ram %peer /drum])
==
::
++ show :: permit reads on desk
|= des/desk
%_ +>.$
moz
:_ moz
:* hen %pass /show %c %perm our
des / r+`[%black ~]
==
==
::
++ sync
|= syn/{desk ship desk}
%_ +>.$