/*------------------------------------------------------------------------------
 *
 * Copyright (c) 2011-2016, EURid. All rights reserved.
 * The YADIFA TM software product is provided under the BSD 3-clause license:
 * 
 * Redistribution and use in source and binary forms, with or without 
 * modification, are permitted provided that the following conditions
 * are met:
 *
 *        * Redistributions of source code must retain the above copyright 
 *          notice, this list of conditions and the following disclaimer.
 *        * Redistributions in binary form must reproduce the above copyright 
 *          notice, this list of conditions and the following disclaimer in the 
 *          documentation and/or other materials provided with the distribution.
 *        * Neither the name of EURid nor the names of its contributors may be 
 *          used to endorse or promote products derived from this software 
 *          without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 
 * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 
 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 
 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 
 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 * POSSIBILITY OF SUCH DAMAGE.
 *
 *------------------------------------------------------------------------------
 *
 */
/** @defgroup 
 *  @ingroup yadifad
 *  @brief 
 *
 *  
 *
 * @{
 *
 *----------------------------------------------------------------------------*/

#include "server-config.h"
#include "config.h"

#include <stdio.h>
#include <stdlib.h>
#include <netdb.h>
#include <netinet/in.h>

#include <dnscore/random.h>
#include <dnscore/rfc.h>
#include <dnscore/logger.h>
#include <dnscore/format.h>
#include <dnscore/mutex.h>
#include <dnscore/ptr_vector.h>
#include <dnscore/config_settings.h>

#include "rrl.h"
#include "acl.h"
#include "config_acl.h"

extern logger_handle *g_server_logger;
#define MODULE_MSG_HANDLE g_server_logger

#define EPOCH_PRECISION 6

#define ONE_SECOND_TICKS (1 << EPOCH_PRECISION)

#define RRLITEM_TAG 0x4d4554494c5252

struct rrl_settings_s
{
    u32 responses_per_second;   // 5
    u32 errors_per_second;      // 5
    
    u32 window;                 // 15
    u32 slip;                   // 2
    
    s32 max_table_size;         // 10000
    s32 min_table_size;         // 1000
    u32 window_ticks;
    
    address_match_set exempted;
    
    acl_check_access_filter_callback *exempted_filter;
    u64 ipv6_prefix_mask_high;
    u64 ipv6_prefix_mask_low;
    u32 ipv4_prefix_mask;
    s32 drop_default;           // RRL_DROP except in log_only where it is RRL_PROCEED_DROP
    u8  ipv4_prefix_length;     // 24
    u8  ipv6_prefix_length;     // 
    bool log_only;              // false
    bool enabled;
};

typedef struct rrl_settings_s rrl_settings_s;

#define CONFIG_TYPE rrl_settings_s
#include "acl.h"
CONFIG_BEGIN(config_rrl_desc)
CONFIG_U32(responses_per_second, TOSTRING(RRL_RESPONSES_PER_SECOND_DEFAULT))
CONFIG_U32(errors_per_second, TOSTRING(RRL_ERRORS_PER_SECOND_DEFAULT))
CONFIG_U32(window, TOSTRING(RRL_WINDOW_DEFAULT))
CONFIG_U32(slip, TOSTRING(RRL_SLIP_DEFAULT))
CONFIG_U32(max_table_size, TOSTRING(RRL_QUEUE_SIZE_MAX_DEFAULT))
CONFIG_U32(min_table_size, TOSTRING(RRL_QUEUE_SIZE_MIN_DEFAULT))
CONFIG_U8(ipv4_prefix_length, TOSTRING(RRL_IPV4_PREFIX_LENGTH_DEFAULT))
CONFIG_U8(ipv6_prefix_length, TOSTRING(RRL_IPV6_PREFIX_LENGTH_DEFAULT))
CONFIG_BOOL(log_only, TOSTRING(RRL_LOG_ONLY_DEFAULT))
CONFIG_BOOL(enabled, TOSTRING(RRL_ENABLED_DEFAULT))
CONFIG_ACL_FILTER(exempted, RRL_EXEMPTED_DEFAULT)
/* alias, aliased */
CONFIG_ALIAS(exempt-clients, exempted)
CONFIG_ALIAS(enable, enabled)
CONFIG_END(config_rrl_desc)
#undef CONFIG_TYPE

