2019-10-01 02:25:25 +03:00
|
|
|
/- *chat-hook
|
|
|
|
|
=, dejs:format
|
|
|
|
|
|_ act=chat-hook-action
|
|
|
|
|
++ grab
|
|
|
|
|
|%
|
|
|
|
|
++ noun chat-hook-action
|
|
|
|
|
++ json
|
|
|
|
|
|= jon=^json
|
|
|
|
|
=< (parse-chat-hook-action jon)
|
|
|
|
|
|%
|
|
|
|
|
++ parse-chat-hook-action
|
|
|
|
|
%- of
|
|
|
|
|
:~
|
|
|
|
|
[%add-owned add-owned]
|
|
|
|
|
[%add-synced add-synced]
|
2019-10-02 02:18:36 +03:00
|
|
|
[%remove pa]
|
2019-10-01 02:25:25 +03:00
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
++ add-owned
|
|
|
|
|
%- ot
|
2019-10-02 02:18:36 +03:00
|
|
|
:~ [%path pa]
|
|
|
|
|
[%security sec]
|
2019-11-14 03:53:47 +03:00
|
|
|
[%allow-history bo]
|
2019-10-01 02:25:25 +03:00
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
++ add-synced
|
|
|
|
|
%- ot
|
|
|
|
|
:~ [%ship (su ;~(pfix sig fed:ag))]
|
2019-10-02 02:18:36 +03:00
|
|
|
[%path pa]
|
2019-11-14 03:53:47 +03:00
|
|
|
[%ask-history bo]
|
2019-10-01 02:25:25 +03:00
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
++ sec
|
2019-11-14 04:17:24 +03:00
|
|
|
^- $-(^json rw-security)
|
2019-10-01 02:25:25 +03:00
|
|
|
(su (perk %channel %village %journal %mailbox ~))
|
|
|
|
|
::
|
|
|
|
|
--
|
|
|
|
|
--
|
|
|
|
|
--
|
|
|
|
|
|
