rbl.c

   1 /******************************************************************************/
   2 /*          postlicyd: a postfix policy daemon with a lot of features         */
   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  */
  35
  36 #include <arpa/inet.h>
  37 #include <fcntl.h>
  38 #include <netinet/in.h>
  39 #include <sys/mman.h>
  40 #include <sys/stat.h>
  41
  42 #include "common.h"
  43 #include "rbl.h"
  44 #include "str.h"
  45
  46 #define IPv4_BITS        5
  47 #define IPv4_PREFIX(ip)  ((uint32_t)(ip) >> IPv4_BITS)
  48 #define IPv4_SUFFIX(ip)  ((uint32_t)(ip) & ((1 << IPv4_BITS) - 1))
  49 #define NODE(db, i)      ((db)->tree + (i))
  50 #ifndef DEBUG
  51 #define DEBUG(...)
  52 #endif
  53
  54 enum {
  55     BALANCED    = 0,
  56     LEFT_HEAVY  = 1,
  57     RIGHT_HEAVY = 2,
  58 };
  59
  60 struct rbldb_t {
  61     uint32_t len, size;
  62     uint32_t *ips;
  63 };
  64
  65 static int get_o(const char *s, const char **out)
  66 {
  67     int res = 0;
  68
  69     if (*s < '0' || *s > '9')
  70         return -1;
  71
  72     res = *s++ - '0';
  73     if (*s < '0' || *s > '9')
  74         goto ok;
  75
  76     res = res * 10 + *s++ - '0';
  77     if (*s < '0' || *s > '9')
  78         goto ok;
  79
  80     res = res * 10 + *s++ - '0';
  81     if (!(*s < '0' || *s > '9') || res < 100)
  82         return -1;
  83
  84   ok:
  85     *out = s;
  86     return res;
  87 }
  88
  89 static int parse_ipv4(const char *s, const char **out, uint32_t *ip)
  90 {
  91     int o;
  92
  93     o = get_o(s, &s);
  94     if ((o & ~0xff) || *s++ != '.')
  95         return -1;
  96     *ip = o << 24;
  97
  98     o = get_o(s, &s);
  99     if ((o & ~0xff) || *s++ != '.')
 100         return -1;
 101     *ip |= o << 16;
 102
 103     o = get_o(s, &s);
 104     if ((o & ~0xff) || *s++ != '.')
 105         return -1;
 106     *ip |= o << 8;
 107
 108     o = get_o(s, &s);
 109     if (o & ~0xff)
 110         return -1;
 111     *ip |= o;
 112
 113     *out = s;
 114     return 0;
 115 }
 116
 117 rbldb_t *rbldb_create(const char *file)
 118 {
 119     rbldb_t *db;
 120     const char *map, *p, *end;
 121     struct stat st;
 122     int fd;
 123
 124     fd = open(file, O_RDONLY, 0000);
 125     if (fd < 0) {
 126         UNIXERR("open");
 127         return NULL;
 128     }
 129
 130     if (fstat(fd, &st) < 0) {
 131         UNIXERR("fstat");
 132         close(fd);
 133         return NULL;
 134     }
 135
 136     p = map = mmap(NULL, st.st_size, PROT_READ, MAP_PRIVATE, fd, 0);
 137     if (map == MAP_FAILED) {
 138         UNIXERR("mmap");
 139         close(fd);
 140         return NULL;
 141     }
 142     close(fd);
 143
 144     end = map + st.st_size;
 145     while (end > map && end[-1] != '\n') {
 146         --end;
 147     }
 148     if (end != map + st.st_size) {
 149         syslog(LOG_WARNING, "file %s miss a final \\n, ignoring last line",
 150                file);
 151     }
 152
 153     db = p_new(rbldb_t, 1);
 154     while (p < end) {
 155         uint32_t ip;
 156
 157         while (*p == ' ' || *p == '\t' || *p == '\r')
 158             p++;
 159
 160         if (parse_ipv4(p, &p, &ip) < 0) {
 161             p = (char *)memchr(p, '\n', end - p) + 1;
 162         } else {
 163             if (db->len >= db->size) {
 164                 db->size += 64 * 1024;
 165                 p_realloc(&db->ips, db->size);
 166             }
 167             db->ips[db->len++] = ip;
 168         }
 169     }
 170     munmap((void*)map, st.st_size);
 171
 172     if (db->len) {
 173 #       define QSORT_TYPE uint32_t
 174 #       define QSORT_BASE db->ips
 175 #       define QSORT_NELT db->len
 176 #       define QSORT_LT(a,b) *a < *b
 177 #       include "qsort.c"
 178     }
 179
 180     syslog(LOG_INFO, "rbl %s loaded, %d IPs", file, db->len);
 181     return db;
 182 }
 183
 184 void rbldb_delete(rbldb_t **db)
 185 {
 186     if (*db) {
 187         p_delete(&(*db)->ips);
 188         p_delete(&(*db));
 189     }
 190 }
 191
 192 uint32_t rbldb_stats(rbldb_t *rbl)
 193 {
 194     return rbl->len;
 195 }
 196
 197 bool rbldb_ipv4_lookup(rbldb_t *db, uint32_t ip)
 198 {
 199     int l = 0, r = db->len;
 200
 201     while (l < r) {
 202         int i = (r + 1) / 2;
 203
 204         if (db->ips[i] == ip)
 205             return true;
 206
 207         if (ip < db->ips[i]) {
 208             r = i;
 209         } else {
 210             l = i + 1;
 211         }
 212     }
 213     return false;
 214 }