static mutex_t rrl_mtx;
static random_ctx g_rrl_rnd;
static struct rrl_settings_s g_rrl_settings;
static ptr_vector g_rrl_list = EMPTY_PTR_VECTOR;
static u64 g_rrl_start = 0;
static u32 g_rrl_slip_bucket = 0;
static s8 g_rrl_slip_bucket_bits = 0;

static ya_result
config_rrl_section_postprocess(struct config_section_descriptor_s *csd)
{
    (void)csd;
    
    g_rrl_settings.window_ticks = g_rrl_settings.window * ONE_SECOND_TICKS;
    
    g_rrl_settings.exempted_filter = acl_get_check_access_filter(&g_rrl_settings.exempted);

    if(g_rrl_settings.ipv4_prefix_length == 0)
    {
        log_warn("ipv4-prefix-lenght set to 0, setting to recommended value: " TOSTRING(RRL_IPV4_PREFIX_LENGTH_DEFAULT));
        g_rrl_settings.ipv4_prefix_length = RRL_IPV4_PREFIX_LENGTH_DEFAULT;
    }
        
    if(g_rrl_settings.ipv4_prefix_length < 32)
    {
        u32 mask = MAX_U32 << (32 - g_rrl_settings.ipv4_prefix_length);
        g_rrl_settings.ipv4_prefix_mask = htonl(mask);
    }
    else
    {
        log_warn("ipv4-prefix-lenght is wrong, setting to 32");
        g_rrl_settings.ipv4_prefix_length = 32;
        g_rrl_settings.ipv4_prefix_mask = MAX_U32;
    }
    
    u64 mask_h, mask_l;
    
    if(g_rrl_settings.ipv6_prefix_length == 0)
    {
        log_warn("ipv6-prefix-lenght set to 0, setting to recommended value: " TOSTRING(RRL_IPV6_PREFIX_LENGTH_DEFAULT));
        g_rrl_settings.ipv6_prefix_length = RRL_IPV6_PREFIX_LENGTH_DEFAULT;
    }
    
    if(g_rrl_settings.ipv6_prefix_length < 128) // [1;127]
    {
        if(g_rrl_settings.ipv6_prefix_length <= 64) // [1;64]
        {
            mask_h = MAX_U64 << (64 - g_rrl_settings.ipv6_prefix_length); // shift [63; 0]
            mask_l = 0;
        }
        else // [65;127]
        {
            mask_h = MAX_U64;
            mask_l = MAX_U64 << (128 - g_rrl_settings.ipv6_prefix_length); // shift [63; 1]
        }
    }
    else
    {
        log_warn("ipv6-prefix-lenght is wrong, setting to 128");
        
        g_rrl_settings.ipv6_prefix_length = 128;
        mask_h = MAX_U64;
        mask_l = MAX_U64;
    }
        
    g_rrl_settings.ipv6_prefix_mask_high = htobe64(mask_h);
    g_rrl_settings.ipv6_prefix_mask_low = htobe64(mask_l);
    
    if(g_rrl_settings.min_table_size < RRL_QUEUE_SIZE_MIN)
    {
        log_warn("min-table-size too low, set to %d",
            g_rrl_settings.min_table_size = RRL_QUEUE_SIZE_MIN);
    }
    else if(g_rrl_settings.min_table_size > RRL_QUEUE_SIZE_MAX)
    {
        log_warn("min-table-size too high, set to %d",
            g_rrl_settings.min_table_size = RRL_QUEUE_SIZE_MAX);
    }
    
    if(g_rrl_settings.max_table_size < RRL_QUEUE_SIZE_MIN)
    {
        log_warn("max-table-size too low, set to %d",
            g_rrl_settings.max_table_size = RRL_QUEUE_SIZE_MIN);
    }
    else if(g_rrl_settings.max_table_size > RRL_QUEUE_SIZE_MAX)
    {
        log_warn("max-table-size too high, set to %d",
            g_rrl_settings.max_table_size = RRL_QUEUE_SIZE_MAX);
    }
    
    if(g_rrl_settings.min_table_size > g_rrl_settings.max_table_size)
    {
        log_warn("min-table-size > max-table-size (%d > %d) setting min-table-size to %d instead",
            g_rrl_settings.min_table_size, g_rrl_settings.max_table_size, g_rrl_settings.max_table_size);
    }
    
    ptr_vector_resize(&g_rrl_list, g_rrl_settings.min_table_size);
    
    g_rrl_settings.drop_default = (g_rrl_settings.log_only)?RRL_PROCEED_DROP:RRL_DROP;
    
    return SUCCESS;
}

