mirror of
https://github.com/urbit/shrub.git
synced 2024-12-24 03:14:30 +03:00
eyre: gang fixes
This commit is contained in:
parent
e63de85663
commit
6599fddc9a
@ -4119,8 +4119,35 @@
|
|||||||
~
|
~
|
||||||
~& [%r %scry-foreign-host who]
|
~& [%r %scry-foreign-host who]
|
||||||
~
|
~
|
||||||
|
::
|
||||||
|
?: ?=([%eauth %url ~] tyl)
|
||||||
|
?. &(?=(%x ren) ?=(%$ syd)) ~
|
||||||
|
=* endpoint endpoint.auth.server-state.ax
|
||||||
|
?. ?=(%da -.p.lot) [~ ~]
|
||||||
|
:: we cannot answer for something prior to the last set time,
|
||||||
|
:: or something beyond the present moment.
|
||||||
|
::
|
||||||
|
?: ?| (lth q.p.lot time.endpoint)
|
||||||
|
(gth q.p.lot now)
|
||||||
|
==
|
||||||
|
~
|
||||||
|
:^ ~ ~ %noun
|
||||||
|
!> ^- (unit @t)
|
||||||
|
=< eauth-url:eauth:authentication
|
||||||
|
(per-server-event [eny *duct now rof] server-state.ax)
|
||||||
|
::
|
||||||
|
?: ?=([%cache @ @ ~] tyl)
|
||||||
|
?. &(?=(%x ren) ?=(%$ syd)) ~
|
||||||
|
=, server-state.ax
|
||||||
|
?~ aeon=(slaw %ud i.t.tyl) [~ ~]
|
||||||
|
?~ url=(slaw %t i.t.t.tyl) [~ ~]
|
||||||
|
?~ entry=(~(get by cache) u.url) ~
|
||||||
|
?. =(u.aeon aeon.u.entry) ~
|
||||||
|
?~ val=val.u.entry ~
|
||||||
|
?: &(auth.u.val !=([~ ~] lyc)) ~
|
||||||
|
``noun+!>(u.val)
|
||||||
:: private endpoints
|
:: private endpoints
|
||||||
?: ?=([~ ~] lyc)
|
?. ?=([~ ~] lyc) ~
|
||||||
?: &(?=(%x ren) ?=(%$ syd))
|
?: &(?=(%x ren) ?=(%$ syd))
|
||||||
=, server-state.ax
|
=, server-state.ax
|
||||||
?+ tyl ~
|
?+ tyl ~
|
||||||
@ -4187,33 +4214,4 @@
|
|||||||
``[?=(^ secure.ports) port host]
|
``[?=(^ secure.ports) port host]
|
||||||
==
|
==
|
||||||
==
|
==
|
||||||
:: public endpoints
|
|
||||||
?+ tyl ~
|
|
||||||
[%eauth %url ~]
|
|
||||||
=* endpoint endpoint.auth.server-state.ax
|
|
||||||
?. ?=(%da -.p.lot) [~ ~]
|
|
||||||
:: we cannot answer for something prior to the last set time,
|
|
||||||
:: or something beyond the present moment.
|
|
||||||
::
|
|
||||||
?: ?| (lth q.p.lot time.endpoint)
|
|
||||||
(gth q.p.lot now)
|
|
||||||
==
|
|
||||||
~
|
|
||||||
:^ ~ ~ %noun
|
|
||||||
!> ^- (unit @t)
|
|
||||||
=< eauth-url:eauth:authentication
|
|
||||||
(per-server-event [eny *duct now rof] server-state.ax)
|
|
||||||
::
|
|
||||||
[%cache @ @ ~]
|
|
||||||
=, server-state.ax
|
|
||||||
?~ aeon=(slaw %ud i.t.tyl) [~ ~]
|
|
||||||
?~ url=(slaw %t i.t.t.tyl) [~ ~]
|
|
||||||
?~ entry=(~(get by cache) u.url) [~ ~]
|
|
||||||
?. =(u.aeon aeon.u.entry) [~ ~]
|
|
||||||
?~ val=val.u.entry [~ ~]
|
|
||||||
?: &(auth.u.val !=([~ ~] lyc)) ~
|
|
||||||
``noun+!>(u.val)
|
|
||||||
::
|
|
||||||
==
|
|
||||||
|
|
||||||
--
|
--
|
||||||
|
Loading…
Reference in New Issue
Block a user