src/src/lookups/spf.c

   1 /*************************************************
   2 *     Exim - an Internet mail transport agent    *
   3 *************************************************/
   4
   5 /* Exim - SPF lookup module using libspf2
   6    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   7
   8 Copyright (c) The Exim Maintainers 2020 - 2022
   9 Copyright (c) 2005 Chris Webb, Arachsys Internet Services Ltd
  10
  11 This program is free software; you can redistribute it and/or
  12 modify it under the terms of the GNU General Public License
  13 as published by the Free Software Foundation; either version 2
  14 of the License, or (at your option) any later version.
  15 */
  16
  17 #include "../exim.h"
  18
  19 #ifndef SUPPORT_SPF
  20 static void dummy(int x);
  21 static void dummy2(int x) { dummy(x-1); }
  22 static void dummy(int x) { dummy2(x-1); }
  23 #else
  24
  25 #include "lf_functions.h"
  26 #if !defined(HAVE_NS_TYPE) && defined(NS_INADDRSZ)
  27 # define HAVE_NS_TYPE
  28 #endif
  29 #include <spf2/spf.h>
  30 #include <spf2/spf_dns_resolv.h>
  31 #include <spf2/spf_dns_cache.h>
  32
  33 extern SPF_dns_server_t * SPF_dns_exim_new(int);
  34
  35
  36 static void *
  37 spf_open(const uschar * filename, uschar ** errmsg)
  38 {
  39 SPF_dns_server_t * dc;
  40 SPF_server_t *spf_server = NULL;
  41 int debug = 0;
  42
  43 DEBUG(D_lookup) debug = 1;
  44
  45 if ((dc = SPF_dns_exim_new(debug)))
  46   if ((dc = SPF_dns_cache_new(dc, NULL, debug, 8)))
  47     spf_server = SPF_server_new_dns(dc, debug);
  48
  49 if (!spf_server)
  50   {
  51   *errmsg = US"SPF_dns_exim_nnew() failed";
  52   return NULL;
  53   }
  54 return (void *) spf_server;
  55 }
  56
  57
  58 static void
  59 spf_close(void *handle)
  60 {
  61 SPF_server_t *spf_server = handle;
  62 if (spf_server) SPF_server_free(spf_server);
  63 }
  64
  65 static int
  66 spf_find(void * handle, const uschar * filename, const uschar * keystring,
  67   int key_len, uschar ** result, uschar ** errmsg, uint * do_cache,
  68   const uschar * opts)
  69 {
  70 SPF_server_t *spf_server = handle;
  71 SPF_request_t *spf_request;
  72 SPF_response_t *spf_response = NULL;
  73
  74 if (!(spf_request = SPF_request_new(spf_server)))
  75   {
  76   *errmsg = US"SPF_request_new() failed";
  77   return FAIL;
  78   }
  79
  80 #if HAVE_IPV6
  81 switch (string_is_ip_address(filename, NULL))
  82 #else
  83 switch (4)
  84 #endif
  85   {
  86   case 4:
  87     if (!SPF_request_set_ipv4_str(spf_request, CS filename))
  88       break;
  89     *errmsg = string_sprintf("invalid IPv4 address '%s'", filename);
  90     return FAIL;
  91 #if HAVE_IPV6
  92
  93   case 6:
  94     if (!SPF_request_set_ipv6_str(spf_request, CS filename))
  95       break;
  96     *errmsg = string_sprintf("invalid IPv6 address '%s'", filename);
  97     return FAIL;
  98
  99   default:
 100     *errmsg = string_sprintf("invalid IP address '%s'", filename);
 101     return FAIL;
 102 #endif
 103   }
 104
 105 if (SPF_request_set_env_from(spf_request, CS keystring))
 106     {
 107   *errmsg = string_sprintf("invalid envelope from address '%s'", keystring);
 108   return FAIL;
 109 }
 110
 111 SPF_request_query_mailfrom(spf_request, &spf_response);
 112 *result = string_copy(US SPF_strresult(SPF_response_result(spf_response)));
 113
 114 DEBUG(D_lookup) spf_response_debug(spf_response);
 115
 116 SPF_response_free(spf_response);
 117 SPF_request_free(spf_request);
 118 return OK;
 119 }
 120
 121
 122 /*************************************************
 123 *         Version reporting entry point          *
 124 *************************************************/
 125
 126 /* See local README for interface description. */
 127
 128 #include "../version.h"
 129
 130 gstring *
 131 spf_version_report(gstring * g)
 132 {
 133 #ifdef DYNLOOKUP
 134 g = string_fmt_append(g, "Library version: SPF: Exim version %s\n", EXIM_VERSION_STR));
 135 #endif
 136 return g;
 137 }
 138
 139
 140 static lookup_info _lookup_info = {
 141   .name = US"spf",                      /* lookup name */
 142   .type = 0,                            /* not absfile, not query style */
 143   .open = spf_open,                     /* open function */
 144   .check = NULL,                        /* no check function */
 145   .find = spf_find,                     /* find function */
 146   .close = spf_close,                   /* close function */
 147   .tidy = NULL,                         /* no tidy function */
 148   .quote = NULL,                        /* no quoting function */
 149   .version_report = spf_version_report             /* version reporting */
 150 };
 151
 152 #ifdef DYNLOOKUP
 153 #define spf_lookup_module_info _lookup_module_info
 154 #endif
 155
 156 static lookup_info *_lookup_list[] = { &_lookup_info };
 157 lookup_module_info spf_lookup_module_info = { LOOKUP_MODULE_INFO_MAGIC, _lookup_list, 1 };
 158
 159 #endif /* SUPPORT_SPF */