ya_result
config_register_rrl(s32 priority)
{

    const char *section_name = "rrl";
    
    ya_result return_code = config_register_struct(section_name, config_rrl_desc, &g_rrl_settings, priority);
    if(ISOK(return_code))
    {    
        // hook a new finaliser before the standard one
        
        config_section_descriptor_s *section_desc = config_section_get_descriptor(section_name);
        config_section_descriptor_vtbl_s *vtbl = (config_section_descriptor_vtbl_s *)section_desc->vtbl;
        vtbl->postprocess = config_rrl_section_postprocess;
    }
    
    return return_code;
}

/*
 * The item will be dynamic in size
 * the key being error_mask_ip_imputed_name, crafter every time for a (fast) memcmp comparison
 * The key should be a multiple of 8 bytes, padded with 0 (faster memcmp)
 * 
 * The epoch should cover enough time.
 * It should have an imprecision lower than the second.
 * We can have it covering only a few minutes (8: 25.5, 16: 655.35, ...)
 * There is 32 bits available for a fast structure so I plan to simply use an epoch based on the start-time of the server.
 * The (currentTime - serverStartTime) >> 4 would give an acceptable precision (1/16 of a second) and cover 3106.89 days or 8.5 years
 * The (currentTime - serverStartTime) >> 6 would give an acceptable precision (1/64 of a second) and cover 776.72 days or 2.1 years
 * In the unlikely event the server is not restarted once before the covered time, the table would be flushed out and the serverStartTime reset
 * to the current time.
 */

struct rrl_item_s;

struct rrl_item_children
{
    struct rrl_item_s *left;
    struct rrl_item_s *right;
};

union rrl_item_children_union
{
    struct rrl_item_children lr;
    struct rrl_item_s *child[2];
};

/*
 * error_mask_ip_imputed_name format:
 * [ 0] : E000IPSZ
 * E    : 1 = error, 0 = ok
 * IPSZ : number of bytes for the IP
 * 1 + 4 + name_length
 * 
 * That was the first idea anyway ... now I settled for:
 * 
 * [ 0      1 ] native endian 16 bits header
 * [ 2 ..   ? ] IP bytes
 * [ ? .. n-1 ] NAME bytes
 * 
 * header: [ E??????S SSSSSSSS ]
 * E: the msb is used to tell if it's an error or not
 * S: 9 bits are used to store the total size of the key (so the two first bytes included)
 * 
 */

struct rrl_item_s
{
    union rrl_item_children_union children; // 128  64                  // AVL
    
    u32 timestamp;                          // 160  96
    u32 lasttimestamp;                      //
    
    s32 hits;                               // 
    s8  balance;                            //                          // AVL
    u8  reserved0;                          // alignment
    u16 slip_countdown;
    
    u8  error_mask_ip_imputed_name[1];      // max 1 + 16 + 255 = 272
};                                          // max 280 bytes

#define RRL_KEY_SIZE_MAX (1+1+16+MAX_DOMAIN_LENGTH)

typedef struct rrl_item_s rrl_item_s;

static inline u32
rrl_item_key_size(const u8 *key)
{
    u32 size = GET_U16_AT(key[0]) & 0x1ff;
    
    return size;
}

static inline u32
rrl_item_size_for_key(const u8 *key)
{
    u32 size = rrl_item_key_size(key);
    
    size += sizeof(rrl_item_s) - 1; // -1 because the key takes originally 1 byte in the struct definition
    
    return size;
}

