Software / code / prosody-modules
Changeset
2112:0890c4860f14
mod_register_dnsbl: Initial commit of module to check users registering against an DNS block list
| author | Kim Alvefur <zash@zash.se> |
|---|---|
| date | Thu, 17 Mar 2016 13:05:38 +0100 |
| parents | 2111:4e434abaf8fc |
| children | 2115:2ae5286f1b9a |
| files | mod_register_dnsbl/mod_register_dnsbl.lua |
| diffstat | 1 files changed, 25 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/mod_register_dnsbl/mod_register_dnsbl.lua Thu Mar 17 13:05:38 2016 +0100 @@ -0,0 +1,25 @@ +local adns = require "net.adns"; +local rbl = module:get_option_string("registration_rbl"); + +local function reverse(ip, suffix) + local a,b,c,d = ip:match("^(%d+%).(%d+%).(%d+%).(%d+%)$"); + if not a then return end + return ("%d.%d.%d.%d.%s"):format(d,c,b,a, suffix); +end + +-- TODO async +-- module:hook("user-registering", function (event) end); + +module:hook("user-registered", function (event) + local session = event.session; + local ip = session and session.ip; + local rbl_ip = ip and reverse(ip, rbl); + if rbl_ip then + local log = session.log; + adns.lookup(function (reply) + if reply and reply[1] then + log("warn", "Registration from IP %s found in RBL", ip); + end + end, rbl_ip); + end +end);
