urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-11-30 22:15:47 +03:00
Code Issues Packages Projects Releases Wiki Activity

remove /read and /write dual group usage

Browse Source
This commit is contained in:
A Arroyo 2020-01-11 09:43:53 -08:00 committed by Logan Allen
parent a59e0a9ec7
commit 5c8a53dcaa
2 changed files with 18 additions and 49 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
pkg/arvo/app/chat-hook.hoon
View File

@ -137,7 +137,7 @@
?. =(u.ship our.bol)
~
:: scry permissions to check if write is permitted
?. (permitted-scry [(scot %p src.bol) (weld path.act /write)])
?. (permitted-scry [(scot %p src.bol) path.act])
~
=: author.envelope.act src.bol
when.envelope.act now.bol
@ -202,7 +202,7 @@
?> ?=(^ pax)
?> (~(has by synced) pax)
:: scry permissions to check if read is permitted
?> (permitted-scry [(scot %p src.bol) (weld pax /read)])
?> (permitted-scry [(scot %p src.bol) pax])
=/ box (chat-scry pax)
?~ box !!
[%give %fact ~ %chat-update !>([%create (slav %p i.pax) pax])]~
@ -220,7 +220,7 @@
?> ?=([* ^] pas)
?> (~(has by synced) pas)
:: scry permissions to check if read is permitted
?> (permitted-scry [(scot %p src.bol) (weld pas /read)])
?> (permitted-scry [(scot %p src.bol) pas])
=/ box (chat-scry pas)
?~ box !!
:- [%give %fact ~ %chat-update !>([%create (slav %p i.pas) pas])]
@ -290,10 +290,6 @@
|= [kind=?(%add %remove) pax=path who=(set ship)]
^- (list card)
?> ?=([* *] pax)
?. =(%chat i.pax) ~
:: check path to see if this is a %read permission
?. =(%read (snag (dec (lent pax)) `(list @t)`pax))
~
%- zing
%+ turn ~(tap in who)
|= =ship
@ -451,37 +447,26 @@
++ create-permission
|= [pax=path sec=rw-security]
^- (list card)
=/ read-perm (weld pax /read)
=/ write-perm (weld pax /write)
?- sec
%channel
:~ (permission-poke (sec-to-perm read-perm %black))
(permission-poke (sec-to-perm write-perm %black))
:~ (permission-poke (sec-to-perm pax %black))
==
::
%village
:~ (permission-poke (sec-to-perm read-perm %white))
(permission-poke (sec-to-perm write-perm %white))
:~ (permission-poke (sec-to-perm pax %white))
==
::
%journal
:~ (permission-poke (sec-to-perm read-perm %black))
(permission-poke (sec-to-perm write-perm %white))
==
~
::
%mailbox
:~ (permission-poke (sec-to-perm read-perm %white))
(permission-poke (sec-to-perm write-perm %black))
==
~
==
::
++ delete-permission
|= pax=path
^- (list card)
=/ read-perm (weld pax /read)
=/ write-perm (weld pax /write)
:~ (permission-poke [%delete read-perm])
(permission-poke [%delete write-perm])
:~ (permission-poke [%delete pax])
==
::
++ sec-to-perm

36
pkg/arvo/app/chat-view.hoon
View File

@ -199,8 +199,6 @@
?- -.act
%create
=/ pax [(scot %p our.bol) path.act]
=/ group-read=path (weld pax /read)
=/ group-write=path (weld pax /write)
%- zing
:~ :~ (group-poke [%bundle group-read])
(group-poke [%bundle group-write])
@ -210,28 +208,22 @@
(chat-hook-poke [%add-owned pax security.act allow-history.act])
==
(create-security pax security.act)
:~ (permission-hook-poke [%add-owned group-read group-read])
(permission-hook-poke [%add-owned group-write group-read])
:~ (permission-hook-poke [%add-owned pax pax])
:: (permission-hook-poke [%add-owned group-write group-read])
==
==
::
%delete
=/ group-read (weld path.act /read)
=/ group-write (weld path.act /write)
:~ (chat-hook-poke [%remove path.act])
(permission-hook-poke [%remove group-read])
(permission-hook-poke [%remove group-write])
(group-poke [%unbundle group-read])
(group-poke [%unbundle group-write])
(permission-hook-poke [%remove path.act])
(group-poke [%unbundle path.act])
(chat-poke [%delete path.act])
==
::
%join
=/ group-read [(scot %p ship.act) (weld path.act /read)]
=/ group-write [(scot %p ship.act) (weld path.act /write)]
=/ foreign-pax [(scot %p ship.act) path.act]
:~ (chat-hook-poke [%add-synced ship.act path.act ask-history.act])
(permission-hook-poke [%add-synced ship.act group-write])
(permission-hook-poke [%add-synced ship.act group-read])
(permission-hook-poke [%add-synced ship.act foreign-pax])
==
==
::
@ -288,27 +280,19 @@
++ create-security
|= [pax=path sec=rw-security]
^- (list card)
=/ read (weld pax /read)
=/ write (weld pax /write)
?- sec
%channel
:~ (perm-group-hook-poke [%associate read [[read %black] ~ ~]])
(perm-group-hook-poke [%associate write [[write %black] ~ ~]])
:~ (perm-group-hook-poke [%associate pax [[pax %black] ~ ~]])
==
::
%village
:~ (perm-group-hook-poke [%associate read [[read %white] ~ ~]])
(perm-group-hook-poke [%associate write [[write %white] ~ ~]])
:~ (perm-group-hook-poke [%associate pax [[pax %white] ~ ~]])
==
::
%journal
:~ (perm-group-hook-poke [%associate read [[read %black] ~ ~]])
(perm-group-hook-poke [%associate write [[write %white] ~ ~]])
==
~
::
%mailbox
:~ (perm-group-hook-poke [%associate read [[read %white] ~ ~]])
(perm-group-hook-poke [%associate write [[write %black] ~ ~]])
==
~
==
--