static inline u32
rrl_item_size(const rrl_item_s* rrl)
{
    u32 size = rrl_item_size_for_key(rrl->error_mask_ip_imputed_name);
    
    return size;
}

static inline bool
rrl_key_is_error(const u8 *key)
{
    bool iserror = (GET_U16_AT(key[0]) & 0x8000) != 0;
    
    return iserror;
}

/*
 * out_key must be at least 1 + 1 + 16 + 255 bytes long
 * 
 * returns the size of the key
 */

static inline u32
rrl_make_key(const message_data *mesg, const zdb_query_ex_answer *ans_auth_add, u8 *out_key)
{
    u8 *tgt;
    const u8 *src;
    u32 size;
    u32 flags = 0;
    
    if(mesg->other.sa.sa_family ==  AF_INET)
    {
        size = 4;
        
        u32 ip = mesg->other.sa4.sin_addr.s_addr;
        ip &= g_rrl_settings.ipv4_prefix_mask;
        SET_U32_AT(out_key[2], ip);
        
        tgt = &out_key[6];
    }
    else
    {
        size = 16;
        
        u64 iph = GET_U64_AT(((u64*)&mesg->other.sa6.sin6_addr)[0]);
        iph &= g_rrl_settings.ipv6_prefix_mask_high;
        SET_U64_AT(out_key[ 2], iph);
        
        u64 ipl = GET_U64_AT(((u64*)&mesg->other.sa6.sin6_addr)[1]);
        ipl &= g_rrl_settings.ipv6_prefix_mask_low;
        SET_U64_AT(out_key[10], ipl);
        
        tgt = &out_key[18];
        flags |= 0x2000;
    }
    
    // note: wildcard names are not handled (yet)
    
    switch(mesg->status)
    {
        case RCODE_NOERROR:
        {
            // take the answer
            if(ans_auth_add->delegation == 0)
            {
                src = mesg->qname; // query name
            }
            else
            {
                yassert(ans_auth_add->authority != NULL);
                
                src = ans_auth_add->authority->name;
            }
            break;
        }
        case RCODE_NXDOMAIN:
        {
            flags |= 0x8000; // note: if we want to have a different key for NXDOMAIN and other errors, we can use 0xc000 instead
            if(ans_auth_add->authority != NULL)
            {
                src = ans_auth_add->authority->name;
            }
            else
            {
                src = mesg->qname;
            }
            break;
        }
        // case wildcard name ?
        default:
        {
            flags = 0x8000;
            src = mesg->qname; // query name
        }
    }
    
    size += dnsname_copy(tgt, src);
    size += 2;
    
    SET_U16_AT(out_key[0], size | flags);
    
    return size;
}

static inline void
rrl_set_key(rrl_item_s *rrl, const u8 *key)
{
    u32 key_size = GET_U16_AT(key[0]);
    
    key_size &= 0x01ff;
    
    memcpy(rrl->error_mask_ip_imputed_name, key, key_size);
}

static rrl_item_s*
rrl_alloc(const u8 *key)
{
    rrl_item_s *item;
    ZALLOC_ARRAY_OR_DIE(rrl_item_s*, item, rrl_item_size_for_key(key), RRLITEM_TAG);
    item->timestamp = 0;
    item->hits = 0;
    item->slip_countdown = 0;
    SET_U16_AT(item->error_mask_ip_imputed_name[0], 0);
    return item;
}

static void
rrl_free(rrl_item_s *item)
{
    /*
     * This assert is wrong because this is actually the payload that has just overwritten our node
     * assert(node->rc == 0 && node->sc == 0 && node->label.owners == NULL && node->star_label.owners == NULL & node->type_bit_maps == NULL);
     */
    ZFREE_ARRAY(item, rrl_item_size(item));
}

#ifdef AVL_DOES_NOT_DO_PAYLOAD_COPY_ANYMORE
static void
rrl_payload_copy(rrl_item_s *a, const rrl_item_s *b)
{
    a->timestamp = b->timestamp;
    a->lasttimestamp = b->lasttimestamp;
    a->hits = b->hits;
    a->slip_countdown = b->slip_countdown;
    yassert(rrl_item_size(a) == rrl_item_size(b));
    memcpy(a->error_mask_ip_imputed_name, b->error_mask_ip_imputed_name, rrl_item_size(a));
}
#endif

