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