23ad2adddeac90dfd2ed8bf5dae86ba8e4d79ffd
[exim.git] / src / src / lookups / spf.c
1 /*************************************************
2 *     Exim - an Internet mail transport agent    *
3 *************************************************/
4
5 /*
6  * Exim - SPF lookup module using libspf2
7  * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
8  *
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
18 #include "../exim.h"
19
20 #ifndef EXPERIMENTAL_SPF
21 static void dummy(int x);
22 static void dummy2(int x) { dummy(x-1); }
23 static void dummy(int x) { dummy2(x-1); }
24 #else
25
26 #include "lf_functions.h"
27 #ifndef HAVE_NS_TYPE
28 #define HAVE_NS_TYPE
29 #endif
30 #include <spf2/spf.h>
31 #include <spf2/spf_dns_resolv.h>
32 #include <spf2/spf_dns_cache.h>
33
34 static void *spf_open(uschar *filename, uschar **errmsg) {
35   SPF_server_t *spf_server = NULL;
36   spf_server = SPF_server_new(SPF_DNS_CACHE, 0);
37   if (spf_server == NULL) {
38     *errmsg = US"SPF_server_new() failed";
39     return NULL;
40   }
41   return (void *) spf_server;
42 }
43
44 static void spf_close(void *handle) {
45   SPF_server_t *spf_server = handle;
46   if (spf_server) SPF_server_free(spf_server);
47 }
48
49 static int spf_find(void *handle, uschar *filename, uschar *keystring, int key_len,
50              uschar **result, uschar **errmsg, BOOL *do_cache) {
51   SPF_server_t *spf_server = handle;
52   SPF_request_t *spf_request = NULL;
53   SPF_response_t *spf_response = NULL;
54
55   spf_request = SPF_request_new(spf_server);
56   if (spf_request == NULL) {
57     *errmsg = US"SPF_request_new() failed";
58     return FAIL;
59   }
60
61   if (SPF_request_set_ipv4_str(spf_request, CS filename)) {
62     *errmsg = string_sprintf("invalid IP address '%s'", filename);
63     return FAIL;
64   }
65   if (SPF_request_set_env_from(spf_request, CS keystring)) {
66     *errmsg = string_sprintf("invalid envelope from address '%s'", keystring);
67     return FAIL;
68   }
69
70   SPF_request_query_mailfrom(spf_request, &spf_response);
71   *result = string_copy(US SPF_strresult(SPF_response_result(spf_response)));
72   SPF_response_free(spf_response);
73   SPF_request_free(spf_request);
74   return OK;
75 }
76
77
78 /*************************************************
79 *         Version reporting entry point          *
80 *************************************************/
81
82 /* See local README for interface description. */
83
84 #include "../version.h"
85
86 void
87 spf_version_report(FILE *f)
88 {
89 #ifdef DYNLOOKUP
90 fprintf(f, "Library version: SPF: Exim version %s\n", EXIM_VERSION_STR);
91 #endif
92 }
93
94
95 static lookup_info _lookup_info = {
96   US"spf",                       /* lookup name */
97   0,                             /* not absfile, not query style */
98   spf_open,                      /* open function */
99   NULL,                          /* no check function */
100   spf_find,                      /* find function */
101   spf_close,                     /* close function */
102   NULL,                          /* no tidy function */
103   NULL,                          /* no quoting function */
104   spf_version_report             /* version reporting */
105 };
106
107 #ifdef DYNLOOKUP
108 #define spf_lookup_module_info _lookup_module_info
109 #endif
110
111 static lookup_info *_lookup_list[] = { &_lookup_info };
112 lookup_module_info spf_lookup_module_info = { LOOKUP_MODULE_INFO_MAGIC, _lookup_list, 1 };
113
114 #endif /* EXPERIMENTAL_SPF */