Mercurial > prosody-modules
changeset 112:d1168a454107
mod_regredirect: initial commit.
author | Marco Cirillo <maranda@lightwitch.org> |
---|---|
date | Wed, 30 Dec 2009 00:24:24 +0000 (2009-12-30) |
parents | 3de60860adca |
children | 7dff5fa275f4 |
files | mod_regredirect/mod_regredirect.lua |
diffstat | 1 files changed, 28 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/mod_regredirect/mod_regredirect.lua Wed Dec 30 00:24:24 2009 +0000 @@ -0,0 +1,28 @@ +-- Registration Redirect module for Prosody +-- +-- Redirects IP addresses not in the whitelist to a web page to complete the registration. + +local st = require "util.stanza"; + +function reg_redirect(event) + local ip_wl = module:get_option("registration_whitelist") or { "127.0.0.1" }; + local url = module:get_option("registration_url"); + local test_ip; + + for i,ip in ipairs(ip_wl) do + if event.origin.ip == ip then test_ip = true; end + break; + end + + if not test_ip and url ~= nil then + local reply = st.reply(event.stanza); + reply:tag("query", {xmlns = "jabber:iq:register"}) + :tag("instructions"):text("Please visit "..url.." to register an account on this server."):up() + :tag("x", {xmlns = "jabber:x:oob"}):up() + :tag("url"):text(url):up(); + event.origin.send(reply); + return true; + end +end + +module:hook("stanza/iq/jabber:iq:register:query", reg_redirect, 10);