|
@@ -0,0 +1,864 @@
|
|
|
+--[[
|
|
|
+Copyright (c) 2011-2017, Vsevolod Stakhov <vsevolod@highsecure.ru>
|
|
|
+Copyright (c) 2016-2017, Andrew Lewis <nerf@judo.za.org>
|
|
|
+
|
|
|
+Licensed under the Apache License, Version 2.0 (the "License");
|
|
|
+you may not use this file except in compliance with the License.
|
|
|
+You may obtain a copy of the License at
|
|
|
+
|
|
|
+ http://www.apache.org/licenses/LICENSE-2.0
|
|
|
+
|
|
|
+Unless required by applicable law or agreed to in writing, software
|
|
|
+distributed under the License is distributed on an "AS IS" BASIS,
|
|
|
+WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
|
|
+See the License for the specific language governing permissions and
|
|
|
+limitations under the License.
|
|
|
+]]--
|
|
|
+
|
|
|
+if confighelp then
|
|
|
+ return
|
|
|
+end
|
|
|
+
|
|
|
+local rspamd_logger = require "rspamd_logger"
|
|
|
+local rspamd_util = require "rspamd_util"
|
|
|
+local rspamd_lua_utils = require "lua_util"
|
|
|
+local lua_redis = require "lua_redis"
|
|
|
+local fun = require "fun"
|
|
|
+local lua_maps = require "lua_maps"
|
|
|
+local lua_util = require "lua_util"
|
|
|
+local rspamd_hash = require "rspamd_cryptobox_hash"
|
|
|
+local lua_selectors = require "lua_selectors"
|
|
|
+local ts = require("tableshape").types
|
|
|
+
|
|
|
+-- A plugin that implements ratelimits using redis
|
|
|
+
|
|
|
+local E = {}
|
|
|
+local N = 'ratelimit'
|
|
|
+local redis_params
|
|
|
+-- Senders that are considered as bounce
|
|
|
+local settings = {
|
|
|
+ bounce_senders = { 'postmaster', 'mailer-daemon', '', 'null', 'fetchmail-daemon', 'mdaemon' },
|
|
|
+-- Do not check ratelimits for these recipients
|
|
|
+ whitelisted_rcpts = { 'postmaster', 'mailer-daemon' },
|
|
|
+ prefix = 'RL',
|
|
|
+ ham_factor_rate = 1.01,
|
|
|
+ spam_factor_rate = 0.99,
|
|
|
+ ham_factor_burst = 1.02,
|
|
|
+ spam_factor_burst = 0.98,
|
|
|
+ max_rate_mult = 5,
|
|
|
+ max_bucket_mult = 10,
|
|
|
+ expire = 60 * 60 * 24 * 2, -- 2 days by default
|
|
|
+ limits = {},
|
|
|
+ allow_local = false,
|
|
|
+}
|
|
|
+
|
|
|
+-- Checks bucket, updating it if needed
|
|
|
+-- KEYS[1] - prefix to update, e.g. RL_<triplet>_<seconds>
|
|
|
+-- KEYS[2] - current time in milliseconds
|
|
|
+-- KEYS[3] - bucket leak rate (messages per millisecond)
|
|
|
+-- KEYS[4] - bucket burst
|
|
|
+-- KEYS[5] - expire for a bucket
|
|
|
+-- return 1 if message should be ratelimited and 0 if not
|
|
|
+-- Redis keys used:
|
|
|
+-- l - last hit
|
|
|
+-- b - current burst
|
|
|
+-- dr - current dynamic rate multiplier (*10000)
|
|
|
+-- db - current dynamic burst multiplier (*10000)
|
|
|
+local bucket_check_script = [[
|
|
|
+ local last = redis.call('HGET', KEYS[1], 'l')
|
|
|
+ local now = tonumber(KEYS[2])
|
|
|
+ local dynr, dynb, leaked = 0, 0, 0
|
|
|
+ if not last then
|
|
|
+ -- New bucket
|
|
|
+ redis.call('HSET', KEYS[1], 'l', KEYS[2])
|
|
|
+ redis.call('HSET', KEYS[1], 'b', '0')
|
|
|
+ redis.call('HSET', KEYS[1], 'dr', '10000')
|
|
|
+ redis.call('HSET', KEYS[1], 'db', '10000')
|
|
|
+ redis.call('EXPIRE', KEYS[1], KEYS[5])
|
|
|
+ return {0, '0', '1', '1', '0'}
|
|
|
+ end
|
|
|
+
|
|
|
+ last = tonumber(last)
|
|
|
+ local burst = tonumber(redis.call('HGET', KEYS[1], 'b'))
|
|
|
+ -- Perform leak
|
|
|
+ if burst > 0 then
|
|
|
+ if last < tonumber(KEYS[2]) then
|
|
|
+ local rate = tonumber(KEYS[3])
|
|
|
+ dynr = tonumber(redis.call('HGET', KEYS[1], 'dr')) / 10000.0
|
|
|
+ if dynr == 0 then dynr = 0.0001 end
|
|
|
+ rate = rate * dynr
|
|
|
+ leaked = ((now - last) * rate)
|
|
|
+ if leaked > burst then leaked = burst end
|
|
|
+ burst = burst - leaked
|
|
|
+ redis.call('HINCRBYFLOAT', KEYS[1], 'b', -(leaked))
|
|
|
+ redis.call('HSET', KEYS[1], 'l', KEYS[2])
|
|
|
+ end
|
|
|
+
|
|
|
+ dynb = tonumber(redis.call('HGET', KEYS[1], 'db')) / 10000.0
|
|
|
+ if dynb == 0 then dynb = 0.0001 end
|
|
|
+
|
|
|
+ if burst > 0 and (burst + 1) > tonumber(KEYS[4]) * dynb then
|
|
|
+ return {1, tostring(burst), tostring(dynr), tostring(dynb), tostring(leaked)}
|
|
|
+ end
|
|
|
+ else
|
|
|
+ burst = 0
|
|
|
+ redis.call('HSET', KEYS[1], 'b', '0')
|
|
|
+ end
|
|
|
+
|
|
|
+ return {0, tostring(burst), tostring(dynr), tostring(dynb), tostring(leaked)}
|
|
|
+]]
|
|
|
+local bucket_check_id
|
|
|
+
|
|
|
+
|
|
|
+-- Updates a bucket
|
|
|
+-- KEYS[1] - prefix to update, e.g. RL_<triplet>_<seconds>
|
|
|
+-- KEYS[2] - current time in milliseconds
|
|
|
+-- KEYS[3] - dynamic rate multiplier
|
|
|
+-- KEYS[4] - dynamic burst multiplier
|
|
|
+-- KEYS[5] - max dyn rate (min: 1/x)
|
|
|
+-- KEYS[6] - max burst rate (min: 1/x)
|
|
|
+-- KEYS[7] - expire for a bucket
|
|
|
+-- Redis keys used:
|
|
|
+-- l - last hit
|
|
|
+-- b - current burst
|
|
|
+-- dr - current dynamic rate multiplier
|
|
|
+-- db - current dynamic burst multiplier
|
|
|
+local bucket_update_script = [[
|
|
|
+ local last = redis.call('HGET', KEYS[1], 'l')
|
|
|
+ local now = tonumber(KEYS[2])
|
|
|
+ if not last then
|
|
|
+ -- New bucket
|
|
|
+ redis.call('HSET', KEYS[1], 'l', KEYS[2])
|
|
|
+ redis.call('HSET', KEYS[1], 'b', '1')
|
|
|
+ redis.call('HSET', KEYS[1], 'dr', '10000')
|
|
|
+ redis.call('HSET', KEYS[1], 'db', '10000')
|
|
|
+ redis.call('EXPIRE', KEYS[1], KEYS[7])
|
|
|
+ return {1, 1, 1}
|
|
|
+ end
|
|
|
+
|
|
|
+ local dr, db = 1.0, 1.0
|
|
|
+
|
|
|
+ if tonumber(KEYS[5]) > 1 then
|
|
|
+ local rate_mult = tonumber(KEYS[3])
|
|
|
+ local rate_limit = tonumber(KEYS[5])
|
|
|
+ dr = tonumber(redis.call('HGET', KEYS[1], 'dr')) / 10000
|
|
|
+
|
|
|
+ if rate_mult > 1.0 and dr < rate_limit then
|
|
|
+ dr = dr * rate_mult
|
|
|
+ if dr > 0.0001 then
|
|
|
+ redis.call('HSET', KEYS[1], 'dr', tostring(math.floor(dr * 10000)))
|
|
|
+ else
|
|
|
+ redis.call('HSET', KEYS[1], 'dr', '1')
|
|
|
+ end
|
|
|
+ elseif rate_mult < 1.0 and dr > (1.0 / rate_limit) then
|
|
|
+ dr = dr * rate_mult
|
|
|
+ if dr > 0.0001 then
|
|
|
+ redis.call('HSET', KEYS[1], 'dr', tostring(math.floor(dr * 10000)))
|
|
|
+ else
|
|
|
+ redis.call('HSET', KEYS[1], 'dr', '1')
|
|
|
+ end
|
|
|
+ end
|
|
|
+ end
|
|
|
+
|
|
|
+ if tonumber(KEYS[6]) > 1 then
|
|
|
+ local rate_mult = tonumber(KEYS[4])
|
|
|
+ local rate_limit = tonumber(KEYS[6])
|
|
|
+ db = tonumber(redis.call('HGET', KEYS[1], 'db')) / 10000
|
|
|
+
|
|
|
+ if rate_mult > 1.0 and db < rate_limit then
|
|
|
+ db = db * rate_mult
|
|
|
+ if db > 0.0001 then
|
|
|
+ redis.call('HSET', KEYS[1], 'db', tostring(math.floor(db * 10000)))
|
|
|
+ else
|
|
|
+ redis.call('HSET', KEYS[1], 'db', '1')
|
|
|
+ end
|
|
|
+ elseif rate_mult < 1.0 and db > (1.0 / rate_limit) then
|
|
|
+ db = db * rate_mult
|
|
|
+ if db > 0.0001 then
|
|
|
+ redis.call('HSET', KEYS[1], 'db', tostring(math.floor(db * 10000)))
|
|
|
+ else
|
|
|
+ redis.call('HSET', KEYS[1], 'db', '1')
|
|
|
+ end
|
|
|
+ end
|
|
|
+ end
|
|
|
+
|
|
|
+ local burst = tonumber(redis.call('HGET', KEYS[1], 'b'))
|
|
|
+ if burst < 0 then burst = 0 end
|
|
|
+
|
|
|
+ redis.call('HINCRBYFLOAT', KEYS[1], 'b', 1)
|
|
|
+ redis.call('HSET', KEYS[1], 'l', KEYS[2])
|
|
|
+ redis.call('EXPIRE', KEYS[1], KEYS[7])
|
|
|
+
|
|
|
+ return {tostring(burst), tostring(dr), tostring(db)}
|
|
|
+]]
|
|
|
+local bucket_update_id
|
|
|
+
|
|
|
+-- message_func(task, limit_type, prefix, bucket, limit_key)
|
|
|
+local message_func = function(_, limit_type, _, _, _)
|
|
|
+ return string.format('Ratelimit "%s" exceeded', limit_type)
|
|
|
+end
|
|
|
+
|
|
|
+
|
|
|
+local function load_scripts(cfg, ev_base)
|
|
|
+ bucket_check_id = lua_redis.add_redis_script(bucket_check_script, redis_params)
|
|
|
+ bucket_update_id = lua_redis.add_redis_script(bucket_update_script, redis_params)
|
|
|
+end
|
|
|
+
|
|
|
+local limit_parser
|
|
|
+local function parse_string_limit(lim, no_error)
|
|
|
+ local function parse_time_suffix(s)
|
|
|
+ if s == 's' then
|
|
|
+ return 1
|
|
|
+ elseif s == 'm' then
|
|
|
+ return 60
|
|
|
+ elseif s == 'h' then
|
|
|
+ return 3600
|
|
|
+ elseif s == 'd' then
|
|
|
+ return 86400
|
|
|
+ end
|
|
|
+ end
|
|
|
+ local function parse_num_suffix(s)
|
|
|
+ if s == '' then
|
|
|
+ return 1
|
|
|
+ elseif s == 'k' then
|
|
|
+ return 1000
|
|
|
+ elseif s == 'm' then
|
|
|
+ return 1000000
|
|
|
+ elseif s == 'g' then
|
|
|
+ return 1000000000
|
|
|
+ end
|
|
|
+ end
|
|
|
+ local lpeg = require "lpeg"
|
|
|
+
|
|
|
+ if not limit_parser then
|
|
|
+ local digit = lpeg.R("09")
|
|
|
+ limit_parser = {}
|
|
|
+ limit_parser.integer =
|
|
|
+ (lpeg.S("+-") ^ -1) *
|
|
|
+ (digit ^ 1)
|
|
|
+ limit_parser.fractional =
|
|
|
+ (lpeg.P(".") ) *
|
|
|
+ (digit ^ 1)
|
|
|
+ limit_parser.number =
|
|
|
+ (limit_parser.integer *
|
|
|
+ (limit_parser.fractional ^ -1)) +
|
|
|
+ (lpeg.S("+-") * limit_parser.fractional)
|
|
|
+ limit_parser.time = lpeg.Cf(lpeg.Cc(1) *
|
|
|
+ (limit_parser.number / tonumber) *
|
|
|
+ ((lpeg.S("smhd") / parse_time_suffix) ^ -1),
|
|
|
+ function (acc, val) return acc * val end)
|
|
|
+ limit_parser.suffixed_number = lpeg.Cf(lpeg.Cc(1) *
|
|
|
+ (limit_parser.number / tonumber) *
|
|
|
+ ((lpeg.S("kmg") / parse_num_suffix) ^ -1),
|
|
|
+ function (acc, val) return acc * val end)
|
|
|
+ limit_parser.limit = lpeg.Ct(limit_parser.suffixed_number *
|
|
|
+ (lpeg.S(" ") ^ 0) * lpeg.S("/") * (lpeg.S(" ") ^ 0) *
|
|
|
+ limit_parser.time)
|
|
|
+ end
|
|
|
+ local t = lpeg.match(limit_parser.limit, lim)
|
|
|
+
|
|
|
+ if t and t[1] and t[2] and t[2] ~= 0 then
|
|
|
+ return t[2], t[1]
|
|
|
+ end
|
|
|
+
|
|
|
+ if not no_error then
|
|
|
+ rspamd_logger.errx(rspamd_config, 'bad limit: %s', lim)
|
|
|
+ end
|
|
|
+
|
|
|
+ return nil
|
|
|
+end
|
|
|
+
|
|
|
+local function str_to_rate(str)
|
|
|
+ local divider,divisor = parse_string_limit(str, false)
|
|
|
+
|
|
|
+ if not divisor then
|
|
|
+ rspamd_logger.errx(rspamd_config, 'bad rate string: %s', str)
|
|
|
+
|
|
|
+ return nil
|
|
|
+ end
|
|
|
+
|
|
|
+ return divisor / divider
|
|
|
+end
|
|
|
+
|
|
|
+local bucket_schema = ts.shape{
|
|
|
+ burst = ts.number + ts.string / lua_util.dehumanize_number,
|
|
|
+ rate = ts.number + ts.string / str_to_rate
|
|
|
+}
|
|
|
+
|
|
|
+local function parse_limit(name, data)
|
|
|
+ if type(data) == 'table' then
|
|
|
+ -- 2 cases here:
|
|
|
+ -- * old limit in format [burst, rate]
|
|
|
+ -- * vector of strings in Andrew's string format (removed from 1.8.2)
|
|
|
+ -- * proper bucket table
|
|
|
+ if #data == 2 and tonumber(data[1]) and tonumber(data[2]) then
|
|
|
+ -- Old style ratelimit
|
|
|
+ rspamd_logger.warnx(rspamd_config, 'old style ratelimit for %s', name)
|
|
|
+ if tonumber(data[1]) > 0 and tonumber(data[2]) > 0 then
|
|
|
+ return {
|
|
|
+ burst = data[1],
|
|
|
+ rate = data[2]
|
|
|
+ }
|
|
|
+ elseif data[1] ~= 0 then
|
|
|
+ rspamd_logger.warnx(rspamd_config, 'invalid numbers for %s', name)
|
|
|
+ else
|
|
|
+ rspamd_logger.infox(rspamd_config, 'disable limit %s, burst is zero', name)
|
|
|
+ end
|
|
|
+
|
|
|
+ return nil
|
|
|
+ else
|
|
|
+ local parsed_bucket,err = bucket_schema:transform(data)
|
|
|
+
|
|
|
+ if not parsed_bucket or err then
|
|
|
+ rspamd_logger.errx(rspamd_config, 'cannot parse bucket for %s: %s; original value: %s',
|
|
|
+ name, err, data)
|
|
|
+ else
|
|
|
+ return parsed_bucket
|
|
|
+ end
|
|
|
+ end
|
|
|
+ elseif type(data) == 'string' then
|
|
|
+ local rep_rate, burst = parse_string_limit(data)
|
|
|
+ rspamd_logger.warnx(rspamd_config, 'old style rate bucket config detected for %s: %s',
|
|
|
+ name, data)
|
|
|
+ if rep_rate and burst then
|
|
|
+ return {
|
|
|
+ burst = burst,
|
|
|
+ rate = burst / rep_rate -- reciprocal
|
|
|
+ }
|
|
|
+ end
|
|
|
+ end
|
|
|
+
|
|
|
+ return nil
|
|
|
+end
|
|
|
+
|
|
|
+--- Check whether this addr is bounce
|
|
|
+local function check_bounce(from)
|
|
|
+ return fun.any(function(b) return b == from end, settings.bounce_senders)
|
|
|
+end
|
|
|
+
|
|
|
+local keywords = {
|
|
|
+ ['ip'] = {
|
|
|
+ ['get_value'] = function(task)
|
|
|
+ local ip = task:get_ip()
|
|
|
+ if ip and ip:is_valid() then return tostring(ip) end
|
|
|
+ return nil
|
|
|
+ end,
|
|
|
+ },
|
|
|
+ ['rip'] = {
|
|
|
+ ['get_value'] = function(task)
|
|
|
+ local ip = task:get_ip()
|
|
|
+ if ip and ip:is_valid() and not ip:is_local() then return tostring(ip) end
|
|
|
+ return nil
|
|
|
+ end,
|
|
|
+ },
|
|
|
+ ['from'] = {
|
|
|
+ ['get_value'] = function(task)
|
|
|
+ local from = task:get_from(0)
|
|
|
+ if ((from or E)[1] or E).addr then
|
|
|
+ return string.lower(from[1]['addr'])
|
|
|
+ end
|
|
|
+ return nil
|
|
|
+ end,
|
|
|
+ },
|
|
|
+ ['bounce'] = {
|
|
|
+ ['get_value'] = function(task)
|
|
|
+ local from = task:get_from(0)
|
|
|
+ if not ((from or E)[1] or E).user then
|
|
|
+ return '_'
|
|
|
+ end
|
|
|
+ if check_bounce(from[1]['user']) then return '_' else return nil end
|
|
|
+ end,
|
|
|
+ },
|
|
|
+ ['asn'] = {
|
|
|
+ ['get_value'] = function(task)
|
|
|
+ local asn = task:get_mempool():get_variable('asn')
|
|
|
+ if not asn then
|
|
|
+ return nil
|
|
|
+ else
|
|
|
+ return asn
|
|
|
+ end
|
|
|
+ end,
|
|
|
+ },
|
|
|
+ ['user'] = {
|
|
|
+ ['get_value'] = function(task)
|
|
|
+ local auser = task:get_user()
|
|
|
+ if not auser then
|
|
|
+ return nil
|
|
|
+ else
|
|
|
+ return auser
|
|
|
+ end
|
|
|
+ end,
|
|
|
+ },
|
|
|
+ ['to'] = {
|
|
|
+ ['get_value'] = function(task)
|
|
|
+ return task:get_principal_recipient()
|
|
|
+ end,
|
|
|
+ },
|
|
|
+ ['digest'] = {
|
|
|
+ ['get_value'] = function(task)
|
|
|
+ return task:get_digest()
|
|
|
+ end,
|
|
|
+ },
|
|
|
+ ['attachments'] = {
|
|
|
+ ['get_value'] = function(task)
|
|
|
+ local parts = task:get_parts() or E
|
|
|
+ local digests = {}
|
|
|
+
|
|
|
+ for _,p in ipairs(parts) do
|
|
|
+ if p:get_filename() then
|
|
|
+ table.insert(digests, p:get_digest())
|
|
|
+ end
|
|
|
+ end
|
|
|
+
|
|
|
+ if #digests > 0 then
|
|
|
+ return table.concat(digests, '')
|
|
|
+ end
|
|
|
+
|
|
|
+ return nil
|
|
|
+ end,
|
|
|
+ },
|
|
|
+ ['files'] = {
|
|
|
+ ['get_value'] = function(task)
|
|
|
+ local parts = task:get_parts() or E
|
|
|
+ local files = {}
|
|
|
+
|
|
|
+ for _,p in ipairs(parts) do
|
|
|
+ local fname = p:get_filename()
|
|
|
+ if fname then
|
|
|
+ table.insert(files, fname)
|
|
|
+ end
|
|
|
+ end
|
|
|
+
|
|
|
+ if #files > 0 then
|
|
|
+ return table.concat(files, ':')
|
|
|
+ end
|
|
|
+
|
|
|
+ return nil
|
|
|
+ end,
|
|
|
+ },
|
|
|
+}
|
|
|
+
|
|
|
+local function gen_rate_key(task, rtype, bucket)
|
|
|
+ local key_t = {tostring(lua_util.round(100000.0 / bucket.burst))}
|
|
|
+ local key_keywords = lua_util.str_split(rtype, '_')
|
|
|
+ local have_user = false
|
|
|
+
|
|
|
+ for _, v in ipairs(key_keywords) do
|
|
|
+ local ret
|
|
|
+
|
|
|
+ if keywords[v] and type(keywords[v]['get_value']) == 'function' then
|
|
|
+ ret = keywords[v]['get_value'](task)
|
|
|
+ end
|
|
|
+ if not ret then return nil end
|
|
|
+ if v == 'user' then have_user = true end
|
|
|
+ if type(ret) ~= 'string' then ret = tostring(ret) end
|
|
|
+ table.insert(key_t, ret)
|
|
|
+ end
|
|
|
+
|
|
|
+ if have_user and not task:get_user() then
|
|
|
+ return nil
|
|
|
+ end
|
|
|
+
|
|
|
+ return table.concat(key_t, ":")
|
|
|
+end
|
|
|
+
|
|
|
+local function make_prefix(redis_key, name, bucket)
|
|
|
+ local hash_len = 24
|
|
|
+ if hash_len > #redis_key then hash_len = #redis_key end
|
|
|
+ local hash = settings.prefix ..
|
|
|
+ string.sub(rspamd_hash.create(redis_key):base32(), 1, hash_len)
|
|
|
+ -- Fill defaults
|
|
|
+ if not bucket.spam_factor_rate then
|
|
|
+ bucket.spam_factor_rate = settings.spam_factor_rate
|
|
|
+ end
|
|
|
+ if not bucket.ham_factor_rate then
|
|
|
+ bucket.ham_factor_rate = settings.ham_factor_rate
|
|
|
+ end
|
|
|
+ if not bucket.spam_factor_burst then
|
|
|
+ bucket.spam_factor_burst = settings.spam_factor_burst
|
|
|
+ end
|
|
|
+ if not bucket.ham_factor_burst then
|
|
|
+ bucket.ham_factor_burst = settings.ham_factor_burst
|
|
|
+ end
|
|
|
+
|
|
|
+ return {
|
|
|
+ bucket = bucket,
|
|
|
+ name = name,
|
|
|
+ hash = hash
|
|
|
+ }
|
|
|
+end
|
|
|
+
|
|
|
+local function limit_to_prefixes(task, k, v, prefixes)
|
|
|
+ local n = 0
|
|
|
+ for _,bucket in ipairs(v.buckets) do
|
|
|
+ if v.selector then
|
|
|
+ local selectors = lua_selectors.process_selectors(task, v.selector)
|
|
|
+ if selectors then
|
|
|
+ local combined = lua_selectors.combine_selectors(task, selectors, ':')
|
|
|
+ if type(combined) == 'string' then
|
|
|
+ prefixes[combined] = make_prefix(combined, k, bucket)
|
|
|
+ n = n + 1
|
|
|
+ else
|
|
|
+ fun.each(function(p)
|
|
|
+ prefixes[p] = make_prefix(p, k, bucket)
|
|
|
+ n = n + 1
|
|
|
+ end, combined)
|
|
|
+ end
|
|
|
+ end
|
|
|
+ else
|
|
|
+ local prefix = gen_rate_key(task, k, bucket)
|
|
|
+ if prefix then
|
|
|
+ if type(prefix) == 'string' then
|
|
|
+ prefixes[prefix] = make_prefix(prefix, k, bucket)
|
|
|
+ n = n + 1
|
|
|
+ else
|
|
|
+ fun.each(function(p)
|
|
|
+ prefixes[p] = make_prefix(p, k, bucket)
|
|
|
+ n = n + 1
|
|
|
+ end, prefix)
|
|
|
+ end
|
|
|
+ end
|
|
|
+ end
|
|
|
+ end
|
|
|
+
|
|
|
+ return n
|
|
|
+end
|
|
|
+
|
|
|
+local function ratelimit_cb(task)
|
|
|
+ if not settings.allow_local and
|
|
|
+ rspamd_lua_utils.is_rspamc_or_controller(task) then return end
|
|
|
+
|
|
|
+ -- Get initial task data
|
|
|
+ local ip = task:get_from_ip()
|
|
|
+ if ip and ip:is_valid() and settings.whitelisted_ip then
|
|
|
+ if settings.whitelisted_ip:get_key(ip) then
|
|
|
+ -- Do not check whitelisted ip
|
|
|
+ rspamd_logger.infox(task, 'skip ratelimit for whitelisted IP')
|
|
|
+ return
|
|
|
+ end
|
|
|
+ end
|
|
|
+ -- Parse all rcpts
|
|
|
+ local rcpts = task:get_recipients()
|
|
|
+ local rcpts_user = {}
|
|
|
+ if rcpts then
|
|
|
+ fun.each(function(r)
|
|
|
+ fun.each(function(type) table.insert(rcpts_user, r[type]) end, {'user', 'addr'})
|
|
|
+ end, rcpts)
|
|
|
+
|
|
|
+ if fun.any(function(r) return settings.whitelisted_rcpts:get_key(r) end, rcpts_user) then
|
|
|
+ rspamd_logger.infox(task, 'skip ratelimit for whitelisted recipient')
|
|
|
+ return
|
|
|
+ end
|
|
|
+ end
|
|
|
+ -- Get user (authuser)
|
|
|
+ if settings.whitelisted_user then
|
|
|
+ local auser = task:get_user()
|
|
|
+ if settings.whitelisted_user:get_key(auser) then
|
|
|
+ rspamd_logger.infox(task, 'skip ratelimit for whitelisted user')
|
|
|
+ return
|
|
|
+ end
|
|
|
+ end
|
|
|
+ -- Now create all ratelimit prefixes
|
|
|
+ local prefixes = {}
|
|
|
+ local nprefixes = 0
|
|
|
+
|
|
|
+ for k,v in pairs(settings.limits) do
|
|
|
+ nprefixes = nprefixes + limit_to_prefixes(task, k, v, prefixes)
|
|
|
+ end
|
|
|
+
|
|
|
+ for k, hdl in pairs(settings.custom_keywords or E) do
|
|
|
+ local ret, redis_key, bd = pcall(hdl, task)
|
|
|
+
|
|
|
+ if ret then
|
|
|
+ local bucket = parse_limit(k, bd)
|
|
|
+ if bucket then
|
|
|
+ prefixes[redis_key] = make_prefix(redis_key, k, bucket)
|
|
|
+ end
|
|
|
+ nprefixes = nprefixes + 1
|
|
|
+ else
|
|
|
+ rspamd_logger.errx(task, 'cannot call handler for %s: %s',
|
|
|
+ k, redis_key)
|
|
|
+ end
|
|
|
+ end
|
|
|
+
|
|
|
+ local function gen_check_cb(prefix, bucket, lim_name, lim_key)
|
|
|
+ return function(err, data)
|
|
|
+ if err then
|
|
|
+ rspamd_logger.errx('cannot check limit %s: %s %s', prefix, err, data)
|
|
|
+ elseif type(data) == 'table' and data[1] then
|
|
|
+ lua_util.debugm(N, task,
|
|
|
+ "got reply for limit %s (%s / %s); %s burst, %s:%s dyn, %s leaked",
|
|
|
+ prefix, bucket.burst, bucket.rate,
|
|
|
+ data[2], data[3], data[4], data[5])
|
|
|
+
|
|
|
+ if data[1] == 1 then
|
|
|
+ -- set symbol only and do NOT soft reject
|
|
|
+ if settings.symbol then
|
|
|
+ task:insert_result(settings.symbol, 0.0,
|
|
|
+ string.format('%s(%s)', lim_name, lim_key))
|
|
|
+ rspamd_logger.infox(task,
|
|
|
+ 'set_symbol_only: ratelimit "%s(%s)" exceeded, (%s / %s): %s (%s:%s dyn); redis key: %s',
|
|
|
+ lim_name, prefix,
|
|
|
+ bucket.burst, bucket.rate,
|
|
|
+ data[2], data[3], data[4], lim_key)
|
|
|
+ return
|
|
|
+ -- set INFO symbol and soft reject
|
|
|
+ elseif settings.info_symbol then
|
|
|
+ task:insert_result(settings.info_symbol, 1.0,
|
|
|
+ string.format('%s(%s)', lim_name, lim_key))
|
|
|
+ end
|
|
|
+ rspamd_logger.infox(task,
|
|
|
+ 'ratelimit "%s(%s)" exceeded, (%s / %s): %s (%s:%s dyn); redis key: %s',
|
|
|
+ lim_name, prefix,
|
|
|
+ bucket.burst, bucket.rate,
|
|
|
+ data[2], data[3], data[4], lim_key)
|
|
|
+ task:set_pre_result('soft reject',
|
|
|
+ message_func(task, lim_name, prefix, bucket, lim_key), N)
|
|
|
+ end
|
|
|
+ end
|
|
|
+ end
|
|
|
+ end
|
|
|
+
|
|
|
+ -- Don't do anything if pre-result has been already set
|
|
|
+ if task:has_pre_result() then return end
|
|
|
+
|
|
|
+ if nprefixes > 0 then
|
|
|
+ -- Save prefixes to the cache to allow update
|
|
|
+ task:cache_set('ratelimit_prefixes', prefixes)
|
|
|
+ local now = rspamd_util.get_time()
|
|
|
+ now = lua_util.round(now * 1000.0) -- Get milliseconds
|
|
|
+ -- Now call check script for all defined prefixes
|
|
|
+
|
|
|
+ for pr,value in pairs(prefixes) do
|
|
|
+ local bucket = value.bucket
|
|
|
+ local rate = (bucket.rate) / 1000.0 -- Leak rate in messages/ms
|
|
|
+ lua_util.debugm(N, task, "check limit %s:%s -> %s (%s/%s)",
|
|
|
+ value.name, pr, value.hash, bucket.burst, bucket.rate)
|
|
|
+ lua_redis.exec_redis_script(bucket_check_id,
|
|
|
+ {key = value.hash, task = task, is_write = true},
|
|
|
+ gen_check_cb(pr, bucket, value.name, value.hash),
|
|
|
+ {value.hash, tostring(now), tostring(rate), tostring(bucket.burst),
|
|
|
+ tostring(settings.expire)})
|
|
|
+ end
|
|
|
+ end
|
|
|
+end
|
|
|
+
|
|
|
+local function ratelimit_update_cb(task)
|
|
|
+ if task:has_flag('skip') then return end
|
|
|
+ if not settings.allow_local and lua_util.is_rspamc_or_controller(task) then return end
|
|
|
+ local prefixes = task:cache_get('ratelimit_prefixes')
|
|
|
+
|
|
|
+ if prefixes then
|
|
|
+ if task:has_pre_result() then
|
|
|
+ -- Already rate limited/greylisted, do nothing
|
|
|
+ lua_util.debugm(N, task, 'pre-action has been set, do not update')
|
|
|
+ return
|
|
|
+ end
|
|
|
+
|
|
|
+ local verdict = lua_util.get_task_verdict(task)
|
|
|
+
|
|
|
+ -- Update each bucket
|
|
|
+ for k, v in pairs(prefixes) do
|
|
|
+ local bucket = v.bucket
|
|
|
+ local function update_bucket_cb(err, data)
|
|
|
+ if err then
|
|
|
+ rspamd_logger.errx(task, 'cannot update rate bucket %s: %s',
|
|
|
+ k, err)
|
|
|
+ else
|
|
|
+ lua_util.debugm(N, task,
|
|
|
+ "updated limit %s:%s -> %s (%s/%s), burst: %s, dyn_rate: %s, dyn_burst: %s",
|
|
|
+ v.name, k, v.hash,
|
|
|
+ bucket.burst, bucket.rate,
|
|
|
+ data[1], data[2], data[3])
|
|
|
+ end
|
|
|
+ end
|
|
|
+ local now = rspamd_util.get_time()
|
|
|
+ now = lua_util.round(now * 1000.0) -- Get milliseconds
|
|
|
+ local mult_burst = 1.0
|
|
|
+ local mult_rate = 1.0
|
|
|
+
|
|
|
+ if verdict == 'spam' or verdict == 'junk' then
|
|
|
+ mult_burst = bucket.spam_factor_burst or 1.0
|
|
|
+ mult_rate = bucket.spam_factor_rate or 1.0
|
|
|
+ elseif verdict == 'ham' then
|
|
|
+ mult_burst = bucket.ham_factor_burst or 1.0
|
|
|
+ mult_rate = bucket.ham_factor_rate or 1.0
|
|
|
+ end
|
|
|
+
|
|
|
+ lua_redis.exec_redis_script(bucket_update_id,
|
|
|
+ {key = v.hash, task = task, is_write = true},
|
|
|
+ update_bucket_cb,
|
|
|
+ {v.hash, tostring(now), tostring(mult_rate), tostring(mult_burst),
|
|
|
+ tostring(settings.max_rate_mult), tostring(settings.max_bucket_mult),
|
|
|
+ tostring(settings.expire)})
|
|
|
+ end
|
|
|
+ end
|
|
|
+end
|
|
|
+
|
|
|
+local opts = rspamd_config:get_all_opt(N)
|
|
|
+if opts then
|
|
|
+
|
|
|
+ settings = lua_util.override_defaults(settings, opts)
|
|
|
+
|
|
|
+ if opts['limit'] then
|
|
|
+ rspamd_logger.errx(rspamd_config, 'Legacy ratelimit config format no longer supported')
|
|
|
+ end
|
|
|
+
|
|
|
+ if opts['rates'] and type(opts['rates']) == 'table' then
|
|
|
+ -- new way of setting limits
|
|
|
+ fun.each(function(t, lim)
|
|
|
+ local buckets = {}
|
|
|
+
|
|
|
+ if type(lim) == 'table' and lim.bucket then
|
|
|
+
|
|
|
+ if lim.bucket[1] then
|
|
|
+ for _,bucket in ipairs(lim.bucket) do
|
|
|
+ local b = parse_limit(t, bucket)
|
|
|
+
|
|
|
+ if not b then
|
|
|
+ rspamd_logger.errx(rspamd_config, 'bad ratelimit bucket for %s: "%s"',
|
|
|
+ t, b)
|
|
|
+ return
|
|
|
+ end
|
|
|
+
|
|
|
+ table.insert(buckets, b)
|
|
|
+ end
|
|
|
+ else
|
|
|
+ local bucket = parse_limit(t, lim.bucket)
|
|
|
+
|
|
|
+ if not bucket then
|
|
|
+ rspamd_logger.errx(rspamd_config, 'bad ratelimit bucket for %s: "%s"',
|
|
|
+ t, lim.bucket)
|
|
|
+ return
|
|
|
+ end
|
|
|
+
|
|
|
+ buckets = {bucket}
|
|
|
+ end
|
|
|
+
|
|
|
+ settings.limits[t] = {
|
|
|
+ buckets = buckets
|
|
|
+ }
|
|
|
+
|
|
|
+ if lim.selector then
|
|
|
+ local selector = lua_selectors.parse_selector(rspamd_config, lim.selector)
|
|
|
+ if not selector then
|
|
|
+ rspamd_logger.errx(rspamd_config, 'bad ratelimit selector for %s: "%s"',
|
|
|
+ t, lim.selector)
|
|
|
+ settings.limits[t] = nil
|
|
|
+ return
|
|
|
+ end
|
|
|
+
|
|
|
+ settings.limits[t].selector = selector
|
|
|
+ end
|
|
|
+ else
|
|
|
+ rspamd_logger.warnx(rspamd_config, 'old syntax for ratelimits: %s', lim)
|
|
|
+ buckets = parse_limit(t, lim)
|
|
|
+ if buckets then
|
|
|
+ settings.limits[t] = {
|
|
|
+ buckets = {buckets}
|
|
|
+ }
|
|
|
+ end
|
|
|
+ end
|
|
|
+ end, opts['rates'])
|
|
|
+ end
|
|
|
+
|
|
|
+ -- Display what's enabled
|
|
|
+ fun.each(function(s)
|
|
|
+ rspamd_logger.infox(rspamd_config, 'enabled ratelimit: %s', s)
|
|
|
+ end, fun.map(function(n,d)
|
|
|
+ return string.format('%s [%s]', n,
|
|
|
+ table.concat(fun.totable(fun.map(function(v)
|
|
|
+ return string.format('%s msgs burst, %s msgs/sec rate',
|
|
|
+ v.burst, v.rate)
|
|
|
+ end, d.buckets)), '; ')
|
|
|
+ )
|
|
|
+ end, settings.limits))
|
|
|
+
|
|
|
+ -- Ret, ret, ret: stupid legacy stuff:
|
|
|
+ -- If we have a string with commas then load it as as static map
|
|
|
+ -- otherwise, apply normal logic of Rspamd maps
|
|
|
+
|
|
|
+ local wrcpts = opts['whitelisted_rcpts']
|
|
|
+ if type(wrcpts) == 'string' then
|
|
|
+ if string.find(wrcpts, ',') then
|
|
|
+ settings.whitelisted_rcpts = lua_maps.rspamd_map_add_from_ucl(
|
|
|
+ lua_util.rspamd_str_split(wrcpts, ','), 'set', 'Ratelimit whitelisted rcpts')
|
|
|
+ else
|
|
|
+ settings.whitelisted_rcpts = lua_maps.rspamd_map_add_from_ucl(wrcpts, 'set',
|
|
|
+ 'Ratelimit whitelisted rcpts')
|
|
|
+ end
|
|
|
+ elseif type(opts['whitelisted_rcpts']) == 'table' then
|
|
|
+ settings.whitelisted_rcpts = lua_maps.rspamd_map_add_from_ucl(wrcpts, 'set',
|
|
|
+ 'Ratelimit whitelisted rcpts')
|
|
|
+ else
|
|
|
+ -- Stupid default...
|
|
|
+ settings.whitelisted_rcpts = lua_maps.rspamd_map_add_from_ucl(
|
|
|
+ settings.whitelisted_rcpts, 'set', 'Ratelimit whitelisted rcpts')
|
|
|
+ end
|
|
|
+
|
|
|
+ if opts['whitelisted_ip'] then
|
|
|
+ settings.whitelisted_ip = lua_maps.rspamd_map_add('ratelimit', 'whitelisted_ip', 'radix',
|
|
|
+ 'Ratelimit whitelist ip map')
|
|
|
+ end
|
|
|
+
|
|
|
+ if opts['whitelisted_user'] then
|
|
|
+ settings.whitelisted_user = lua_maps.rspamd_map_add('ratelimit', 'whitelisted_user', 'set',
|
|
|
+ 'Ratelimit whitelist user map')
|
|
|
+ end
|
|
|
+
|
|
|
+ settings.custom_keywords = {}
|
|
|
+ if opts['custom_keywords'] then
|
|
|
+ local ret, res_or_err = pcall(loadfile(opts['custom_keywords']))
|
|
|
+
|
|
|
+ if ret then
|
|
|
+ opts['custom_keywords'] = {}
|
|
|
+ if type(res_or_err) == 'table' then
|
|
|
+ for k,hdl in pairs(res_or_err) do
|
|
|
+ settings['custom_keywords'][k] = hdl
|
|
|
+ end
|
|
|
+ elseif type(res_or_err) == 'function' then
|
|
|
+ settings['custom_keywords']['custom'] = res_or_err
|
|
|
+ end
|
|
|
+ else
|
|
|
+ rspamd_logger.errx(rspamd_config, 'cannot execute %s: %s',
|
|
|
+ opts['custom_keywords'], res_or_err)
|
|
|
+ settings['custom_keywords'] = {}
|
|
|
+ end
|
|
|
+ end
|
|
|
+
|
|
|
+ if opts['message_func'] then
|
|
|
+ message_func = assert(load(opts['message_func']))()
|
|
|
+ end
|
|
|
+
|
|
|
+ redis_params = lua_redis.parse_redis_server('ratelimit')
|
|
|
+
|
|
|
+ if not redis_params then
|
|
|
+ rspamd_logger.infox(rspamd_config, 'no servers are specified, disabling module')
|
|
|
+ lua_util.disable_module(N, "redis")
|
|
|
+ else
|
|
|
+ local s = {
|
|
|
+ type = 'prefilter,nostat',
|
|
|
+ name = 'RATELIMIT_CHECK',
|
|
|
+ priority = 7,
|
|
|
+ callback = ratelimit_cb,
|
|
|
+ flags = 'empty',
|
|
|
+ }
|
|
|
+
|
|
|
+ if settings.symbol then
|
|
|
+ s.name = settings.symbol
|
|
|
+ elseif settings.info_symbol then
|
|
|
+ s.name = settings.info_symbol
|
|
|
+ end
|
|
|
+
|
|
|
+ rspamd_config:register_symbol(s)
|
|
|
+ rspamd_config:register_symbol {
|
|
|
+ type = 'idempotent',
|
|
|
+ name = 'RATELIMIT_UPDATE',
|
|
|
+ callback = ratelimit_update_cb,
|
|
|
+ }
|
|
|
+ end
|
|
|
+end
|
|
|
+
|
|
|
+rspamd_config:add_on_load(function(cfg, ev_base, worker)
|
|
|
+ load_scripts(cfg, ev_base)
|
|
|
+end)
|