eyre: improve cache visibility

Include the cached responses in their own named mass section, and add a
scry endpoint that produces the entire current cache.

A follow-up commit will leverage this for showing it in the debug
dashboard.
This commit is contained in:
fang 2024-02-15 12:27:50 +01:00
parent 7fcee8d9fa
commit 7733e13700
No known key found for this signature in database
GPG Key ID: EB035760C1BBA972

View File

@ -4144,7 +4144,7 @@
?~ entry=(~(get by cache) u.url) ~ ?~ entry=(~(get by cache) u.url) ~
?. =(u.aeon aeon.u.entry) ~ ?. =(u.aeon aeon.u.entry) ~
?~ val=val.u.entry ~ ?~ val=val.u.entry ~
?: &(auth.u.val !=([~ ~] lyc)) ~ ?: &(auth.u.val !=([~ ~] lyc)) ~
``noun+!>(u.val) ``noun+!>(u.val)
:: private endpoints :: private endpoints
?. ?=([~ ~] lyc) ~ ?. ?=([~ ~] lyc) ~
@ -4153,6 +4153,7 @@
?+ tyl ~ ?+ tyl ~
[%$ %whey ~] =- ``mass+!>(`(list mass)`-) [%$ %whey ~] =- ``mass+!>(`(list mass)`-)
:~ bindings+&+bindings.server-state.ax :~ bindings+&+bindings.server-state.ax
cache+&+cache.server-state.ax
auth+&+auth.server-state.ax auth+&+auth.server-state.ax
connections+&+connections.server-state.ax connections+&+connections.server-state.ax
channels+&+channel-state.server-state.ax channels+&+channel-state.server-state.ax
@ -4189,6 +4190,7 @@
?. ?=(%$ ren) ~ ?. ?=(%$ ren) ~
?+ syd ~ ?+ syd ~
%bindings ``noun+!>(bindings.server-state.ax) %bindings ``noun+!>(bindings.server-state.ax)
%cache ``noun+!>(cache.server-state.ax)
%connections ``noun+!>(connections.server-state.ax) %connections ``noun+!>(connections.server-state.ax)
%authentication-state ``noun+!>(auth.server-state.ax) %authentication-state ``noun+!>(auth.server-state.ax)
%channel-state ``noun+!>(channel-state.server-state.ax) %channel-state ``noun+!>(channel-state.server-state.ax)