dojo: rename remote access generators

This commit is contained in:
lukechampine 2020-05-08 00:53:21 -04:00
parent 8cbb8f142e
commit baa309e375
4 changed files with 8 additions and 8 deletions

View File

@ -1372,16 +1372,16 @@
=+ !<([=id =command:lens] vase)
he-abet:(~(he-lens he hid id ~ (~(got by hoc) id)) command)
::
%grant-access
%allow-remote-login
=/ who !<(@p vase)
`state(acl (~(put in acl) who))
::
%revoke-access
%revoke-remote-login
=/ who !<(@p vase)
:_ state(acl (~(del in acl) who))
[%give %kick ~ `who]~
::
%list-access
%list-remote-logins
~& acl
`state
::

View File

@ -6,4 +6,4 @@
|= $: [now=@da eny=@uvJ bec=beak]
[~ ~]
==
[%list-access ~]
[%list-remote-logins ~]

View File

@ -1,4 +1,4 @@
:: grant: allow a ship to link to dojo
:: allow-remote-login: allow a ship to link to dojo
::
/? 310
::
@ -6,4 +6,4 @@
|= $: [now=@da eny=@uvJ bec=beak]
[[=ship ~] ~]
==
[%grant-access ship]
[%allow-remote-login ship]

View File

@ -1,4 +1,4 @@
:: revoke: revoke a ship's right to link to dojo,
:: revoke-remote-login: revoke a ship's right to link to dojo,
:: kicking the ship if it is currently linked
::
/? 310
@ -7,4 +7,4 @@
|= $: [now=@da eny=@uvJ bec=beak]
[[=ship ~] ~]
==
[%revoke-access ship]
[%revoke-remote-login ship]