mod_muc_auto_member/mod_muc_auto_member.lua
author Matthew Wild <mwild1@gmail.com>
Tue, 16 Apr 2024 10:42:25 +0100
changeset 5886 563c2c70cb9f
parent 5166 243c156074d3
permissions -rw-r--r--
mod_sasl2_fast: Improve handling when SASL profile unexpectedly lacks CB This fixes a traceback reported by riau, but likely does not solve the underlying cause, whatever that is.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
5166
243c156074d3 mod_muc_auto_member: New module to automatically make MUC participants members
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
     1
module:hook("muc-occupant-joined", function (event)
243c156074d3 mod_muc_auto_member: New module to automatically make MUC participants members
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
     2
	local room = event.room;
243c156074d3 mod_muc_auto_member: New module to automatically make MUC participants members
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
     3
	local occupant_jid = event.occupant.bare_jid;
243c156074d3 mod_muc_auto_member: New module to automatically make MUC participants members
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
     4
	local aff = room:get_affiliation(occupant_jid);
243c156074d3 mod_muc_auto_member: New module to automatically make MUC participants members
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
     5
	if aff then return; end -- user already registered
243c156074d3 mod_muc_auto_member: New module to automatically make MUC participants members
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
     6
	module:log("debug", "Automatically registering %s as a member in %s", occupant_jid, room.jid);
243c156074d3 mod_muc_auto_member: New module to automatically make MUC participants members
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
     7
	room:set_affiliation(true, occupant_jid, "member");
243c156074d3 mod_muc_auto_member: New module to automatically make MUC participants members
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
     8
end);