annotate mod_csi_compat/mod_csi_compat.lua @ 5448:9d542e86e19a

mod_http_oauth2: Allow requesting a subset of scopes on token refresh This enables clients to request access tokens with fewer permissions than the grant they were given, reducing impact of token leak. Clients could e.g. request access tokens with some privileges and immediately revoke them after use, or other strategies.
author Kim Alvefur <zash@zash.se>
date Thu, 11 May 2023 21:40:09 +0200
parents db8b256f51ff
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1486
b3e692ee16b5 mod_csi_compat: Implement the google:queue protocol and map to mod_csi events
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
1 local st = require "util.stanza";
b3e692ee16b5 mod_csi_compat: Implement the google:queue protocol and map to mod_csi events
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
2
b3e692ee16b5 mod_csi_compat: Implement the google:queue protocol and map to mod_csi events
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
3 module:depends("csi");
b3e692ee16b5 mod_csi_compat: Implement the google:queue protocol and map to mod_csi events
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
4
b3e692ee16b5 mod_csi_compat: Implement the google:queue protocol and map to mod_csi events
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
5 module:add_feature("google:queue");
b3e692ee16b5 mod_csi_compat: Implement the google:queue protocol and map to mod_csi events
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
6
b3e692ee16b5 mod_csi_compat: Implement the google:queue protocol and map to mod_csi events
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
7 module:hook("iq-set/self/google:queue:query", function(event)
b3e692ee16b5 mod_csi_compat: Implement the google:queue protocol and map to mod_csi events
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
8 local origin, stanza = event.origin, event.stanza;
b3e692ee16b5 mod_csi_compat: Implement the google:queue protocol and map to mod_csi events
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
9 (origin.log or module._log)("debug", "Google queue invoked (CSI compat mode)")
b3e692ee16b5 mod_csi_compat: Implement the google:queue protocol and map to mod_csi events
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
10 local payload = stanza:get_child("query", "google:queue");
b3e692ee16b5 mod_csi_compat: Implement the google:queue protocol and map to mod_csi events
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
11 if payload:get_child("enable") then
b3e692ee16b5 mod_csi_compat: Implement the google:queue protocol and map to mod_csi events
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
12 module:fire_event("csi-client-inactive", event);
b3e692ee16b5 mod_csi_compat: Implement the google:queue protocol and map to mod_csi events
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
13 elseif payload:get_child("disable") then
b3e692ee16b5 mod_csi_compat: Implement the google:queue protocol and map to mod_csi events
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
14 module:fire_event("csi-client-active", event);
b3e692ee16b5 mod_csi_compat: Implement the google:queue protocol and map to mod_csi events
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
15 end
b3e692ee16b5 mod_csi_compat: Implement the google:queue protocol and map to mod_csi events
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
16 -- <flush/> is implemented as a noop, any IQ stanza would flush the queue anyways.
1865
db8b256f51ff mod_admin_web,mod_carbons,mod_csi_compat,mod_mam_muc,mod_tcpproxy: Explicitly return true
Kim Alvefur <zash@zash.se>
parents: 1486
diff changeset
17 origin.send(st.reply(stanza));
db8b256f51ff mod_admin_web,mod_carbons,mod_csi_compat,mod_mam_muc,mod_tcpproxy: Explicitly return true
Kim Alvefur <zash@zash.se>
parents: 1486
diff changeset
18 return true;
1486
b3e692ee16b5 mod_csi_compat: Implement the google:queue protocol and map to mod_csi events
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
19 end, 10);