postlicyd/rbl.c

   1 /******************************************************************************/
   2 /*          pfixtools: a collection of postfix related tools                  */
   3 /*          ~~~~~~~~~                                                         */
   4 /*  ________________________________________________________________________  */
   5 /*                                                                            */
   6 /*  Redistribution and use in source and binary forms, with or without        */
   7 /*  modification, are permitted provided that the following conditions        */
   8 /*  are met:                                                                  */
   9 /*                                                                            */
  10 /*  1. Redistributions of source code must retain the above copyright         */
  11 /*     notice, this list of conditions and the following disclaimer.          */
  12 /*  2. Redistributions in binary form must reproduce the above copyright      */
  13 /*     notice, this list of conditions and the following disclaimer in the    */
  14 /*     documentation and/or other materials provided with the distribution.   */
  15 /*  3. The names of its contributors may not be used to endorse or promote    */
  16 /*     products derived from this software without specific prior written     */
  17 /*     permission.                                                            */
  18 /*                                                                            */
  19 /*  THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND   */
  20 /*  ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE     */
  21 /*  IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR        */
  22 /*  PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS    */
  23 /*  BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR    */
  24 /*  CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF      */
  25 /*  SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS  */
  26 /*  INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN   */
  27 /*  CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)   */
  28 /*  ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF    */
  29 /*  THE POSSIBILITY OF SUCH DAMAGE.                                           */
  30 /******************************************************************************/
  31
  32 /*
  33  * Copyright © 2007 Pierre Habouzit
  34  * Copyright © 2008 Florent Bruneau
  35  */
  36
  37 #include <arpa/inet.h>
  38 #include <netinet/in.h>
  39 #include <sys/mman.h>
  40
  41 #include "common.h"
  42 #include "rbl.h"
  43 #include "str.h"
  44 #include "file.h"
  45 #include "array.h"
  46
  47 #define IPv4_BITS        5
  48 #define IPv4_PREFIX(ip)  ((uint32_t)(ip) >> IPv4_BITS)
  49 #define IPv4_SUFFIX(ip)  ((uint32_t)(ip) & ((1 << IPv4_BITS) - 1))
  50 #define NODE(db, i)      ((db)->tree + (i))
  51 #ifndef DEBUG
  52 #define DEBUG(...)
  53 #endif
  54
  55 enum {
  56     BALANCED    = 0,
  57     LEFT_HEAVY  = 1,
  58     RIGHT_HEAVY = 2,
  59 };
  60
  61 struct rbldb_t {
  62     A(uint32_t) ips;
  63     bool        locked;
  64 };
  65
  66 static int get_o(const char *s, const char **out)
  67 {
  68     int res = 0;
  69
  70     if (*s < '0' || *s > '9')
  71         return -1;
  72
  73     res = *s++ - '0';
  74     if (*s < '0' || *s > '9')
  75         goto ok;
  76
  77     res = res * 10 + *s++ - '0';
  78     if (*s < '0' || *s > '9')
  79         goto ok;
  80
  81     res = res * 10 + *s++ - '0';
  82     if (!(*s < '0' || *s > '9') || res < 100)
  83         return -1;
  84
  85   ok:
  86     *out = s;
  87     return res;
  88 }
  89
  90 static int parse_ipv4(const char *s, const char **out, uint32_t *ip)
  91 {
  92     int o;
  93
  94     o = get_o(s, &s);
  95     if ((o & ~0xff) || *s++ != '.')
  96         return -1;
  97     *ip = o << 24;
  98
  99     o = get_o(s, &s);
 100     if ((o & ~0xff) || *s++ != '.')
 101         return -1;
 102     *ip |= o << 16;
 103
 104     o = get_o(s, &s);
 105     if ((o & ~0xff) || *s++ != '.')
 106         return -1;
 107     *ip |= o << 8;
 108
 109     o = get_o(s, &s);
 110     if (o & ~0xff)
 111         return -1;
 112     *ip |= o;
 113
 114     *out = s;
 115     return 0;
 116 }
 117
 118 rbldb_t *rbldb_create(const char *file, bool lock)
 119 {
 120     rbldb_t *db;
 121     file_map_t map;
 122     const char *p, *end;
 123
 124     if (!file_map_open(&map, file, false)) {
 125         return NULL;
 126     }
 127
 128     p   = map.map;
 129     end = map.end;
 130     while (end > p && end[-1] != '\n') {
 131         --end;
 132     }
 133     if (end != map.end) {
 134         syslog(LOG_WARNING, "file %s miss a final \\n, ignoring last line",
 135                file);
 136     }
 137
 138     db = p_new(rbldb_t, 1);
 139     while (p < end) {
 140         uint32_t ip;
 141
 142         while (*p == ' ' || *p == '\t' || *p == '\r')
 143             p++;
 144
 145         if (parse_ipv4(p, &p, &ip) < 0) {
 146             p = (char *)memchr(p, '\n', end - p) + 1;
 147         } else {
 148             array_add(db->ips, ip);
 149         }
 150     }
 151     file_map_close(&map);
 152
 153     /* Lookup may perform serveral I/O, so avoid swap.
 154      */
 155     array_adjust(db->ips);
 156     db->locked = lock && array_lock(db->ips);
 157     if (lock && !db->locked) {
 158         UNIXERR("mlock");
 159     }
 160
 161     if (db->ips.len) {
 162 #       define QSORT_TYPE uint32_t
 163 #       define QSORT_BASE db->ips.data
 164 #       define QSORT_NELT db->ips.len
 165 #       define QSORT_LT(a,b) *a < *b
 166 #       include "qsort.c"
 167     }
 168
 169     syslog(LOG_INFO, "rbl %s loaded, %d IPs", file, db->ips.len);
 170     return db;
 171 }
 172
 173 void rbldb_delete(rbldb_t **db)
 174 {
 175     if (*db) {
 176         if ((*db)->locked) {
 177             array_unlock((*db)->ips);
 178         }
 179         array_wipe((*db)->ips);
 180         p_delete(&(*db));
 181     }
 182 }
 183
 184 uint32_t rbldb_stats(rbldb_t *rbl)
 185 {
 186     return rbl->ips.len;
 187 }
 188
 189 bool rbldb_ipv4_lookup(rbldb_t *db, uint32_t ip)
 190 {
 191     int l = 0, r = db->ips.len;
 192
 193     while (l < r) {
 194         int i = (r + l) / 2;
 195
 196         if (array_elt(db->ips, i) == ip)
 197             return true;
 198
 199         if (ip < array_elt(db->ips, i)) {
 200             r = i;
 201         } else {
 202             l = i + 1;
 203         }
 204     }
 205     return false;
 206 }