/*
 * AVL definition part begins here
 */

/*
 * The maximum depth of a tree.
 * 40 is enough for storing 433494436 items (worst case)
 *
 * Depth 0 is one node.
 *
 * Worst case : N is enough for sum[n = 0,N](Fn) where F is Fibonacci
 * Best case : N is enough for (2^(N+1))-1
 */
#define AVL_MAX_DEPTH   32 /* 9227464 items max */

/*
 * The previx that will be put in front of each function name
 */
#define AVL_PREFIX	rrl_

/*
 * The type that hold the node
 */
#define AVL_NODE_TYPE   rrl_item_s

/*
 * The type that hold the tree (should be AVL_NODE_TYPE*)
 */
#define AVL_TREE_TYPE   AVL_NODE_TYPE*

typedef AVL_TREE_TYPE rrl_set_s;

/*
 * The type that hold the tree (should be AVL_NODE_TYPE*)
 */
#define AVL_CONST_TREE_TYPE AVL_NODE_TYPE* const

/*
 * How to find the root in the tree
 */
#define AVL_TREE_ROOT(__tree__) (*(__tree__))

/*
 * The type used for comparing the nodes.
 */
#define AVL_REFERENCE_TYPE u8*
#define AVL_REFERENCE_IS_POINTER TRUE
#define AVL_REFERENCE_IS_CONST FALSE

/*
 * The node has got a pointer to its parent
 *
 * 0   : disable
 * !=0 : enable
 */
#define AVL_HAS_PARENT_POINTER 0

#include <dnscore/avl.h.inc>

/*
 * Access to the field that points to the left child
 *
 */
#define AVL_LEFT_CHILD(node) ((node)->children.lr.left)
/*
 * Access to the field that points to the right child
 */
#define AVL_RIGHT_CHILD(node) ((node)->children.lr.right)
/*
 * Access to the field that points to one of the children (0: left, 1: right)
 */
#define AVL_CHILD(node,id) ((node)->children.child[(id)])
/*
 * OPTIONAL : Access to the field that points the parent of the node.
 *
 * This field is optional but is mandatory if AVL_HAS_PARENT_POINTER is not 0
 */
//#define AVL_PARENT(node) ((node)->parent)
/*
 * Access to the field that keeps the balance (a signed byte)
 */
#define AVL_BALANCE(node) ((node)->balance)
/*
 * The type used for comparing the nodes.
 */
#define AVL_REFERENCE_TYPE u8*
/*
 *
 */

#define AVL_REFERENCE_FORMAT_STRING "%p"
#define AVL_REFERENCE_FORMAT(reference) reference

/*
 * A macro to initialize a node and setting the reference
 */
#define AVL_INIT_NODE(node,reference) rrl_set_key((node), reference)
/*
 * A macro to allocate a new node
 */
#define AVL_ALLOC_NODE(node,reference) node = rrl_alloc(reference)
	

/*
 * A macro to free a node allocated by ALLOC_NODE
 */

#define AVL_FREE_NODE(node) rrl_free(node)
/*
 * A macro to print the node
 */
#define AVL_DUMP_NODE(node) format("node@%p",(node));
/*
 * A macro that returns the reference field of the node.
 * It must be of type REFERENCE_TYPE
 */
#define AVL_REFERENCE(node) (node)->error_mask_ip_imputed_name
/*
 * A macro to compare two references
 * Returns TRUE if and only if the references are equal.
 */
#define AVL_ISEQUAL(reference_a,reference_b) (memcmp(&(reference_a)[0],&(reference_b)[0],rrl_item_key_size(reference_a))==0)
/*
 * A macro to compare two references
 * Returns TRUE if and only if the first one is bigger than the second one.
 */
#define AVL_ISBIGGER(reference_a,reference_b) (memcmp(&(reference_a)[0],&(reference_b)[0],rrl_item_key_size(reference_a))>0)
/*
 * Copies the payload of a node
 * It MUST NOT copy the "proprietary" node fields : children, parent, balance
 * 
 * NOTE: this macro is most likely not used anymore
 */
