projects / exim.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Testsuite: add file-inclusion facility to "client" scripts
[exim.git] / src / src / drtables.c
CommitLineData
059ec3d9
PH		 1/*************************************************
2* Exim - an Internet mail transport agent *
3*************************************************/
4
80fea873 5/* Copyright (c) University of Cambridge 1995 - 2016 */
059ec3d9
PH		 6/* See the file NOTICE for conditions of use and distribution. */
7
8
9#include "exim.h"
10
e6d225ae 11#include <string.h>
059ec3d9
PH		 12
13/* This module contains tables that define the lookup methods and drivers
14that are actually included in the binary. Its contents are controlled by
15various macros in config.h that ultimately come from Local/Makefile. They are
16all described in src/EDITME. */
17
18
e6d225ae
DW		 19lookup_info **lookup_list;
20int lookup_list_count = 0;
059ec3d9 21
6545de78
PP		 22static int lookup_list_init_done = 0;
23
4c04137d 24/* Table of information about all possible authentication mechanisms. All
059ec3d9
PH		 25entries are always present if any mechanism is declared, but the functions are
26set to NULL for those that are not compiled into the binary. */
27
28#ifdef AUTH_CRAM_MD5
29#include "auths/cram_md5.h"
30#endif
31
32#ifdef AUTH_CYRUS_SASL
33#include "auths/cyrus_sasl.h"
34#endif
35
14aa5a05
PH		 36#ifdef AUTH_DOVECOT
37#include "auths/dovecot.h"
38#endif
39
44bbabb5
PP		 40#ifdef AUTH_GSASL
41#include "auths/gsasl_exim.h"
42#endif
43
dde3daac
PP		 44#ifdef AUTH_HEIMDAL_GSSAPI
45#include "auths/heimdal_gssapi.h"
46#endif
47
059ec3d9
PH		 48#ifdef AUTH_PLAINTEXT
49#include "auths/plaintext.h"
50#endif
51
52#ifdef AUTH_SPA
53#include "auths/spa.h"
54#endif
55
b3ef41c9
JH		 56#ifdef AUTH_TLS
57#include "auths/tls.h"
58#endif
59
059ec3d9
PH		 60auth_info auths_available[] = {
61
62/* Checking by an expansion condition on plain text */
63
64#ifdef AUTH_CRAM_MD5
65 {
66 US"cram_md5", /* lookup name */
67 auth_cram_md5_options,
68 &auth_cram_md5_options_count,
69 &auth_cram_md5_option_defaults,
70 sizeof(auth_cram_md5_options_block),
71 auth_cram_md5_init, /* init function */
72 auth_cram_md5_server, /* server function */
44bbabb5
PP		 73 auth_cram_md5_client, /* client function */
74 NULL /* diagnostic function */
059ec3d9
PH		 75 },
76#endif
77
78#ifdef AUTH_CYRUS_SASL
79 {
384152a6 80 US"cyrus_sasl", /* lookup name */
059ec3d9
PH		 81 auth_cyrus_sasl_options,
82 &auth_cyrus_sasl_options_count,
83 &auth_cyrus_sasl_option_defaults,
84 sizeof(auth_cyrus_sasl_options_block),
85 auth_cyrus_sasl_init, /* init function */
86 auth_cyrus_sasl_server, /* server function */
44bbabb5
PP		 87 NULL, /* client function */
88 auth_cyrus_sasl_version_report /* diagnostic function */
059ec3d9
PH		 89 },
90#endif
91
14aa5a05
PH		 92#ifdef AUTH_DOVECOT
93 {
94 US"dovecot", /* lookup name */
95 auth_dovecot_options,
96 &auth_dovecot_options_count,
97 &auth_dovecot_option_defaults,
98 sizeof(auth_dovecot_options_block),
99 auth_dovecot_init, /* init function */
100 auth_dovecot_server, /* server function */
44bbabb5
PP		 101 NULL, /* client function */
102 NULL /* diagnostic function */
103 },
104#endif
105
106#ifdef AUTH_GSASL
107 {
108 US"gsasl", /* lookup name */
109 auth_gsasl_options,
110 &auth_gsasl_options_count,
111 &auth_gsasl_option_defaults,
112 sizeof(auth_gsasl_options_block),
113 auth_gsasl_init, /* init function */
114 auth_gsasl_server, /* server function */
115 NULL, /* client function */
116 auth_gsasl_version_report /* diagnostic function */
14aa5a05
PH		 117 },
118#endif
119
dde3daac
PP		 120#ifdef AUTH_HEIMDAL_GSSAPI
121 {
122 US"heimdal_gssapi", /* lookup name */
123 auth_heimdal_gssapi_options,
124 &auth_heimdal_gssapi_options_count,
125 &auth_heimdal_gssapi_option_defaults,
126 sizeof(auth_heimdal_gssapi_options_block),
127 auth_heimdal_gssapi_init, /* init function */
128 auth_heimdal_gssapi_server, /* server function */
129 NULL, /* client function */
130 auth_heimdal_gssapi_version_report /* diagnostic function */
131 },
132#endif
133
059ec3d9
PH		 134#ifdef AUTH_PLAINTEXT
135 {
136 US"plaintext", /* lookup name */
137 auth_plaintext_options,
138 &auth_plaintext_options_count,
139 &auth_plaintext_option_defaults,
140 sizeof(auth_plaintext_options_block),
141 auth_plaintext_init, /* init function */
142 auth_plaintext_server, /* server function */
44bbabb5
PP		 143 auth_plaintext_client, /* client function */
144 NULL /* diagnostic function */
059ec3d9
PH		 145 },
146#endif
147
148#ifdef AUTH_SPA
149 {
150 US"spa", /* lookup name */
151 auth_spa_options,
152 &auth_spa_options_count,
153 &auth_spa_option_defaults,
154 sizeof(auth_spa_options_block),
155 auth_spa_init, /* init function */
156 auth_spa_server, /* server function */
44bbabb5
PP		 157 auth_spa_client, /* client function */
158 NULL /* diagnostic function */
059ec3d9
PH		 159 },
160#endif
161
b3ef41c9
JH		 162#ifdef AUTH_TLS
163 {
164 US"tls", /* lookup name */
165 auth_tls_options,
166 &auth_tls_options_count,
167 &auth_tls_option_defaults,
168 sizeof(auth_tls_options_block),
169 auth_tls_init, /* init function */
170 auth_tls_server, /* server function */
171 NULL, /* client function */
172 NULL /* diagnostic function */
173 },
174#endif
175
44bbabb5 176{ US"", NULL, NULL, NULL, 0, NULL, NULL, NULL, NULL }
059ec3d9
PH		 177};
178
179
180/* Tables of information about which routers and transports are included in the
181exim binary. */
182
183/* Pull in the necessary header files */
184
185#include "routers/rf_functions.h"
186
187#ifdef ROUTER_ACCEPT
188#include "routers/accept.h"
189#endif
190
191#ifdef ROUTER_DNSLOOKUP
192#include "routers/dnslookup.h"
193#endif
194
195#ifdef ROUTER_MANUALROUTE
196#include "routers/manualroute.h"
197#endif
198
199#ifdef ROUTER_IPLITERAL
200#include "routers/ipliteral.h"
201#endif
202
203#ifdef ROUTER_IPLOOKUP
204#include "routers/iplookup.h"
205#endif
206
207#ifdef ROUTER_QUERYPROGRAM
208#include "routers/queryprogram.h"
209#endif
210
211#ifdef ROUTER_REDIRECT
212#include "routers/redirect.h"
213#endif
214
215#ifdef TRANSPORT_APPENDFILE
216#include "transports/appendfile.h"
217#endif
218
219#ifdef TRANSPORT_AUTOREPLY
220#include "transports/autoreply.h"
221#endif
222
223#ifdef TRANSPORT_LMTP
224#include "transports/lmtp.h"
225#endif
226
227#ifdef TRANSPORT_PIPE
228#include "transports/pipe.h"
229#endif
230
3369a853
ACK		 231#ifdef EXPERIMENTAL_QUEUEFILE
232#include "transports/queuefile.h"
233#endif
234
059ec3d9
PH		 235#ifdef TRANSPORT_SMTP
236#include "transports/smtp.h"
237#endif
238
239
240/* Now set up the structures, terminated by an entry with a null name. */
241
242router_info routers_available[] = {
243#ifdef ROUTER_ACCEPT
244 {
245 US"accept",
246 accept_router_options,
247 &accept_router_options_count,
248 &accept_router_option_defaults,
249 sizeof(accept_router_options_block),
250 accept_router_init,
251 accept_router_entry,
252 NULL, /* no tidyup entry */
253 ri_yestransport
254 },
255#endif
256#ifdef ROUTER_DNSLOOKUP
257 {
258 US"dnslookup",
259 dnslookup_router_options,
260 &dnslookup_router_options_count,
261 &dnslookup_router_option_defaults,
262 sizeof(dnslookup_router_options_block),
263 dnslookup_router_init,
264 dnslookup_router_entry,
265 NULL, /* no tidyup entry */
266 ri_yestransport
267 },
268#endif
269#ifdef ROUTER_IPLITERAL
270 {
271 US"ipliteral",
272 ipliteral_router_options,
273 &ipliteral_router_options_count,
274 &ipliteral_router_option_defaults,
275 sizeof(ipliteral_router_options_block),
276 ipliteral_router_init,
277 ipliteral_router_entry,
278 NULL, /* no tidyup entry */
279 ri_yestransport
280 },
281#endif
282#ifdef ROUTER_IPLOOKUP
283 {
284 US"iplookup",
285 iplookup_router_options,
286 &iplookup_router_options_count,
287 &iplookup_router_option_defaults,
288 sizeof(iplookup_router_options_block),
289 iplookup_router_init,
290 iplookup_router_entry,
291 NULL, /* no tidyup entry */
292 ri_notransport
293 },
294#endif
295#ifdef ROUTER_MANUALROUTE
296 {
297 US"manualroute",
298 manualroute_router_options,
299 &manualroute_router_options_count,
300 &manualroute_router_option_defaults,
301 sizeof(manualroute_router_options_block),
302 manualroute_router_init,
303 manualroute_router_entry,
304 NULL, /* no tidyup entry */
305 0
306 },
307#endif
308#ifdef ROUTER_QUERYPROGRAM
309 {
310 US"queryprogram",
311 queryprogram_router_options,
312 &queryprogram_router_options_count,
313 &queryprogram_router_option_defaults,
314 sizeof(queryprogram_router_options_block),
315 queryprogram_router_init,
316 queryprogram_router_entry,
317 NULL, /* no tidyup entry */
318 0
319 },
320#endif
321#ifdef ROUTER_REDIRECT
322 {
323 US"redirect",
324 redirect_router_options,
325 &redirect_router_options_count,
326 &redirect_router_option_defaults,
327 sizeof(redirect_router_options_block),
328 redirect_router_init,
329 redirect_router_entry,
330 NULL, /* no tidyup entry */
331 ri_notransport
332 },
333#endif
334{ US"", NULL, NULL, NULL, 0, NULL, NULL, NULL, 0 }
335};
336
337
338
339transport_info transports_available[] = {
340#ifdef TRANSPORT_APPENDFILE
341 {
342 US"appendfile", /* driver name */
343 appendfile_transport_options, /* local options table */
344 &appendfile_transport_options_count, /* number of entries */
345 &appendfile_transport_option_defaults, /* private options defaults */
346 sizeof(appendfile_transport_options_block), /* size of private block */
347 appendfile_transport_init, /* init entry point */
348 appendfile_transport_entry, /* main entry point */
349 NULL, /* no tidyup entry */
350 NULL, /* no closedown entry */
351 TRUE, /* local flag */
352 },
353#endif
354#ifdef TRANSPORT_AUTOREPLY
355 {
356 US"autoreply", /* driver name */
357 autoreply_transport_options, /* local options table */
358 &autoreply_transport_options_count, /* number of entries */
359 &autoreply_transport_option_defaults, /* private options defaults */
360 sizeof(autoreply_transport_options_block), /* size of private block */
361 autoreply_transport_init, /* init entry point */
362 autoreply_transport_entry, /* main entry point */
363 NULL, /* no tidyup entry */
364 NULL, /* no closedown entry */
365 TRUE /* local flag */
366 },
367#endif
368#ifdef TRANSPORT_LMTP
369 {
370 US"lmtp", /* driver name */
371 lmtp_transport_options, /* local options table */
372 &lmtp_transport_options_count, /* number of entries */
373 &lmtp_transport_option_defaults, /* private options defaults */
374 sizeof(lmtp_transport_options_block), /* size of private block */
375 lmtp_transport_init, /* init entry point */
376 lmtp_transport_entry, /* main entry point */
377 NULL, /* no tidyup entry */
378 NULL, /* no closedown entry */
379 TRUE /* local flag */
380 },
381#endif
382#ifdef TRANSPORT_PIPE
383 {
384 US"pipe", /* driver name */
385 pipe_transport_options, /* local options table */
386 &pipe_transport_options_count, /* number of entries */
387 &pipe_transport_option_defaults, /* private options defaults */
388 sizeof(pipe_transport_options_block), /* size of private block */
389 pipe_transport_init, /* init entry point */
390 pipe_transport_entry, /* main entry point */
391 NULL, /* no tidyup entry */
392 NULL, /* no closedown entry */
393 TRUE /* local flag */
394 },
395#endif
3369a853
ACK		 396#ifdef EXPERIMENTAL_QUEUEFILE
397 {
398 US"queuefile", /* driver name */
399 queuefile_transport_options, /* local options table */
400 &queuefile_transport_options_count, /* number of entries */
401 &queuefile_transport_option_defaults, /* private options defaults */
402 sizeof(queuefile_transport_options_block), /* size of private block */
403 queuefile_transport_init, /* init entry point */
404 queuefile_transport_entry, /* main entry point */
405 NULL, /* no tidyup entry */
406 NULL, /* no closedown entry */
407 TRUE /* local flag */
408 },
409#endif
059ec3d9
PH		 410#ifdef TRANSPORT_SMTP
411 {
412 US"smtp", /* driver name */
413 smtp_transport_options, /* local options table */
414 &smtp_transport_options_count, /* number of entries */
415 &smtp_transport_option_defaults, /* private options defaults */
416 sizeof(smtp_transport_options_block), /* size of private block */
417 smtp_transport_init, /* init entry point */
418 smtp_transport_entry, /* main entry point */
419 NULL, /* no tidyup entry */
420 smtp_transport_closedown, /* close down passed channel */
421 FALSE /* local flag */
422 },
423#endif
424{ US"", NULL, NULL, NULL, 0, NULL, NULL, NULL, NULL, FALSE }
425};
426
e6d225ae
DW		 427struct lookupmodulestr
428{
429 void *dl;
430 struct lookup_module_info *info;
431 struct lookupmodulestr *next;
432};
433
434static struct lookupmodulestr *lookupmodules = NULL;
435
96f5fe4c
JH		 436static void
437addlookupmodule(void *dl, struct lookup_module_info *info)
e6d225ae 438{
96f5fe4c
JH		 439struct lookupmodulestr *p = store_malloc(sizeof(struct lookupmodulestr));
440
441p->dl = dl;
442p->info = info;
443p->next = lookupmodules;
444lookupmodules = p;
445lookup_list_count += info->lookupcount;
e6d225ae
DW		 446}
447
448/* only valid after lookup_list and lookup_list_count are assigned */
96f5fe4c
JH		 449static void
450add_lookup_to_list(lookup_info *info)
e6d225ae 451{
96f5fe4c
JH		 452/* need to add the lookup to lookup_list, sorted */
453int pos = 0;
454
455/* strategy is to go through the list until we find
456either an empty spot or a name that is higher.
457this can't fail because we have enough space. */
458
459while (lookup_list[pos] && (Ustrcmp(lookup_list[pos]->name, info->name) <= 0))
460 pos++;
461
462if (lookup_list[pos])
463 {
464 /* need to insert it, so move all the other items up
465 (last slot is still empty, of course) */
466
467 memmove(&lookup_list[pos+1],
468 &lookup_list[pos],
469 sizeof(lookup_info *) * (lookup_list_count-pos-1));
e6d225ae 470 }
96f5fe4c 471lookup_list[pos] = info;
e6d225ae
DW		 472}
473
4d805ee9
PP		 474
475/* These need to be at file level for old versions of gcc (2.95.2 reported),
476 * which give parse errors on an extern in function scope. Each entry needs
477 * to also be invoked in init_lookup_list() below */
478
78f72498
JH		 479#if defined(LOOKUP_CDB) && LOOKUP_CDB!=2
480extern lookup_module_info cdb_lookup_module_info;
4d805ee9 481#endif
78f72498
JH		 482#if defined(LOOKUP_DBM) && LOOKUP_DBM!=2
483extern lookup_module_info dbmdb_lookup_module_info;
4d805ee9 484#endif
78f72498
JH		 485#if defined(LOOKUP_DNSDB) && LOOKUP_DNSDB!=2
486extern lookup_module_info dnsdb_lookup_module_info;
4d805ee9 487#endif
78f72498
JH		 488#if defined(LOOKUP_DSEARCH) && LOOKUP_DSEARCH!=2
489extern lookup_module_info dsearch_lookup_module_info;
4d805ee9 490#endif
78f72498
JH		 491#if defined(LOOKUP_IBASE) && LOOKUP_IBASE!=2
492extern lookup_module_info ibase_lookup_module_info;
4d805ee9 493#endif
78f72498
JH		 494#if defined(LOOKUP_LDAP)
495extern lookup_module_info ldap_lookup_module_info;
de78e2d5 496#endif
78f72498
JH		 497#if defined(LOOKUP_LSEARCH) && LOOKUP_LSEARCH!=2
498extern lookup_module_info lsearch_lookup_module_info;
4d805ee9 499#endif
78f72498
JH		 500#if defined(LOOKUP_MYSQL) && LOOKUP_MYSQL!=2
501extern lookup_module_info mysql_lookup_module_info;
4d805ee9
PP		 502#endif
503#if defined(LOOKUP_NIS) && LOOKUP_NIS!=2
504extern lookup_module_info nis_lookup_module_info;
505#endif
78f72498
JH		 506#if defined(LOOKUP_NISPLUS) && LOOKUP_NISPLUS!=2
507extern lookup_module_info nisplus_lookup_module_info;
4d805ee9 508#endif
78f72498
JH		 509#if defined(LOOKUP_ORACLE) && LOOKUP_ORACLE!=2
510extern lookup_module_info oracle_lookup_module_info;
4d805ee9 511#endif
78f72498
JH		 512#if defined(LOOKUP_PASSWD) && LOOKUP_PASSWD!=2
513extern lookup_module_info passwd_lookup_module_info;
4d805ee9 514#endif
78f72498
JH		 515#if defined(LOOKUP_PGSQL) && LOOKUP_PGSQL!=2
516extern lookup_module_info pgsql_lookup_module_info;
4d805ee9 517#endif
78f72498
JH		 518#if defined(LOOKUP_REDIS) && LOOKUP_REDIS!=2
519extern lookup_module_info redis_lookup_module_info;
4d805ee9 520#endif
5bde3efa
ACK		 521#if defined(EXPERIMENTAL_LMDB)
522extern lookup_module_info lmdb_lookup_module_info;
523#endif
78f72498
JH		 524#if defined(EXPERIMENTAL_SPF)
525extern lookup_module_info spf_lookup_module_info;
4d805ee9 526#endif
78f72498
JH		 527#if defined(LOOKUP_SQLITE) && LOOKUP_SQLITE!=2
528extern lookup_module_info sqlite_lookup_module_info;
4d805ee9 529#endif
78f72498
JH		 530#if defined(LOOKUP_TESTDB) && LOOKUP_TESTDB!=2
531extern lookup_module_info testdb_lookup_module_info;
532#endif
533#if defined(LOOKUP_WHOSON) && LOOKUP_WHOSON!=2
534extern lookup_module_info whoson_lookup_module_info;
4d805ee9
PP		 535#endif
536
96f5fe4c
JH		 537
538void
539init_lookup_list(void)
e6d225ae 540{
fb2bba55 541#ifdef LOOKUP_MODULE_DIR
e6d225ae
DW		 542 DIR *dd;
543 struct dirent *ent;
e6d225ae
DW		 544 int countmodules = 0;
545 int moduleerrors = 0;
fb2bba55 546#endif
e6d225ae
DW		 547 struct lookupmodulestr *p;
548
6545de78
PP		 549 if (lookup_list_init_done)
550 return;
551 lookup_list_init_done = 1;
552
e6d225ae 553#if defined(LOOKUP_CDB) && LOOKUP_CDB!=2
e6d225ae
DW		 554 addlookupmodule(NULL, &cdb_lookup_module_info);
555#endif
556
557#if defined(LOOKUP_DBM) && LOOKUP_DBM!=2
e6d225ae
DW		 558 addlookupmodule(NULL, &dbmdb_lookup_module_info);
559#endif
560
561#if defined(LOOKUP_DNSDB) && LOOKUP_DNSDB!=2
e6d225ae
DW		 562 addlookupmodule(NULL, &dnsdb_lookup_module_info);
563#endif
564
565#if defined(LOOKUP_DSEARCH) && LOOKUP_DSEARCH!=2
e6d225ae
DW		 566 addlookupmodule(NULL, &dsearch_lookup_module_info);
567#endif
568
569#if defined(LOOKUP_IBASE) && LOOKUP_IBASE!=2
e6d225ae
DW		 570 addlookupmodule(NULL, &ibase_lookup_module_info);
571#endif
572
573#ifdef LOOKUP_LDAP
e6d225ae
DW		 574 addlookupmodule(NULL, &ldap_lookup_module_info);
575#endif
576
577#if defined(LOOKUP_LSEARCH) && LOOKUP_LSEARCH!=2
e6d225ae
DW		 578 addlookupmodule(NULL, &lsearch_lookup_module_info);
579#endif
580
581#if defined(LOOKUP_MYSQL) && LOOKUP_MYSQL!=2
e6d225ae
DW		 582 addlookupmodule(NULL, &mysql_lookup_module_info);
583#endif
584
585#if defined(LOOKUP_NIS) && LOOKUP_NIS!=2
e6d225ae
DW		 586 addlookupmodule(NULL, &nis_lookup_module_info);
587#endif
588
589#if defined(LOOKUP_NISPLUS) && LOOKUP_NISPLUS!=2
e6d225ae
DW		 590 addlookupmodule(NULL, &nisplus_lookup_module_info);
591#endif
592
593#if defined(LOOKUP_ORACLE) && LOOKUP_ORACLE!=2
e6d225ae
DW		 594 addlookupmodule(NULL, &oracle_lookup_module_info);
595#endif
596
597#if defined(LOOKUP_PASSWD) && LOOKUP_PASSWD!=2
e6d225ae
DW		 598 addlookupmodule(NULL, &passwd_lookup_module_info);
599#endif
600
601#if defined(LOOKUP_PGSQL) && LOOKUP_PGSQL!=2
e6d225ae
DW		 602 addlookupmodule(NULL, &pgsql_lookup_module_info);
603#endif
604
de78e2d5 605#if defined(LOOKUP_REDIS) && LOOKUP_REDIS!=2
9bdd29ad
TL		 606 addlookupmodule(NULL, &redis_lookup_module_info);
607#endif
608
5bde3efa
ACK		 609#ifdef EXPERIMENTAL_LMDB
610 addlookupmodule(NULL, &lmdb_lookup_module_info);
611#endif
612
e6d225ae 613#ifdef EXPERIMENTAL_SPF
e6d225ae
DW		 614 addlookupmodule(NULL, &spf_lookup_module_info);
615#endif
616
617#if defined(LOOKUP_SQLITE) && LOOKUP_SQLITE!=2
e6d225ae
DW		 618 addlookupmodule(NULL, &sqlite_lookup_module_info);
619#endif
620
621#if defined(LOOKUP_TESTDB) && LOOKUP_TESTDB!=2
e6d225ae
DW		 622 addlookupmodule(NULL, &testdb_lookup_module_info);
623#endif
624
625#if defined(LOOKUP_WHOSON) && LOOKUP_WHOSON!=2
e6d225ae
DW		 626 addlookupmodule(NULL, &whoson_lookup_module_info);
627#endif
628
629#ifdef LOOKUP_MODULE_DIR
630 dd = opendir(LOOKUP_MODULE_DIR);
631 if (dd == NULL) {
1594a79a 632 DEBUG(D_lookup) debug_printf("Couldn't open %s: not loading lookup modules\n", LOOKUP_MODULE_DIR);
e6d225ae
DW		 633 log_write(0, LOG_MAIN, "Couldn't open %s: not loading lookup modules\n", LOOKUP_MODULE_DIR);
634 }
635 else {
f322340b
JH		 636 const pcre *regex_islookupmod = regex_must_compile(
637 US"\\." DYNLIB_FN_EXT "$", FALSE, TRUE);
638
1594a79a 639 DEBUG(D_lookup) debug_printf("Loading lookup modules from %s\n", LOOKUP_MODULE_DIR);
e6d225ae
DW		 640 while ((ent = readdir(dd)) != NULL) {
641 char *name = ent->d_name;
642 int len = (int)strlen(name);
643 if (pcre_exec(regex_islookupmod, NULL, name, len, 0, PCRE_EOPT, NULL, 0) >= 0) {
644 int pathnamelen = len + (int)strlen(LOOKUP_MODULE_DIR) + 2;
645 void *dl;
646 struct lookup_module_info *info;
1ba28e2b 647 const char *errormsg;
e6d225ae
DW		 648
649 /* SRH: am I being paranoid here or what? */
650 if (pathnamelen > big_buffer_size) {
651 fprintf(stderr, "Loading lookup modules: %s/%s: name too long\n", LOOKUP_MODULE_DIR, name);
652 log_write(0, LOG_MAIN|LOG_PANIC, "%s/%s: name too long\n", LOOKUP_MODULE_DIR, name);
653 continue;
654 }
655
656 /* SRH: snprintf here? */
657 sprintf(CS big_buffer, "%s/%s", LOOKUP_MODULE_DIR, name);
658
659 dl = dlopen(CS big_buffer, RTLD_NOW);// TJ was LAZY
660 if (dl == NULL) {
661 fprintf(stderr, "Error loading %s: %s\n", name, dlerror());
662 moduleerrors++;
663 log_write(0, LOG_MAIN|LOG_PANIC, "Error loading lookup module %s: %s\n", name, dlerror());
664 continue;
665 }
666
56e0c4ce
PP		 667 /* FreeBSD nsdispatch() can trigger dlerror() errors about
668 * _nss_cache_cycle_prevention_function; we need to clear the dlerror()
669 * state before calling dlsym(), so that any error afterwards only
670 * comes from dlsym().
671 */
672 errormsg = dlerror();
673
e6d225ae
DW		 674 info = (struct lookup_module_info*) dlsym(dl, "_lookup_module_info");
675 if ((errormsg = dlerror()) != NULL) {
676 fprintf(stderr, "%s does not appear to be a lookup module (%s)\n", name, errormsg);
677 dlclose(dl);
678 moduleerrors++;
679 log_write(0, LOG_MAIN|LOG_PANIC, "%s does not appear to be a lookup module (%s)\n", name, errormsg);
680 continue;
681 }
682 if (info->magic != LOOKUP_MODULE_INFO_MAGIC) {
683 fprintf(stderr, "Lookup module %s is not compatible with this version of Exim\n", name);
684 dlclose(dl);
685 moduleerrors++;
686 log_write(0, LOG_MAIN|LOG_PANIC, "Lookup module %s is not compatible with this version of Exim\n", name);
687 continue;
688 }
689
690 addlookupmodule(dl, info);
1594a79a 691 DEBUG(D_lookup) debug_printf("Loaded \"%s\" (%d lookup types)\n", name, info->lookupcount);
e6d225ae
DW		 692 countmodules++;
693 }
694 }
f322340b 695 store_free((void*)regex_islookupmod);
e6d225ae
DW		 696 closedir(dd);
697 }
698
1594a79a 699 DEBUG(D_lookup) debug_printf("Loaded %d lookup modules\n", countmodules);
e6d225ae
DW		 700#endif
701
1594a79a 702 DEBUG(D_lookup) debug_printf("Total %d lookups\n", lookup_list_count);
e6d225ae
DW		 703
704 lookup_list = store_malloc(sizeof(lookup_info *) * lookup_list_count);
705 memset(lookup_list, 0, sizeof(lookup_info *) * lookup_list_count);
706
707 /* now add all lookups to the real list */
708 p = lookupmodules;
709 while (p) {
710 int j;
711 struct lookupmodulestr *pnext;
712
713 for (j = 0; j < p->info->lookupcount; j++)
714 add_lookup_to_list(p->info->lookups[j]);
715
716 pnext = p->next;
717 store_free(p);
718 p = pnext;
719 }
720 /* just to be sure */
721 lookupmodules = NULL;
722}
723
059ec3d9 724/* End of drtables.c */
Unnamed repository; edit this file 'description' to name the repository.