#define AVL_COPY_PAYLOAD(node_trg,node_src) rrl_payload_copy((node_trg), (node_src))
/*
 * A macro to preprocess a node before it is preprocessed for a delete (detach)
 * If there was anything to do BEFORE deleting a node, we would do it here
 * After this macro is exectuted, the node
 * _ is detached, then deleted with FREE_NODE
 * _ has got its content overwritten by the one of another node, then the other
 *   node is deleted with FREE_NODE
 */
#define AVL_NODE_DELETE_CALLBACK(node)

#include <dnscore/avl.c.inc>

static rrl_set_s g_rrl = NULL;

static bool rrl_initialised = FALSE;

void
rrl_init()
{
    if(rrl_initialised)
    {
        return;
    }
    
    rrl_initialised = TRUE;
    
    mutex_init(&rrl_mtx);
    rrl_avl_init(&g_rrl);
    
    g_rrl_start = timeus();
    g_rrl_rnd = random_init_auto();
    g_rrl_slip_bucket = random_next(g_rrl_rnd);
    g_rrl_slip_bucket_bits = 32;
    
    /*
    u32 responses_per_tick = (5 * 1000000) >> (20 - EPOCH_PRECISION);
    u32 errors_per_tick = (5 * 1000000) >> (20 - EPOCH_PRECISION);
    u32 window_ticks = (15 * 1000000) >> (20 - EPOCH_PRECISION);
    */
}

void rrl_cull_all();

void
rrl_finalize()
{
    rrl_cull_all();
    
    rrl_avl_destroy(&g_rrl);
    mutex_destroy(&rrl_mtx);
    random_finalize(g_rrl_rnd);
    
    rrl_initialised = FALSE;
}

/**
 * 
 * Called when maybe we should slip
 * 
 * @param mesg
 * @return 
 */

static inline s32
rrl_slip(message_data *mesg)
{
    s32 return_code = RRL_DROP;
    
    // g_rrl_slip_bucket is a global random 32 bits number
    // for every slip call, its lsb is shifted out and used to ...
    // 1 : send a truncated answer
    // 0 : drop the answer
    //
    // every 32 calls, fill the bucket again with a random number
    
    if((g_rrl_slip_bucket & 1) != 0)
    {
        // slip
        
#ifdef DEBUG
        log_debug("rrl: %{sockaddrip} %{dnsname} %{dnstype} %{dnsclass}: slipping",
                &mesg->other.sa, mesg->qname, &mesg->qtype, &mesg->qclass);
#endif

        return_code = RRL_SLIP;
        
        if(!g_rrl_settings.log_only)
        {
            /**
             * Give a truncated answer
             */
            
            mesg->send_length = mesg->received;
            MESSAGE_FLAGS_OR(mesg->buffer, QR_BITS|TC_BITS, mesg->status);
            MESSAGE_SET_AN(mesg->buffer, 0);
            MESSAGE_SET_NSAR(mesg->buffer, 0);

            if(mesg->edns)
            {
                /* 00 00 29 SS SS rr vv 80 00 00 00 */

                MESSAGE_SET_AR(mesg->buffer, NETWORK_ONE_16);

                u8 *ednsrecord =  &mesg->buffer[mesg->received];

                *ednsrecord++ = 0;                              // fqdn
                SET_U16_AT(*ednsrecord, TYPE_OPT);              // type
                ednsrecord += 2;
                SET_U16_AT(*ednsrecord, htons(message_edns0_getmaxsize()));  // udp payload size
                ednsrecord += 2;
                SET_U32_AT(*ednsrecord, mesg->rcode_ext);    // edns flags
                ednsrecord += 4;
                SET_U16_AT(*ednsrecord, 0);                     // rdata size
                
                // nsid

                mesg->send_length += EDNS0_RECORD_SIZE;
            }
        }
    }
    else
    {
        if(g_rrl_settings.log_only)
        {
            return_code = RRL_PROCEED_DROP;
        }
    }
    if(--g_rrl_slip_bucket_bits > 0)
    {
        g_rrl_slip_bucket >>= 1;
    }
    else
    {
        g_rrl_slip_bucket_bits = 32;
        g_rrl_slip_bucket = random_next(g_rrl_rnd);
    }
    
    return return_code;
}

ya_result
rrl_process(message_data *mesg, const zdb_query_ex_answer *ans_auth_add)
{
    s32 return_code = RRL_PROCEED;
    
    // if the RRL is enabled and
    // if the sender is not exempted
    
    if(!g_rrl_settings.enabled || (g_rrl_settings.exempted_filter(mesg, &g_rrl_settings.exempted) > 0))
    {
        return return_code;
    }
    
    u64 now = timeus();
    u8 key[RRL_KEY_SIZE_MAX];
    rrl_make_key(mesg, ans_auth_add, key);
    
    now -= g_rrl_start;
    // it's us so about 20 bits of (im)precision
    now >>= (20 - EPOCH_PRECISION);
    
    // 1 s ~ 61.035 ticks
    
    mutex_lock(&rrl_mtx);
    
    rrl_item_s *item = rrl_avl_insert(&g_rrl, key);
    
    if(item->timestamp > 0)
    {
        s32 hits;
        s32 limit;
        
        // ensure no overflow of the 1s bucket
        
        if((now - item->lasttimestamp) >= ONE_SECOND_TICKS)
        {
            // nothing happened for 1 second, we cannot accumulate so ...
            // we cut at lasttimestamp, we remove (lasttimestamp - timestamp) * rps
            u32 tsd = (now - item->timestamp) & ~(ONE_SECOND_TICKS - 1);            
            item->timestamp += tsd;
            u32 hsd = (tsd >> EPOCH_PRECISION) * g_rrl_settings.responses_per_second;
            
#ifdef DEBUG
            log_debug("rrl: %{sockaddrip} %{dnsname} %{dnstype} %{dnsclass}: 1s bucket overflow; delta time = %d (%ds); hits adjusted from %i to %i",
                    &mesg->other.sa, mesg->qname, &mesg->qtype, &mesg->qclass,
                    tsd, tsd >> EPOCH_PRECISION, item->hits, MAX(item->hits - hsd, 0));
#endif
            
            item->hits -= hsd;
            
            if(item->hits < 0)
            {
                item->hits = 0;
                item->timestamp = now - ONE_SECOND_TICKS;
            }
            
            // tsd 
        }
        
        item->lasttimestamp = now;
        
        u32 ticks = (now - item->timestamp); // 1s + delta time (so we see for 1 second)
    
        hits = item->hits + 1;
        
        // ensure now overflow of the hits counter
            
        if(hits == MAX_U16)
        {
            // divide hits by 16
            // divide time by 16
            // adjust
            hits >>= 4;
            item->hits = hits;
            ticks >>= 4;
            item->timestamp = now - ticks;
        }
        
        // compute the current limit
        
        if(!rrl_key_is_error(key))
        {
            limit = ((g_rrl_settings.responses_per_second * ticks) >> EPOCH_PRECISION);

#ifdef DEBUG
            log_debug("rrl: %{sockaddrip} %{dnsname} %{dnstype} %{dnsclass}: %i responses with a limit of %i in %i ticks, %i/s, %is",
                    &mesg->other.sa, mesg->qname, &mesg->qtype, &mesg->qclass, hits, limit, ticks, g_rrl_settings.responses_per_second, ticks >> EPOCH_PRECISION);
#endif
        }
        else
        {
            limit = ((g_rrl_settings.errors_per_second * ticks) >> EPOCH_PRECISION);

#ifdef DEBUG
            log_debug("rrl: %{sockaddrip} %{dnsname} %{dnstype} %{dnsclass}: %i errors with a limit of %i in %i ticks, %i/s, %is",
                    &mesg->other.sa, mesg->qname, &mesg->qtype, &mesg->qclass, hits, limit, ticks, g_rrl_settings.errors_per_second, ticks >> EPOCH_PRECISION);
#endif
        }
        
        mutex_unlock(&rrl_mtx);
        
        // test if we are in the allowed rate
        
        if(hits <= limit)
        {
            item->hits = hits;
        }
        else
        {
#ifdef DEBUG
            log_debug("rrl: %{sockaddrip} %{dnsname} %{dnstype} %{dnsclass}: rate exceeded",
                    &mesg->other.sa, mesg->qname, &mesg->qtype, &mesg->qclass);
#endif
            // rate exceeded, drop ... except if we slip
            
            return_code = g_rrl_settings.drop_default;
            
            if((g_rrl_settings.slip > 0 ) && (--item->slip_countdown == 0))
            {
#ifdef DEBUG
                // pure debug
                log_debug("rrl: %{sockaddrip} %{dnsname} %{dnstype} %{dnsclass}: testing slip",
                        &mesg->other.sa, mesg->qname, &mesg->qtype, &mesg->qclass);
#endif
                item->slip_countdown = g_rrl_settings.slip;
                
                /*
                 * Every 'slip' counts, compute if we slip or drop
                 */

                if((return_code = rrl_slip(mesg)) == RRL_SLIP)
                {
                    // count it
                    
                    item->hits = hits;
                }
            }
        }
    }
    else
    {
#ifdef DEBUG
        // pure debug
        log_debug("rrl: %{sockaddrip} %{dnsname} %{dnstype} %{dnsclass}: new entry",
                &mesg->other.sa, mesg->qname, &mesg->qtype, &mesg->qclass);
#endif
        item->timestamp = now - ONE_SECOND_TICKS;
        item->lasttimestamp = now;
        item->slip_countdown = g_rrl_settings.slip;
        
        if(g_rrl_list.offset + 1 < g_rrl_settings.max_table_size)
        {
            // enough room: append
            ptr_vector_append_restrict_size(&g_rrl_list, item, g_rrl_settings.max_table_size);
        }
        else
        {
            // full: replace
            s32 victim = random_next(g_rrl_rnd) % g_rrl_settings.max_table_size;
            
            log_info("rrl: table is full (%u), removing entry #%i", g_rrl_settings.max_table_size, victim);
            
            rrl_item_s *victim_item = (rrl_item_s *)g_rrl_list.data[victim];
            
            rrl_avl_delete(&g_rrl, victim_item->error_mask_ip_imputed_name);
            
            g_rrl_list.data[victim] = item;
        }
        
        mutex_unlock(&rrl_mtx);
    }
    
    return return_code;
}

void
rrl_cull()
{
    u64 now = timeus();
    now -= g_rrl_start;
    // it's us so about 20 bits of (im)precision
    now >>= (20 - EPOCH_PRECISION);
    
    mutex_lock(&rrl_mtx);
    
    for(s32 i = 0; i <= g_rrl_list.offset; i++)
    {
        rrl_item_s *item = (rrl_item_s *)g_rrl_list.data[i];
        
        if(now - item->lasttimestamp > g_rrl_settings.window_ticks)
        {
            // put the end here (i == offset is irrelevant)
            g_rrl_list.data[i] = g_rrl_list.data[g_rrl_list.offset];
            g_rrl_list.offset--;
            
            // remove from the tree
            rrl_avl_delete(&g_rrl, item->error_mask_ip_imputed_name);
        }
    }
    
    mutex_unlock(&rrl_mtx);
}

void
rrl_cull_all()
{
    u64 now = timeus();
    now -= g_rrl_start;
    // it's us so about 20 bits of (im)precision
    now >>= (20 - EPOCH_PRECISION);
    
    mutex_lock(&rrl_mtx);
    
    for(s32 i = 0; i <= g_rrl_list.offset; i++)
    {
        rrl_item_s *item = (rrl_item_s *)g_rrl_list.data[i];        
        g_rrl_list.data[i] = g_rrl_list.data[g_rrl_list.offset];

        // remove from the tree
        rrl_avl_delete(&g_rrl, item->error_mask_ip_imputed_name);
    }
    
    g_rrl_list.offset = -1;
    
    mutex_unlock(&rrl_mtx);
}

/** @} */

/*----------------------------------------------------------------------------*/

